Error Settind Default Printer in VBA
 

Hello,

When I try to run the following code in a macro:

Sub PrintToAnotherPrinter()

Dim STDprinter As String

STDprinter = Application.ActivePrinter

ActivePrinter = "Adobe PDF on Ne02"

End Sub


I am getting an error code that looks like this:

Microsoft Visual Basic
Red Cross "400"
OK Help

Help brings up a blank screen and OK just cancels the operation. Can
anyone help me with my code?

Thanks!


--
Vassago
------------------------------------------------------------------------
Vassago's Profile: http://www.excelforum.com/member.php...o&userid=36906
View this thread: http://www.excelforum.com/showthread...hreadid=572880