Con questo codice aggiungi ad una combobox (ccstampante) le stampanti installate:

Dim stamp As Printer
For Each stamp In Printers
ccstampante.AddItem stamp.DeviceName
Next stamp


La seguente Sub fa si che la stampante che l'utente seleziona sia usata per la stampa :


Private Sub ccstampante_AfterUpdate()
Set Application.Printer = Application.Printers.Item(Me.ccstampante.Value)
End Sub