Solved Export graph (1 Viewer)

[amir0914]

Hi everyone,
I created a graph by a query on a form and now it shows only the graph, How can I print the graph or form, or export to pdf?? (Horizontally)

Thanks in advanced.

 

[June7]

Can export graph to jpg file with:

Private Sub btnExport_Click()
Dim graphExp As Object
Set graphExp = Me.MyGraphName
graphExp.Export "C:\images\Graph.jpg", "jpg"
End Sub

At least, it might work. I certainly thought it did for me at one time but now it is not working nicely.

Otherwise, build a report and print report or export report to pdf.

 

[arnelgp]

you can PrintScreen the Form.

 

[amir0914]

Can export graph to jpg file with:

Private Sub btnExport_Click()
Dim graphExp As Object
Set graphExp = Me.MyGraphName
graphExp.Export "C:\images\Graph.jpg", "jpg"
End Sub

At least, it might work. I certainly thought it did for me at one time but now it is not working nicely.

Otherwise, build a report and print report or export report to pdf.

Thank you June7, but it gives this error after run the code:

Dim graphExp As Object
Set graphExp = Me.Graph0
graphExp.Export "C:\Graph.jpg", "jpg"

 

[June7]

Sorry I even showed you the code. It's been a long time since I first tried it and forgot the issues it has. After running the code I get errors even trying to close the form. "The operation on the chart object failed. The OLE server may not be registered. To register the OLE server, reinstall it." I also get this error when I try to use OLEObject controls. Think I started getting this error after a Windows update. The jpg doesn't even capture the entire graph.

The error you get usually means there is a missing library reference, but as far as I can remember, I did not set any library reference for this code.

Might web search the Export method and see what you can find if you are really interested in it. That's how I originally found this code.

 

[June7]

Also, since the code uses late binding, special library reference should not be needed. I tested the code in a new db without adding library references and get same result.