MACRO HELP

[Guest]

I created a macro to print certain documents in Excel
after it prints I want the printer to default back to the
original printer not the one I created. I used the below
formula for the macro, but it's not defaulting back, can
you help me with this?

Application.ActivePrinter = "\\albprn01\finlj02 on Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
ActivePrinter:= _
"\\albprn02\finlj02 on Ne03:", Collate:=True

End Sub

 

[Jerry W. Lewis]

Assign the active printer to a variable before you change it, then
restore it from that variable after you print.

Jerry

 

[Guest]

I'm sorry to say, that I don't how how to do that, can you
provide some guidance?

 

[Don Guillett]

Here are a couple that might be of use
Sub Color_Printer()
Application.ActivePrinter = "Brother MFC-7000 Series on LPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True,
ActivePrinter:= _
"Brother MFC-7000 Series on LPT1:", Collate:=True
End Sub
Sub HP4Plus()
Application.ActivePrinter = "HP LaserJet 4 Plus on LPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, _
ActivePrinter:="HP LaserJet 4 Plus on LPT1:", Collate:=True
End Sub

 

[Guest]

Thanks Don, you are the best!

-----Original Message-----
Here are a couple that might be of use
Sub Color_Printer()
Application.ActivePrinter = "Brother MFC-7000 Series on LPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True,
ActivePrinter:= _
"Brother MFC-7000 Series on LPT1:", Collate:=True
End Sub
Sub HP4Plus()
Application.ActivePrinter = "HP LaserJet 4 Plus on LPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, _
ActivePrinter:="HP LaserJet 4 Plus on LPT1:", Collate:=True
End Sub


--
Don Guillett
SalesAid Software
(e-mail address removed)



.

 

[Don Guillett]

Hope it helps

 

[Jerry W. Lewis]

' save current printer settings
Dim aap, ap
aap = Application.ActivePrinter
ap = ActivePrinter

' add your code here which changes printer settings

' restore printer settings
ActivePrinter = ap
Application.ActivePrinter = aap

Jerry