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 PrinterSet Application.Printer = Application.Printers(0)Set prtDefault = Application.PrinterWith prtDefault MsgBox "Device name: " & .DeviceName & vbCr _ & "Driver name: " & .DriverName & vbCr _ & "Port: " & .PortEnd With
