Print excel sheet to a PDF file

[xander1981]

Hello Excel guys, I feel stupid again.

Ive been trying to get my excel sheet to print to my desktop as PDF as we have a PDF writer as a printer. I have the following code which is terrible im sure but hope you will get my gist. Any ideas?

Sub print2pdf()
                   
    Application.ActivePrinter = "PDF Writer on Ne02:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDF Writer on Ne02:", Collate:=True, PrToFileName:="C:\Documents and Settings\aljacobs\Desktop\Filename.pdf"
                 
End Sub

the file does get created to my desktop but it wont open

[Admin]

You mean like

ActiveWindow.SelectedSheets.PrintOut Copies:=1, preview:=True, ActivePrinter:= _
        "PDF Writer on Ne02:", Collate:=True, PrToFileName:="C:\Documents and Settings\aljacobs\Desktop\Filename.pdf"

[xander1981]

Thanks Admin but same results as my code. File is written to my desktop but it wont open.