DefActivePrinter

Private Sub Combo1_Click()
If Combo1 <> "--- seleziona la stampante ---" And Combo1 <> "" Then Command1.Enabled = True Else Command1.Enabled = False
End Sub

Private Sub Command1_Click()
Dim prn As Printer
For Each prn In Printers
If prn.DeviceName = Combo1 Then
Set Printer = prn
Printer.Print "Prova"
Printer.EndDoc
End If
Next prn
End Sub

Private Sub Form_Load()
Dim prn As Printer
For Each prn In Printers
Combo1.AddItem prn.DeviceName
Next prn
End Sub

'******************************************************

'Fine Procedura.

'******************************************************