Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

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())

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

com.sun.star.beans.PropertyValue

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

args1()) end sub

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

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

:)

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

:)=)

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

=)