Aplica-se a
|
Objeto Application |
|
Objeto Form |
|
Objeto Report |
Devolve ou define um objeto Printer que representa a impressora predefinida no sistema atual. De leitura/escrita.
expressão.Impressora
expressão Obrigatório. Uma expressão que devolve um dos objetos na lista Aplica-se A.
Exemplo
O exemplo seguinte torna a primeira impressora na coleção Printers a impressora predefinida do sistema e, em seguida, cria um registo do nome, das informações de controlador e das informações de porta da mesma.
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
