Print to PDF writer and save with custom file name

[cubbydaniel]

I have been using this print code but now they want me to save it with longer file name

Loan #_ document id_ document id _ document id_time stamp.pdf

I get the idea of changing the printer but what i dont get is how to get the underlines and how do i tell it to save it with those different document ids i am limited to how many values i can have.



Sub Printsheet()
Sheets("Notes").Range("a1:l91").Select
Application.ActivePrinter = "Microsoft XPS Document Writer on Ne00:"
ThisFile = Range("o6").Value
ThisFile2 = Range("o7").Value2
FileDrive = "C:\Users\El Gordo\Desktop\new folder\"
Selection.PrintOut Copies:=1, ActivePrinter:= _
"Microsoft xps Document Image Writer on ne00:", Collate:=True, _
printtofile:=True, prtofilename:=FileDrive & ThisFile & ThisFile2 & ".xps"
End Sub

 

[Sanjeev1976]

Thanks.

It works perfectly now.