Macro to select default printer

[manc]

Dear Demigods

I have a macro attached to a button that converts to PDF and emails the sheet automatically - Button A for example purposes.

I then have another button, which is the print button - Button B.

If click I click Button A first, then click Button B, it prints as PDF.

I need a bit of code that will change Button B back to the default printer being used, before printing out without prompts.


Hope that makes sense
Thanks for your time
Regards
manc

 

[Andrew Poulsom]

Just assign the value of the ActivePrinter to a variable and change back to it when done.

    Dim strPrinter As String
    strPrinter = Application.ActivePrinter
'   code
    Application.ActivePrinter = strPrinter

 

[manc]

Thanks for your suggestion Andrew

This is my code with the help of yours, or if you like, here is your code with my line added!


Sub Print_Sheet()
Dim strPrinter As String

strPrinter = Application.ActivePrinter
ActiveSheet.PrintOut
Application.ActivePrinter = strPrinter

End Sub


Still prints off as PDF.
What am I not doing?

Regards
manc

 

[Andrew Poulsom]

Where are you setting the printer to PDF?

 

[manc]

Re: Macro to select default printer (solved)

Thanks Andrew

I misunderstood what what happening.

I have added your code to the PDF macro, which makes sense now.

All works well. PDF prints as PDF, Printer prints to printer.

Thanks for your help
Regards
manc