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