Pergunte aqui
0

Macro para exibir nome da impressora ativa

perguntadas 2020-08-21 15:57:58 +0200

imagem do gravatar de Gilmar D. Klann

updated 2020-10-01 13:03:20 +0200

imagem do gravatar de Schiavinatto

Bom dia.

Preciso de uma macro em que retorne o nome da impressora padrão. Ou seja, após a seleção da impressora pelo comando ".uno:PrinterSetup" , a macro pegaria o nome da impressora selecionada e jogaria em um textfield para visualização da mesma. Tenho um diálogo que criei para impressão de etiqueta, e por esse motivo, dependendo do computador o responsável deve selecionar a impressora específica para essa impressão... Desde já, agradeço.

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Ola @Gilmar D. Klann, macros feitas com o gravador usa o comando "uno:print", ele abre o dialogo para seleção da impressora e parâmetros.

imagem do gravatar de SchiavinattoSchiavinatto ( 2020-08-21 16:54:06 +0200 )editar

1 Resposta

2

respondidas 2020-09-23 17:10:06 +0200

imagem do gravatar de Gilmar D. Klann

updated 2020-09-23 17:47:45 +0200

imagem do gravatar de Schiavinatto

Boa tarde.

Encontrei o resolução do meu problema. Segue macro para quem precisar:

Sub selectPrinter
    Dim oHelper as Object

    oDoc = ThisComponent
    oDescImp = oDoc.getPrinter()    

    oHelper = CreateUnoService("com.sun.star.frame.DispatchHelper")
    oHelper.executeDispatch(ThisComponent.getCurrentController(), _
    ".uno:PrinterSetup", "_self", 0, Array()) 

    oDialog1.getControl("Impressora").Text = oDescImp(0).Value

    'MsgBox (oDescImp(0).Value)
End Sub
editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2020-08-21 15:57:58 +0200

Lidas: 46 vezes

Última atualização: Sep 23 '20