Hi,

I have the following macro to print 3 worksheets to a PDF using CutePDF.

1. The trouble is this is printing the 3 worksheets to 3 separate PDF's.
How can I force it to save the 3 worksheets to a 3 page PDF?

2. How can I specify a default filename in the macro such as "myReport"
instead of being promoted for a filename manually?

Bruce.



Sub DailyReports()

Application.ScreenUpdating = False
myArray = Array("Strategy", "Signals_Breakout",
"Signals_Breakout_Delay")
For Each a In myArray
Range("A1").Select
Sheets(a).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
ActivePrinter:="CutePDF Writer on CPW2:", Collate:=True
Next a
Sheets("Update").Select
Application.ScreenUpdating = False

End Sub