Abundant Technologies - IT Consulting Experts

 Source Code Library

 Code Details

 
Private Sub PrinterToPrint(Printer_To_Print) Dim x As Printer Dim Pcount As Integer For Each x In Printers If Trim(UCase(x.DeviceName)) = Trim(UCase(Printer_To_Print)) Then Set Printer = Printers(Pcount) Exit For End If Pcount = Pcount + 1 Next End Sub

Mail To: info@3pc.com