How to assign a printer

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

Code:

---

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]

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

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

Again, thanks for your help.