ich versuche seit Stunden mit folgendem Makro das 2. Tabellenblatt (Rechnung) als PDF zu exportieren, erhalte jedoch immer nur das erste Tabellenblatt (Angebot). Der Dateiname wird bei beiden Tabellenblättern aus der Zelle AT2 des entsprechenden Tabellenblatts geholt.
Code: Alles auswählen
REM ***** BASIC *****
'=======================================================
Sub ExportSheetAsPdf()
ExportToPDF ("Rechnung", 0, 0 ,7 ,100)
End Sub
Sub ExportToPDF (sTableNam As String, lngErsteSpalte As Long, lngErsteZeile As Long, lngLetzteSpalte As Long, lngLetzteZeile As Long)
oDoc = ThisComponent
oSheets = oDoc.Sheets
oSheet1 = oDoc.Sheets.getByName(sTableNam)
oRange = oSheet1.getCellRangeByName("AT2")
oString = oRange.String
sPath = "file:///E:/2 - RECHNUNGSAUSGANG/2018/"
sFileName= oString & ".pdf"
ThisComponent.addActionLock
ThisComponent.LockControllers
Delete_PrintAreas
Set_PrintAreas (n ,lngErsteSpalte ,lngErsteZeile ,lngLetzteSpalte ,lngLetzteZeile)
export_pdf(sPath & sFileName)
Delete_PrintAreas
MsgBox "Das PDF wurden erfolgreich erstellt. Vielen Dank mein Schatz, ich liebe Dich!" , 0, "PDF Export"
Zeile1:
ThisComponent.UnlockControllers
ThisComponent.removeActionLock
End sub
LG Manu