Makros zusammensetzen

[menhir]

Mein Dokument enthält 13 Sheets.
1. Jedes Sheet enthält ein Makro welches das Blatt drucken oder als PDF speichern soll. Das klappt auch. Aber: Zuletzt kommt immer noch das Fenster mit den Druckereinstellungen. Geht es nicht auch ohne?

2. Ich möchte aus mehreren Sheets ein zusammenhängendes PDF abspeichern können. Kann ich einzelne Makros so zusammenhängen dass dies funktioniert?

3. Ein Sheet soll mehrere Druckbefehle für andere Sheets enthalten. Das heisst, das Sheet hat mehrere Tasten, welche den Druck anderer Sheets auslösen sollen.

Besten Dank für zielführende Bemerkungen

[mikele]

Hallo,
die kurze Antwort: ja, das ist möglich.
Die spannende Frage ist, wo man ansetzen soll. Dazu wäre es sinnvoll erfahren
a) wie dein aktuelles Makro ausssieht
b) wie Nr. 2 und Nr. 3 konkret bedeuten (Welche Tabellen? Frei wählbar? ...)

[menhir]

Hallo,
die kurze Antwort: ja, das ist möglich.
Die spannende Frage ist, wo man ansetzen soll. Dazu wäre es sinnvoll erfahren
a) wie dein aktuelles Makro ausssieht
b) wie Nr. 2 und Nr. 3 konkret bedeuten (Welche Tabellen? Frei wählbar? ...)

Das Dokument enthält insgesamt 13 Sheets.
Whg01 bis Whg09 sind einzelne Sheets mit je einem Makro zum exportieren als pdf.
So sieht das einzelne Makro aus:

REM ***** BASIC *****

sub Whg01
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 = "ToPoint"
args1(0).Value = "$A$1:$T$40"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(3) as new com.sun.star.beans.PropertyValue
args2(0).Name = "URL"
args2(0).Value = "file:///Users/danielherrmann/Desktop/Whg01.pdf"
args2(1).Name = "FilterName"
args2(1).Value = "calc_pdf_Export"
args2(2).Name = "FilterData"
args2(2).Value = Array(Array("UseLosslessCompression",.........
args2(3).Name = "SelectionOnly"
args2(3).Value = false

dispatcher.executeDispatch(document, ".uno:ExportTo", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$A$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())


end sub

Makro ENDE

Nun möchte ich eben die 9 (eigentlich gleichen) Makros zusammenhängen.
Ich müsste also in jedem Makroteil das entsprechende Sheet aufrufen können...