In einem Makro einen Druckbereich einer Tabelle löschen
Verfasst: Do 16. Jul 2020, 14:28
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:
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.
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 SubViele Grüße
T.F.
.