Select not default printer

[Taxidriver]

Hello, how can I choose a printer via code (not the default printer) without changing the default printer?

 

[PHV]

Depending of your version of access you may take a look at the Application.Printers collection and the Application.Printer property.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[Taxidriver]

I write
Set Application.Printer = Application.Printers("\\qfax\qfile")
but gives me an error, either the call is not valid or the argument.

 

[Taxidriver]

Ok now it works, I had to put the name of the printer in a variable and the pass it to application.printers. now it's fine, thanks!

 

[Taxidriver]

Is there a command to retrieve automatically the default printer, in order to avoid explicit definitions?

 

[PHV]

From the help file:
Dim prtDefault As Printer
Set prtDefault = Application.Printer
With prtDefault
MsgBox "Device name: " & .DeviceName & vbCr _
& "Driver name: " & .DriverName & vbCr _
& "Port: " & .Port
End With

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[CautionMP]

Similar thread:

http://www.tek-tips.com/viewthread.cfm?qid=965639&page=2

Might solve your problem with out code.

 

[Taxidriver]

PHV I think that I cannot use your code, it requires specific casting; I have to put in the code the info about the printer, is it right?
I tried to put the code in the faq

http://www.tek-tips.com/faqs.cfm?fid=5479

and it works quite well!