Berlaku untuk
Objek Application |
Objek Form |
Objek Report |
Mengembalikan atau mengatur objek Printer yang mewakili printer default pada sistem saat ini. Baca/tulis.
ekspresi.Printer
ekspresi Diperlukan. Suatu ekspresi yang mengembalikan salah satu objek dalam daftar Berlaku Untuk.
Contoh
Contoh berikut membuat printer pertama dalam kumpulan Printer menjadi printer default untuk sistem, lalu melaporkan namanya, informasi driver, dan informasi 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