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