Macro para exibir nome da impressora ativa

[GilmarD.Klann]

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.

[schiavinatto]

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

[GilmarD.Klann]

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