Help with Printing Macro

[pdkolmo]

I am trying to create a macro that will create pdf files. To do this manually, I go to the File-> Print menu, and in the select printers box, I change it from the default printer to the Adobe PDF file option. I need to build a macro that will automatically send/print the worksheet to a pdf file and ideally one that will also automatically provide a name for the pdf file when prompted. Can anyone help?

 

[u742884]

Here's some code I used once. I had my filename in a range called CurrStore on workhsheet Settings, but if you already know your filename, you can probably just hardkey it with quotes or perhaps call a variable where you have the filename stored.


Sub PrinttoPDF()
Application.ActivePrinter = "Acrobat PDFWriter on LPT1:"""
ActiveWindow.SelectedSheets.PrintOut PrinttoFile:=True, _
Prtofilename:=Worksheets("Settings").Range("CurrStore").Value
End Sub

I hope this helps.