VBA to reset the default printer

[colinharwood]

CreatePDF:
Application.ScreenUpdating = False
CreateObject("WScript.Network").SetDefaultPrinter "Microsoft Print to PDF"
'copy details & save to PDF file
Range("$A$1:$H$45").Select
ThisFile = Range("N5").Value & " " & Range("O5").Value
FileDrive = "C:\TMES Email Renewals\"
Selection.PrintOut Copies:=1, ActivePrinter:= _
"Microsoft print to pdf", Collate:=True, _
printtofile:=True, prtofilename:=FileDrive & ThisFile & ".pdf"
Sheets("PDF Membership Card").Range("S1").Select

When using this code , It changes the default printer to "Microsoft Print to PDF". Is there a way to get the name of the original default printer, to use as a variable , to reset the default printer after printing to "Microsoft Print to PDF"
Thanks

 

[colinharwood]

here's the new screenshot

 

[jasonb75]

If this still fails on the same line then I think that it's not going to be possible to resolve this.

Sub test()
Dim oldPrinter As String
oldPrinter = Application.ActivePrinter

Application.ScreenUpdating = False
Application.ActivePrinter = "Microsoft print to pdf on Ne00:"
'copy details & save to PDF file
Range("$A$1:$H$45").Select
ThisFile = Range("N5").Value & " " & Range("O5").Value
FileDrive = "C:\TMES Email Renewals\"
Selection.PrintOut Copies:=1, Collate:=True, _
printtofile:=True, prtofilename:=FileDrive & ThisFile & ".pdf"
Sheets("PDF Membership Card").Range("S1").Select

Application.ActivePrinter = oldPrinter

End Sub

 

[colinharwood]

Very well done, it works as expected
thanks for sticking with it.