ich habe ein Dokument mit drei Tabellen:
1. Übersicht = Übersichtsmaske
2. Ergebnis
3. Datenquelle
Auf Tabelle 1 möchte ich eine Schaltfläche mit einem Makro erstellen, die Tabelle 2 (Ergebnis) ausdruckt.
Über dieses Makro bin ich schon mal soweit dass es klappt:
Code: Alles auswählen
REM ***** BASIC *****
Sub Main
End Sub
sub Druck_nurS3
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 ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value = 2
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$1:$V$53"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:PrintDefault", "", 0, Array())
End Sub
Wie mache ich das?
Hinweis:
Alternativ wäre auch die Druckeinstellung
"Alle Tabellen" - "aber nur Seite 3" möglich (da Tabelle1 aus 2 Druckseiten besteht).
Wenn ich das Makro allerdings aufzeichne, werden die Druckeinstellungen nicht gespeichert.
Das wäre für mich das allereleganteste, gibts diese Möglichkeit?
Danke für alle Hilfen!
Konrad