make a button for a printpreview of a graph (graph on a page)

[Jurgen Smits]

Hello,

I'm stuck with a problem. I hope someone can help me. I want make a printpreview of graph what is a page (not a object). I think I made a simple error, but I'm stuck.
And I can't save the macro to the file

This is the code I used

Sub printscreenPMR()
Range("PMR").PrintPreview
End Sub

Thanks for helping

 

[Kmahraz]

Try this idea instead

Sub printcharts()
Dim Ch As ChartObject
For Each Ch In ActiveSheet.ChartObjects
Ch.Chart.PrintPreview
Next
End Sub

Or you can use something like the code below with slight mod:

Sub PrintAllCharts()
Dim c As Object, w As Worksheet
For Each w In ActiveWorkbook.Worksheets
For Each c In w.ChartObjects
c.Chart.PrintOut
Next c
Next w
End Sub

 

[Jurgen Smits]

Hi,

Thanks it work great. Sorry for the late repons ( I have bad african connection)

 

[Kmahraz]

Excellent Smits, glad to hear it.