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


--
JP

http://www.solutionsvba.com


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