Antônio,
Fiquei fuçando o BrOffice e, através do gravar macro, descobri um modo de
abrir o diálogo imprimir.
Segue o código:
sub DialogoImprimir
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")
dispatcher.executeDispatch(document, ".uno:Print", "", 0, Array())
*
end sub
Espero que te auxilies.
Por favor, depois nos informa se funcionou.
Inté +
--
Francival Lima
O Moc, O Mocorongo.
francival.wordpress.com
2008/7/31 Antônio Ezequiel <[EMAIL PROTECTED]>
> Por favor,
> alguém sabe como fazer para abrir a caixa de diálogo imprimir padrão do
> open office por meio de macro escrita e ooBasic?
> Ou como simular o pressinonamente de teclas (um comando tal como o
> "SendKeys" do VBA)?
> Grato.
> Antonio Ezequiel.
>
>
> Novos endereços, o Yahoo! que você conhece. Crie um email novo com a
> sua cara @ymail.com ou @rocketmail.com.
> http://br.new.mail.yahoo.com/addresses
