How to assign a printer

[jxiong]

How do I assign a specific printer to my Printer.devicename?

Thanks in advance for your help.

this will set a printer to be used by your application

Dim prn As Printer
   For Each prn In Printers
        If UCase$(prn.DeviceName) = "Name of a printer here" Then
            Set Printer = prn
            Exit For
        End If
    Next

[Edited by larryn on 10-18-2000 at 06:35 PM]

[jxiong]

Thanks, Larryn. Is that the only way I can
choose my printer? That is what I am doing
now, but I have 50+ printers and it just seems
it has got to be a better way.

Thanks, though for your reply.

Jay

that is the only way that i know of,
it is quick, does the job.

the only other way that i know of is a freeware
program written by Edward Brophy that sets the
default printer called sdp.exe

i have a copy if you want it let me know.
that was written in C++ but you can call it from
shell()

let me know if you need more information about it

[jxiong]

You are right. It is not that slow. I will keep it
just the way it is.

Again, thanks for your help.