I just posted my strange situation in the general questions, but now I am
trying to code my way out of this using VBA. My problem is basically that my
charts aren't printing correctly when I use excel 2003. Every time I hit
print a different set of charts on my worksheet print incorrectly (the charts
look garbled and condensed). I have found that if I click on print preview on
each chart on my worksheet and then click on print they all work fine.

Therefore, I recorded the following (ugly) macro:

Sub PrintCompare()
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.Visible = False
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.Visible = False
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.Visible = False
Range("a1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

My only problem now is that I have to close each print preview before it
finally gets to the print command towards the bottom. If I can get this to
cycle through all the charts without needing to close print preview each time
that would solve my problem. Is there a way to select all the charts and
print preview them all together?

Ideas would be greatly appreciated!