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