von Charly » Mi, 03.03.2010 10:32
Hallo!
Das wirst du nur mit einem Makro schaffen. Ich habe mal ein ähnliches Makro geschrieben für Hoch- und Querdruck.
Du musst dir dazu zwei Formatlagen (Taste F11) anlegen, einmal mit Schacht1 und einmal mit Schacht2. Mit dem Makro kannst du dann diese Vorlagen zuweisen und ausdrucken. Den Druck habe ich mit dem Makrorekorder erstellt.
Hier mein Beispielcode. Den musst du entsprechend anpassen.
Code: Alles auswählen
sub Drucken
Dok = ThisComponent
Controller = Dok.getCurrentController
Blatt = Controller.ActiveSheet
document = Controller.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Blatt.pageStyle = "hoch"
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:PrintDefault", "", 0, Array())
wait 10000
Blatt.pageStyle = "quer"
dispatcher.executeDispatch(document, ".uno:PrintDefault", "", 0, Array())
end sub
Gruß
Charly
Hallo!
Das wirst du nur mit einem Makro schaffen. Ich habe mal ein ähnliches Makro geschrieben für Hoch- und Querdruck.
Du musst dir dazu zwei Formatlagen (Taste F11) anlegen, einmal mit Schacht1 und einmal mit Schacht2. Mit dem Makro kannst du dann diese Vorlagen zuweisen und ausdrucken. Den Druck habe ich mit dem Makrorekorder erstellt.
Hier mein Beispielcode. Den musst du entsprechend anpassen.
[code]
sub Drucken
Dok = ThisComponent
Controller = Dok.getCurrentController
Blatt = Controller.ActiveSheet
document = Controller.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Blatt.pageStyle = "hoch"
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:PrintDefault", "", 0, Array())
wait 10000
Blatt.pageStyle = "quer"
dispatcher.executeDispatch(document, ".uno:PrintDefault", "", 0, Array())
end sub
[/code]
Gruß
Charly