1 touch printing macro

[tygi]

I have a problem setting up my printer macro. Excel sets up a printing
session that won't allow my macro to work. So is there a way to bypass
or override the printing session (Ne01) that it sets up? This
macro is supposed to choose a printer, then after printing the
document, it should change it back to the default printer. Please tell
me how to write the proper code.

*Sub Macro3()
'
' Macro3 Macro
' Macro recorded 8/12/2005 by Tygi

'
Application.ActivePrinter = "\\ATLAS\DoorshopRicoh1013F on Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\ATLAS\DoorshopRicoh1013F on Ne01:", Collate:=True
Application.ActivePrinter = "\\ATLAS\Ricoh1013FPCL6 on Ne01:"
End Sub*

 

[bill k]

Not sure whether this could also be the problem at your
place.............but

I have been working with this solution for a while now.
We had the problem of the network assigning different numbers to the
network printers using Ne01, Ne02, Ne03 or Ne04.
This macro will search the possibilities and always find the right
one.
It will then execute the print job and go back to the default printer



Sub selectprntrandprintlbl()
Dim oldpname As String
Dim temppname As String
oldpname = Application.ActivePrinter
For j = 0 To 9
On Error Resume Next
temppname = "\\nzdfprn01\Label_UHT_Sato on Ne0" & j & ":"
Application.ActivePrinter = temppname
If Application.ActivePrinter = temppname Then
Exit For
End If
Next j
Application.ActivePrinter = "temppname"
prntlbl
'prntlbl is the name of a macro
Application.ActivePrinter = oldpname

End Sub

Hope that helps