Aplicável a
|
Objeto Application |
|
Objeto Form |
|
Objeto Report |
Retorna ou define um objeto Printer que representa a impressora padrão do sistema atual. Leitura/gravação.
expressão.Printer
expressão Obrigatória. Uma expressão que retorna um dos objetos na lista Aplica-se a.
Exemplo
O exemplo a seguir torna a primeira impressora da coleção Printers a impressora padrão do sistema, depois relata seu nome e informações de drivers e portas.
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
