Se aplică la
Obiectul Application |
Obiectul Form |
Obiectul Report |
Returnează sau setează un obiect Printer ce reprezintă imprimanta implicită din sistemul curent. Citire/scriere.
expresie.Printer
expresie Obligatoriu. O expresie care returnează unul dintre obiectele din lista Se aplică la.
Exemplu
Următorul exemplu face din prima imprimantă din colecția Printers imprimanta implicită pentru sistem, apoi raportează numele său, informațiile despre driver și informațiile despre porturi.
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