verschiedene Druckbereiche per Makro steuern

[12dis02424]

Hallo liebe Open Office Gemeinde,

ich bin seit Wochen verzweifelt mit Hilfe von Google und Co. auf der Suche nach der Lösung für folgendes Problem.
Bisher leider ohne brauchbares Ergebnis und deshalb erhöffe ich mir hier die Lösung meiner Probleme

Ich möchte verschiedene Druckbereiche per Makro festlegen.

Ich befinde mich in dem Tabellenblatt "Tabelle 1" und von hier soll das Makro per Tastenkombination gestartet werden.

Über eine Wenn Funktion möchte ich in Zelle A1 (im Tabellenblatt "Tabelle 2") eines von 4 Möglichen Ergebnissen ermitteln.

z.B.
Test 1
Test 2
Test 3
Test 4

Nun möchte ich jedem Ergebnis einen bestimmten Druckbereich zuordnen, der Druckauftrag soll automatisch gestartet werden.

z.B.

Test 1 ---> a1:c20
Test 2 ----> d1:e20
Test 3 ----> f1:h20
Test 4 ----> ab1:ab10

Kann mir bitte einer dabei helfen.

Vielen Dank im voraus

Viele Grüße Norman

[F3K Total]

Hallo 12dis02424
zumindest für das Festlegen des Druckbereiches hier ein Code-Snipsel

Code: Alles auswählen

oTab = document.sheets(0)
'Druckbereich festlegen
Bereich = oTab.getCellRangeByPosition( nLeft as long, nTop as long, nRight as long, nBottom as long )
'alternativ:  Bereich = oTab.getCellRangeByName (A1:C24)
'Druckbereich setzen
Args_Bereich(0) = Bereich.RangeAddress
oTab.setprintAreas(Args_Bereich())

Viel Erfolg damit

Gruß R