นำไปใช้กับ
วัตถุ Application |
วัตถุ Form |
วัตถุ Report |
ส่งกลับหรือตั้งค่าวัตถุ Printer ที่แสดงเครื่องพิมพ์เริ่มต้นบนระบบปัจจุบัน อ่าน/เขียน
นิพจน์.Printer
นิพจน์ จำเป็น นิพจน์ที่ส่งกลับวัตถุใดวัตถุหนึ่งในรายการ นําไปใช้กับ
ตัวอย่าง
ตัวอย่างต่อไปนี้ทำให้เครื่องพิมพ์แรกในคอลเลกชัน Printers เป็นเครื่องพิมพ์เริ่มต้นของระบบ จากนั้นรายงานชื่อ ข้อมูลโปรแกรมควบคุมข้อมูล และข้อมูลพอร์ต
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