Ausdrucke auf unterschiedlichen Formaten

[CoolMike]

Hallo,

ich bin in der Situation ein Dokument 2 mal auszudrucken, dabei aber auf unterschiedlichen Papierformaten. Das heißt einmal auf Drucker a und einmal auf Drucker B, oder eben aus zwei verschiedenen Papierschächten.
Hat da jeman eine Idee?

Ich danke schon mal jetzt
Gruß
Michael

[Charly]

Hallo!

Im Calc kannst du einstellen, aus welchem Druckerschacht gedruckt werden soll:

Menü - Format - Seite - Reiter Seite - Feld: Papierzufuhr.

Gruß
Charly

[CoolMike]

Hi Charly,
danke für die Antwort, aber meine Frage ist ein wenig komplizierter, ich möchte gerne ein Dokument drucken, mit einem Klick aber aus zwei verschiedenen Schächten. Ich möchte nicht gezwungen sein zweimal zu drucken.

Gruß
Michael

[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: 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

[CoolMike]

Hi Charly,
danke für diesen Ti, ich werde das mal versuchen umzusetzen, bin nur leider in eine andere Sache reingeworfen worden.
Gruß
Michael