Macro da caixa de diálogo: Exportar como PDF

Já pesquisei aqui e não encontrei.

Estou tentando gravar uma macro para abrir a caixa de diálogo abaixo: Exportar como PDF, mas não consigo!

.

Menu

.

Seria possível?

.

Grato pela atenção!

Orlando Souza

Ooops! Já consegui, como segue:

sub ExportarComoPDF
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue

dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args1())

end sub

.

Obrigado!

Orlando Souza

=)