Create Print button that print another sheet

[Unexpc]

Hi guys
how to create a vba button for print preview or quick print from another sheet?

 

[Unexpc]

Or better say Does any code that print from another sheet? That use by button or run a macro or print preview or quick print in quick access toolbar or anything...

 

[Unexpc]

Like this
i want select quick print in top of the app in ribbon window that quick print from another sheet...
how can i do this?

 

[Unexpc]

And anotherthing, can set default printer for this?
I have code for compile with subject post...

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

    Tempraryprinter = "Microsoft Print to PDF" '

   Application.ActivePrinter = Tempraryprinter & " on Ne01:"
    

End Sub

 

[maabadi]

Try Using This. Shows the all Printer names and you can select:

Application.Dialogs(xlDialogPrinterSetup).Show

 

[maabadi]

Also Check this method:
Go Settings -> Devices -> Printers & Scanners, scroll down and un-check "Let Windows manage my default printer".
Then Use this code:

CreateObject("WScript.Network").SetDefaultPrinter "Microsoft Print to PDF"

 

[Unexpc]

Also Check this method:
Go Settings -> Devices -> Printers & Scanners, scroll down and un-check "Let Windows manage my default printer".
Then Use this code:

CreateObject("WScript.Network").SetDefaultPrinter "Microsoft Print to PDF"

i just set a default printer for excel app,for example a code use in private sub before print

 

[maabadi]

Then again use this line at the last of your code at set back printer name to your previous default printer.

 

[Unexpc]

i don't know this is right?

Private Sub Workbook_Open()
CreateObject("WScript.Network").SetDefaultPrinter "Microsoft Print to PDF"
End Sub

 

[Unexpc]

Then again use this line at the last of your code at set back printer name to your previous default printer.

How about this do you know?