PDF-Tabellenblattausgabe gibt Blatt zuviel aus
Verfasst: Mi, 05.02.2020 22:06
Hallo zusammen,
aufbauend auf einem Thread mit Software hier im Forum (finde es nicht mehr) habe ich mich auch versucht ein spezielles Tabellenblatt als PDF auszugeben.
Möchte Tabellenblatt 4 (Index3) ausgeben aber Makro gibt Tabellenblatt 4 und 5 aus (5 ist das letzte). Habe schon an allen Werten rumgespielt aber bekomme es nicht hin. Mir scheinen auch manche Angaben doppelt. Verstehe leider nur 70 Prozent von der Funktionalität - die 30 fehlenden Prozent sind mein Problem.
Vielen Dank das ihr euch das mal anschaut.
aufbauend auf einem Thread mit Software hier im Forum (finde es nicht mehr) habe ich mich auch versucht ein spezielles Tabellenblatt als PDF auszugeben.
Möchte Tabellenblatt 4 (Index3) ausgeben aber Makro gibt Tabellenblatt 4 und 5 aus (5 ist das letzte). Habe schon an allen Werten rumgespielt aber bekomme es nicht hin. Mir scheinen auch manche Angaben doppelt. Verstehe leider nur 70 Prozent von der Funktionalität - die 30 fehlenden Prozent sind mein Problem.
Code: Alles auswählen
sub alist()
dim osheets, osheet1, odoc as object
dim sPath, sFileName as string
dim aPrintAreas()
odoc = ThisComponent
'oSheets = odoc.Sheets
oSheet1 = odoc.Sheets.getByName("ali") ' nötig?
sFileName= "file:///C:/Software/LO/adb/ali_test.pdf"
Dim CellRangeAddress As New com.sun.star.table.CellRangeAddress
odoc.Sheets(0).setPrintAreas(Array()) ' nötig?
CellRangeAddress.Sheet = 3
CellRangeAddress.StartColumn = 0
CellRangeAddress.StartRow = 0
CellRangeAddress.EndColumn = 9
CellRangeAddress.EndRow = 200
aPrintAreas()=Array(CellRangeAddress)
oSheet1.setPrintAreas(aPrintAreas())
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ExportFormFields"
args1(0).Value= True
args1(1).Name = "Printing"
args1(1).Value= 0
dim args2(2) as new com.sun.star.beans.PropertyValue
args2(0).Name = "FilterName"
args2(0).Value = "calc_pdf_Export"
args2(1).Name = "FilterData"
args2(1).Value = args1
args2(2).Name = "SelectionOnly"
args2(2).Value = false
ThisComponent.storeToURL(sFileName,args2())
End Sub