VBA - Print charts

[j4ymf]

Hello All

I have come across this code that lets you print the charts with in the sheet. via a button

how do I change and where, so it prints in colour because the default on work printers is black and white and how do I print it landscape not portrait.

thanks Jason

Sub PrintEmbeddedCharts()
     Dim ChartList As Integer
     Dim X As Integer
     ' Variable chartlist stores a count of all embedded charts.
     ChartList = ActiveSheet.ChartObjects.Count
     ' Increments the counter variable 'X' in a loop.
     For X = 1 To ChartList
         ' Selects the chart object.
         ActiveSheet.ChartObjects(X).Select
         ' Makes chart active.
         ActiveSheet.ChartObjects(X).Activate
         ' Prints one copy of active chart.
         ActiveChart.PrintOut Copies:=1
     Next
End Sub

 

[Momentman]

Untested code anyways

Sub PrintEmbeddedCharts()
     Dim ChartList As Integer
     Dim X As Integer
     ' Variable chartlist stores a count of all embedded charts.
     ChartList = ActiveSheet.ChartObjects.Count
     ' Increments the counter variable 'X' in a loop.
     For X = 1 To ChartList
         ' Selects the chart object.
         ActiveSheet.ChartObjects(X).Select
         ' Makes chart active.
         ActiveSheet.ChartObjects(X).Activate
         'Set the colour to black and white
         ActiveSheet.ChartObjects(X).PageSetup.BlackAndWhite = ""
         ' Prints one copy of active chart.
         ActiveChart.PrintOut Copies:=1
     Next
End Sub

 

[j4ymf]

hi
thank for you help

I get an error saying object doesn't support this method

Jason

 

[Momentman]

or maybe this way

Sub PrintEmbeddedCharts()
     Dim ChartList As Integer
     Dim X As Integer
     ' Variable chartlist stores a count of all embedded charts.
     ChartList = ActiveSheet.ChartObjects.Count
     ' Increments the counter variable 'X' in a loop.
     For X = 1 To ChartList
         ' Selects the chart object.
         ActiveSheet.ChartObjects(X).Select
         ' Makes chart active.
         ActiveSheet.ChartObjects(X).Activate
         'Set the colour to black and white
        ActiveChart.PageSetup.BlackAndWhite = False
         ' Prints one copy of active chart.
         ActiveChart.PrintOut Copies:=1
     Next
End Sub