I am trying to print an excel spreadsheet to adobe without getting a
prompt for the filename. I am getting the runtime error '1004'
"Method 'PrintOut' of object 'sheets' failed"

Can anyone help me?

Sheets(Array("Front Sheet", "Sales", "MP")).Select
Sheets("Front Sheet").Activate
ActiveWindow.SelectedSheets.PrintOut _
Copies:=1, _
ActivePrinter:="Acrobat PDFWriter on LPT1:", _
PrintToFile:=True, _
PrToFilename:="C:\temp\Week 43.pdf"

Danny

See here

http://www.google.com/groups?threadm...GP10. phx.gbl

--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.

"Danny McCarthy" wrote in message
om...
I am trying to print an excel spreadsheet to adobe without getting a
prompt for the filename. I am getting the runtime error '1004'
"Method 'PrintOut' of object 'sheets' failed"

Can anyone help me?

Sheets(Array("Front Sheet", "Sales", "MP")).Select
Sheets("Front Sheet").Activate
ActiveWindow.SelectedSheets.PrintOut _
Copies:=1, _
ActivePrinter:="Acrobat PDFWriter on LPT1:", _
PrintToFile:=True, _
PrToFilename:="C:\temp\Week 43.pdf"