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?

Code:
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