Print and not using the standard printer 2

[Denaeghel]

How can I print files without using the Printer dialog Box and not using the standard printer.

 

[sunaj]

This should do it:

------------------------------------------------------------
Dim P As Printer, OldP As Printer
OldP = Printer
For Each P In Printers
If P.DeviceName = [the one you want] Then
Set Printer = P
Exit For
End If
Next
'do your printing here
Set Printer = OldP
------------------------------------------------------------

Sunaj

 

[Denaeghel]

Ok, it works but I get an error by SET PRINTER = OLDP. Error 13 - TYPE MISMATCH, but by SET PRINTER = P, I get no error.

What can I do wrong??? I just declare P and Old P as Public and use them in a another Procedure.

Could you say what I have to do

Thanks

 

[sunaj]

Hi,

Sorry my mistake.

It actuallly not neccesary to change back to the old printer because as soon at the program end this is done automatically.

If you want to do it anyway:

-----------------------------------------------------------
Dim P As Printer, OldP as string
OldP = Printer.DeviceName
For Each P In Printers
If P.DeviceName = "\\HOEK\castle" Then
Set Printer = P
Exit For
End If
Next
'do your printing here
For Each P In Printers
If P.DeviceName = OldP Then
Set Printer = P
Exit For
End If
Next
-----------------------------------------------------------

*:->* Sunaj

 

[Denaeghel]

OK, thanks