PDF-Tabellenblattausgabe gibt Blatt zuviel aus

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Postbyme
***
Beiträge: 90
Registriert: Mo, 27.11.2017 18:42

PDF-Tabellenblattausgabe gibt Blatt zuviel aus

Beitrag von Postbyme »

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.

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 
Vielen Dank das ihr euch das mal anschaut.
-------------------------------------------------------
Windows 11 22H2 /Libre Office 7.3.6.2 (x64)