von RS » Mo, 04.12.2006 11:11
Hi,
habe mir das Folgende zusammengebastelt (Makrorecorder+Code aus dem OO-Makros-Buch), allerdings in Abweichung von dem bereits geposteten Makro für den ersten Teil. Bei mir funktioniert es, und vielleicht ist es das, was Du wolltest.
Gruß,
Rebecca
sub Main
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:PrintDefault", "", 0, Array())
rem ----------------------------------------------------------------------
ThisComponent.store()
wait(100)
ThisComponent.dispose()
end sub
Hi,
habe mir das Folgende zusammengebastelt (Makrorecorder+Code aus dem OO-Makros-Buch), allerdings in Abweichung von dem bereits geposteten Makro für den ersten Teil. Bei mir funktioniert es, und vielleicht ist es das, was Du wolltest.
Gruß,
Rebecca
sub Main
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:PrintDefault", "", 0, Array())
rem ----------------------------------------------------------------------
ThisComponent.store()
wait(100)
ThisComponent.dispose()
end sub