In einem Makro einen Druckbereich einer Tabelle löschen

[T F]

Hallo Forum,

ich bin neu hier und habe ein kleines Problem mit einem Makro. Nach dem Ausfüllen einer Tabelle, soll diese gespeichert werden und danach soll daraus ein PDF exportiert werden. Dazu soll beim Speichern das 1. Tabellenblatt ausgeblendet werden und das 6. Tabellenblatt soll, wenn in Feld E36 eine 0 steht, auch ausgeblendet werden und der Druckbereich des 6. Blattes von $A$1:$G$43 gelöscht werden, da sonst dieser Bereich bei exportieren zu PDF mit erscheint.
Hier das Makro so weit es funktioniert:

Code: Alles auswählen

Sub speichern_unter_wep
dim dummy()
myDoc = thisComponent
mySheet = myDoc.sheets(0) '1. Tabellenblatt
namenszelle = mysheet.getCellRangeByName("B2")
parzelle = mysheet.getCellRangeByName("C2")
datumzelle = mysheet.getCellRangeByName("A2")
rem ------------------------------------------
rem ausblenden der 1. Tabelle beim Speichern.

mySheet = myDoc.Sheets().getByName("Grunddateneingabe")
mysheet.isvisible=false

oDoc = ThisComponent   'das Dokumentenobjekt
oSheet = oDoc.sheets(5)  ' das 6. Tabellenblatt Objekt
oCell = oSheet.getCellRangeByName("E36")  'das Objekt der Zelle E36

nWert = oCell.value             'Wert der Zelle - Zahlen
   if nwert = 0 then
   mySheet = myDoc.Sheets().getByName("Restwertberechnung")
   mysheet.isvisible=false
   
[quote]Hier soll dann der Druckbeich gelöscht werden[/quote]

   end if
   rem -------------------------------
   
'Lesen der Werte
Dateiname= namenszelle.string &"_" & "Parz." & " " & parzelle.string &"_" & datumzelle.string

dateipfad="D:/LibreOffice/Neu/"& Dateiname &".ods"
'dein Pfad muss ^^^^^^^^^^^^^^^ dort innerhalb der "-Anführungszeichen stehen !
dateiurl=converttourl(dateipfad)
mydoc.storeasurl(dateiurl,dummy())

End Sub

Wie muss ich das Makro weiter schreiben damit der Druckbereich gelöscht wird? Habe leider im Web nicht passendes finden können. Kann mir jemand weiterhelfen?
Viele Grüße
T.F.

[Helmut_S]

Hallo, hier ein Link zu einer Datei namens "Makroprogrammierung_V41.odt" in der ein vollständiges Makro zum Export einer Calc Tabelle als PDF File beschrieben ist.
https://www.bing.com/search?q=Makroprog ... a84e22fbfe
Wenn du - wie du schriebst

Habe leider im Web nicht passendes finden können.

nichts finden konntest, solltest du die Suchmaschine in deinem Browser wechseln .
Gruß Helmut

[T F]

Danke für den Tipp. Guck mir das mal an.
Grüße
T F