Error Settind Default Printer in VBA

[Vassago]

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!