S’applique à
Objet Application |
Objet Form |
Objet Report |
Renvoie ou définit un objet Printer représentant l’imprimante par défaut sur le système actuel. Lecture/écriture.
expression.Printer
expression Obligatoire. Expression qui renvoie l’un des objets de la liste S’applique à.
Exemple
L’exemple suivant définit la première imprimante dans la collection Imprimantes en tant qu’imprimante par défaut pour le système, et rapporte son nom, les informations sur son pilote et les informations sur son port.
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