Fórum
'Dim Impr As Printer
With Report1
' For Each Impr In Printers' If Impr.DeviceName = Impressora Then' .PrinterDriver = Impr.DriverName' .PrinterName = Impr.DeviceName' .PrinterPort = Impr.Port' Exit For' End If' Next