Zdravím,
nějak se mi nedaří spojit tři makra dohromady. Jednotlivě vše funfuje, každou operaci mám v dokumentu pod jedním tlačítkem. Chtěl bych, ale mít ještě jedno tlačítko, které by udělalo vše najednou, tedy dokument uložilo, 3x vytisklo a dokumnet zavřelo.
Přikládám kod, který jsem si byl schopný záznamníkem vytvořit, dál prosím o pomoc.
sub uloz_tisk_zavri
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:Save", "", 0, Array())
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Copies"
args1(0).Value = 3
args1(1).Name = "Collate"
args1(1).Value = true
dispatcher.executeDispatch(document, ".uno:Print", "", 0, args1())
rem ----------------------------------------------------------------------
rem zavre dokument
thisComponent.CurrentController.Frame.close( true )
end sub
Editoval Trambus (10. 3. 2017 08:44:57)