Hello,
I have the output for a report on 5 different sheets, each sheet contains Charts and numerical output. I want to create a Print Preview screen that includes the Charts and Numerical Output.
The following code DOES A GREAT JOB, but the Charts are missing from the 2nd to 5th Sheet (the Chart on the FIRST SHEET DOES show up??)
[vba]Sub PrintMultipleSheets()
With ActiveWorkbook
.Sheets("1").Select False
.Sheets("4").Select False
.Sheets("2").Select False
.Sheets("3").Select False
.Sheets("5").Select False
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub
[/vba]
NOTE: I WOULD LIKE TO BE ABLE TO DO THIS WITHOUT HAVING TO RE-CODE MY CHARTS (I.E. FIND OUT THEIR EXACT NAMES IN THE PROGRAM ETC.), HOWEVER, I KNOW THE EXACT NUMBER OF CHARTS PER SHEET AND THAT WOULD BE VERY EASY TO CODE IN.