Here is what I have now
Code:
Sub PrintEmbedded()
Dim c As Object, w As Worksheet
Application.Dialogs(xlDialogPrint).Show
For Each w In ActiveWorkbook.Worksheets
For Each c In w.ChartObjects
c.Chart.PageSetup.BlackAndWhite = True
c.Chart.PrintOut
Next c
Next w
The Application.Dialogs(xlDialogPrint).Show command makes the print window pop up so you can choose what printer you and so you can change settings (theoretically). It works as far as choosing the correct printer. But only the first chart prints out in color, the rest are in B&W. Any ideas?? Thanks...