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

I don't know about CuteFTP. I mean, it works fine, but it isn't controllable
via VBA other than being able to be selected as an alternate printer.

Another free FTP printer driver is PDFCreator. This driver has a VBA
interface, and Ken Puls of Excel Guru (http://excelguru.ca) has written some
tutorials about it.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services, Inc.
http://PeltierTech.com/WordPress/
_______


"Bruce" wrote in message
...
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

Select all
Edit|replace
what: FTP
with: PDF
replace all

<gd&r

Jon Peltier wrote:

I don't know about CuteFTP. I mean, it works fine, but it isn't controllable
via VBA other than being able to be selected as an alternate printer.

Another free FTP printer driver is PDFCreator. This driver has a VBA
interface, and Ken Puls of Excel Guru (http://excelguru.ca) has written some
tutorials about it.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services, Inc.
http://PeltierTech.com/WordPress/
_______

"Bruce" wrote in message
...
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


--

Dave Peterson

DOH! Can't even blame time of day for that one.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services, Inc.
http://PeltierTech.com/WordPress/
_______


"Dave Peterson" wrote in message
...
Select all
Edit|replace
what: FTP
with: PDF
replace all

<gd&r

Jon Peltier wrote:

I don't know about CuteFTP. I mean, it works fine, but it isn't
controllable
via VBA other than being able to be selected as an alternate printer.

Another free FTP printer driver is PDFCreator. This driver has a VBA
interface, and Ken Puls of Excel Guru (http://excelguru.ca) has written
some
tutorials about it.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services, Inc.
http://PeltierTech.com/WordPress/
_______

"Bruce" wrote in message
...
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


--

Dave Peterson