|
' serve a settare la stampante di defaul FUNZIONA!!!!!!!
Dim prn As Printer Dim StampanteFiscale As String StampanteFiscale = "Epson 800" For Each prn In Printers If prn.DeviceName = StampanteFiscale Then Set Printer = prn Exit For ' Printer.Print "Prova" ' Printer.EndDoc End If Next prn |