Si applica a
|
Oggetto Application |
|
Oggetto Form |
|
Oggetto Report |
Restituisce o imposta un oggetto Printer che rappresenta la stampante predefinita del sistema corrente. Lettura/scrittura.
espressione.Stampante
espressione Obbligatorio. Espressione che restituisce uno degli oggetti inclusi nell'elenco Si applica a.
Esempio
L'esempio seguente rende predefinita la prima stampante nella raccolta Stampanti per il sistema e quindi ne segnala il nome, le informazioni sui driver e sulla porta.
Dim prtDefault As Printer
Set Application.Printer = Application.Printers(0)
Set prtDefault = Application.Printer
With prtDefault
MsgBox "Device name: " & .DeviceName & vbCr _
& "Driver name: " & .DriverName & vbCr _
& "Port: " & .Port
End With
