Excel to pdf by code

[Daniel Bonallack]

I have looping code that makes various changes to an Excel
file, prints it, changes it again, prints it again and so
on for 100 iterations.

This works fine for printing to my network printer. But
when I print to Acrobat Distiller or PDF Writer, I then
have to wait by my PC and hit "Save" each time it comes to
print - 100 times.

Can someone please tell me how to print to pdf and execute
the Save prompt so I can leave my PC to work while I go
and have a cup of tea?

Thanks in advance,
Daniel

 

[Jean-Paul Viel]

Hi,



Use something like that in your Macro.



Static intN As Integer

Sheets("Sheet1").Select

Application.ActivePrinter = "Acrobat PDFWriter on LPT1:"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _

"Acrobat PDFWriter on LPT1:", PrintToFile:=True,
PrToFilename:="ThePDF" & Trim(Str(intN + 1))

intN = intN + 1



Have a nice cup of tea

 

[Daniel Bonallack]

Thanks! (to someone who understands the need for a nice
cup of tea)