Set default printer for excel

[Unexpc]

Hi guys

there is a option or macro i choose one printer for default?(beacuse i change printer in multiple app and when i change printer, in the excel changed printer, i want choose a default printer just for excel)

 

[Dossfm0q]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
    Dim DefaultPrinter As String
    Dim Tempraryprinter As String

    Tempraryprinter = "Name your Printer" ' <<<<<<Or others like "Microsoft Print to PDF"

    DefaultPrinter = Application.ActivePrinter
    ActiveSheet.PrintOut Preview:=False, ActivePrinter:=Tempraryprinter, PrintToFile:=True, PrToFileName:=PSFileName
    Cancel = False
    Application.ActivePrinter = DefaultPrinter

End Sub

 

[Unexpc]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
    Dim DefaultPrinter As String
    Dim Tempraryprinter As String

    Tempraryprinter = "Name your Printer" ' <<<<<<Or others like "Microsoft Print to PDF"

    DefaultPrinter = Application.ActivePrinter
    ActiveSheet.PrintOut Preview:=False, ActivePrinter:=Tempraryprinter, PrintToFile:=True, PrToFileName:=PSFileName
    Cancel = False
    Application.ActivePrinter = DefaultPrinter

End Sub

View attachment 26075

Thanks man but i have a problem, when i select quick print and i print, it shows again save output as...
What am i do? (I tested microsoft print to pdf that is good and i set it default printer)

 

[Dossfm0q]

try

Private Sub Workbook_Open()
    Dim DefaultPrinter As String
    Dim Tempraryprinter As String

    Tempraryprinter = "Microsoft Print to PDF" '

   Application.ActivePrinter = Tempraryprinter & " on Ne01:"
    

End Sub

 

[Unexpc]

try

Private Sub Workbook_Open()
    Dim DefaultPrinter As String
    Dim Tempraryprinter As String

    Tempraryprinter = "Microsoft Print to PDF" '

   Application.ActivePrinter = Tempraryprinter & " on Ne01:"
   

End Sub

Yeah thats work, THANKS

 

[Dossfm0q]

You are welcome
Thank you for Feedback

 

[Unexpc]

You are welcome
Thank you for Feedback

Hi again
i have recently receive an error for color line

Private Sub Workbook_Open()
    Dim DefaultPrinter As String
    Dim Tempraryprinter As String


    Tempraryprinter = "Microsoft Print to PDF" '


[COLOR=rgb(226, 80, 65)]   Application.ActivePrinter = Tempraryprinter & " on Ne01:"[/COLOR]
   


End Sub

this may been this problem from another code in this workbook codes?