Áp dụng cho
|
Đối tượng Application |
|
Đối tượng Form |
|
Đối tượng Report |
Trả về hoặc đặt đối tượng Printer thể hiện máy in mặc định trên hệ thống hiện tại. Đọc/ghi.
expression.Printer
biểu thức Bắt buộc. Một biểu thức trả về một trong các đối tượng trong danh sách Áp dụng Cho.
Ví dụ
Ví dụ sau đây sẽ biến máy in đầu tiên trong tuyển tập Printer trở thành máy in mặc định cho hệ thống, rồi báo cáo tên máy in, thông tin trình điều khiển và thông tin cổng.
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
