Van toepassing op
|
Application-object |
|
Formulierobject |
|
Rapportobject |
Retourneert een Printer-object dat de standaardprinter voor het huidige systeem vertegenwoordigt of stelt dit object in. Lezen/schrijven.
expressie.Printer
expressie Vereist. Een expressie die een van de objecten in de lijst Van toepassing op retourneert.
Voorbeeld
In het volgende voorbeeld wordt de eerste printer in de verzameling Printers als standaardprinter voor het systeem ingesteld, waarna de naam, stuurprogrammagegevens en poortgegevens worden gerapporteerd.
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
