LibreOffice Calc Makro – Druckfunktion

[sia]

Hi Leute,

Würde gerne einen bestimmten Bereich eines Tabellenblatts in LibreOffice Calc in einem Makro drucken bzw am Liebsten die Druckvorschau anzeigen. Super wäre auch, wenn man den Bereich alternativ als PDF exportieren könnte. Leider finde ich im Internet recht wenig dazu – hat vielleicht jemand mehr Google-Fu oder Ahnung?

 

[mathmos]

Sub PrintSheet
   oCalc = thisComponent
   oSheet = oCalc.sheets().getByName("Tabelle1")'Tabellennamen anpassen
   myView = oCalc.CurrentController
   myView.setActiveSheet(oSheet) 
   oZellRange = oSheet.getCellRangeByName("$A$1:$B$20")'Bereich anpassen
   oCursor = oSheet.createCursorByRange(oZellRange)
   oAdress = oCursor.RangeAddress
   Dim aDruckbereich(0)
   aDruckbereich(0) = oAdress
   oSheet.setPrintAreas(aDruckbereich())
   oCalc.Print(Array())'Tabelle drucken
   oSheet.setprintareas(Array())'Druckbereich löschen
End Sub

Probier das mal bezüglich des Druckens eines bestimmten Bereiches.

Edit: Nicht von mir getestet, daher keine Garantie.

 

[sia]

You do not have permission to view link please Anmelden or Registrieren

woher hast du das denn? Probiere ich mal aus, danke

 

[mathmos]

Hat mir gestern Tante Google vor die Füße geschmissen.

You do not have permission to view link please Anmelden or Registrieren

Hat es geklappt?