it works then it doesn't then it does

[monnoir]

This little macro will PDF-print and save with filename= Cell A8 value. A value that change before the next print. Usually every thing work fine but once in a while, for a reason I would like to know, the sytem call for a filename input instead of reading it from cell A8. Then, without any change, the macro work fine again. Any hint?
Thanks!


Sub printPDF()
Dim strOldPrinter As String
'save default printer string
strOldPrinter = Application.ActivePrinter
Application.SendKeys "{return}" & Range("a8") & "{return}", True
Application.Dialogs(xlDialogPrint).Show
'restore old printer string
End sub

 

[Domski]

Hi,

I tried using Sendkeys to give pdf files a name a while ago and ran into a similar problem, gave up eventually as was advised it probably wasn't ever going to work consistently.

If you have Adobe Acrobat have a look at this:

http://www.mrexcel.com/board2/viewtopic.php?t=200960&highlight=pdf

It took me ages to get it to get it to work as coding's something I'm learning very slowly.

Otherwise I've seen various other threads on printing to pdf files using other freely available software if you search the boards.

Hope this helps.