View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Smallweed Smallweed is offline
external usenet poster
 
Posts: 133
Default Print problems w/ charts excel 2003/2007


Just a thought but have you looked at View, Sized with Window? Charts look
squashed if it's on the wrong setting as I remember

"dgold82" wrote:

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!