This is a multi-part message in MIME format.

------=_NextPart_000_037C_01C206DF.72AB5560
Content-Type: text/plain;
	charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable

The following code was presented earlier by Yehuda Rosenblum 
<Yehuda@I...>:

 Dim objPrint As Printer
    For Each objPrint In Printers
        If objPrint.DeviceName =3D "Laser Jet X" Then
            Set Printer =3D objPrint
            Exit For
        End If
    Next