Print to PDF Issue (Nearly There)

[marhun]

Hi All

Can someone please be off assistance, I am trying to tag a bit on to an existing macro that prints the workbook as a PDF and saves it. The problem seems to be that when the pop up comes up asking what to call the file the part of the macro that should hit "Enter" at that point is not working. Can one of you please help, the piece of code is below.

ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF on Ne02:", Collate:=True
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

SendKeys Filename & "{ENTER}", False


Thanks in advance for your help
Mark

 

[Domski]

If you're using Adobe Acrobat Pro this might help:

http://www.mrexcel.com/forum/showthread.php?t=193347&page=2

Dom