Rozdíly

Zde můžete vidět rozdíly mezi vybranou verzí a aktuální verzí dané stránky.

--- reports:openoffice [2012/06/26 13:34] – Makro na odstránkování podle textu v buňce pavel
+++ reports:openoffice [2024/02/02 08:31] (aktuální) – [Makro na odstránkování podle textu v buňce] Libor Kadaník
@@ Řádek 1: / Řádek 1: @@
 ====== Výstupy do OpenOffice calc ======
+===== Převod šablon .stc na .ots =====
+**stc2ots.sh**
+<code>
+#!/bin/sh
+echo spustit v adresari s reporty
+for i in `find -name "*.stc"`; do unoconv -f ots $i; done
+for i in `find -name "*.stc"`; do git rm $i; done
+for i in `find -name "*.ots"`; do git add $i; done
+for i in `find -name "*_reports.xml"`; do perl -pi -e's/\.stc/.ots/' $i; done
+</code>
 ===== Vzorce pro počítání hodnot na jednotlivých řádcích =====
@@ Řádek 8: / Řádek 21: @@
 <code>=INDIRECT(CONCATENATE("F";CELL("ROW")))+INDIRECT(CONCATENATE("K";CELL("ROW")))</code>
+===== CRLF z SQL =====
+pro zalomení (viditelné v buňce) se musí vložit nezlomitelná mezera společně s CRLF
+<code> ... list(idskladkarta, ASCII_CHAR(160)||ASCII_CHAR(13)||ASCII_CHAR(10)) ... </code>
 ===== Makro na odstránkování podle textu v buňce  =====
@@ Řádek 24: / Řádek 42: @@
   Sheet = ThisComponent.getSheets().getByIndex(0) 'hledej na prvnim listu
-  CellRange=Sheet.getCellRangeByName("J1:J3000") 'hledej ve sloupci J
+  CellRange=Sheet.getCellRangeByName("A1:A3000") 'hledej ve sloupci J
   Descriptor=CellRange.createSearchDescriptor()
   With Descriptor
     .SearchCaseSensitive=False
-    .SearchString="Dodací list"
+    .SearchString="KonecStranky"
     .SearchType=1 'Search for values, not just formulas. This is an undocumented property
     .SearchWords=True 'Search the whole cell, not just part of it
@@ Řádek 36: / Řádek 54: @@
   dim args1(0) as new com.sun.star.beans.PropertyValue
-  For i=0 to Found.Count-1
+  If not ISNULL(Found) then
-    'MsgBox Found(i).AbsoluteName
+    For i=0 to Found.Count-1
-    args1(0).Name = "ToPoint"
+      'MsgBox Found(i).AbsoluteName
-    args1(0).Value = Found(i).AbsoluteName
+      args1(0).Name = "ToPoint"
-    dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
+      args1(0).Value = Found(i).AbsoluteName
-    dispatcher.executeDispatch(document, ".uno:InsertRowBreak", "", 0, Array())
+      dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
-  Next
+      dispatcher.executeDispatch(document, ".uno:InsertRowBreak", "", 0, Array())
+      dispatcher.executeDispatch(document, ".uno:ClearContents", "", 0, Array()) 'smaz text v bunce
+    Next
+  EndIf
   'skok zpatky na A1
@@ Řádek 50: / Řádek 71: @@
 end sub
+</code>
+===== Makro na export do PDF  =====
+Makro si zjistí plnou cestu a název otevřeného souboru a do stejného adresáře pod stejným názvem uloží .pdf.
+Pro automatické spuštění po otevření dokumentu je nutné makro "navěsit" např. na akci **Otevřít dokument** (menu Nástroje -> Přizpůsobit -> Události) - vhodné pro tisk s pevně danou cestou k výstupnímu souboru (viz [[lua:tisk_pomoci_lua|Tisk pomocí LUA]]).
+<code freebasic>
+Sub SavePDF
+cFile = ThisComponent.URL
+cFile = Left(cFile, Len(cFile) - 4) + ".pdf"
+oDoc = StarDesktop.getCurrentComponent()
+oDoc.storeToURL( ConvertToURL( cFile ),_
+      Array( _
+         MakePropertyValue( "FilterName", "writer_pdf_Export" ) )
+End Sub
+Function MakePropertyValue( Optional cName As String, Optional uValue ) As com.sun.star.beans.PropertyValue
+   oPropertyValue = createUnoStruct( "com.sun.star.beans.PropertyValue" )
+   If Not IsMissing( cName ) Then
+      oPropertyValue.Name = cName
+   EndIf
+   If Not IsMissing( uValue ) Then
+      oPropertyValue.Value = uValue
+   EndIf
+   MakePropertyValue() = oPropertyValue
+End Function
+</code>
+===== Makro pro optimalni vysku vsech radku  =====
+<code freebasic>
+sub Main
+  doc = thisComponent
+  list = doc.sheets(0)
+  radky = list.rows
+  list.rows().OptimalHeight = True
+end sub
 </code>
 ====== Výstupy do OpenOffice writer ======
@@ Řádek 72: / Řádek 140: @@
 Lze také stáhnout [[http://extensions.services.openoffice.org/en/project/jsignpdf|extension do OpenOffice]]
+====== Úprava velkých repeated formátu OpenOffice - zaseknutí tisku ======
+Moznosti|LibreOffice|Expertni nastaveni:
+org.openoffice.Office.Common.Save.Document.PrettyPrinting = true
+<code bash>
+unzip system/reports/ucto/prehledvysledku.stc -d /tmp/ content.xml
+grep repeated /tmp/content.xml
+vim /tmp/content.xml
+zip -u -j system/reports/ucto/prehledvysledku.stc /tmp/content.xml
+</code>
+====== Formátovaní čísla na výstupu ======
+Do buňky napsat **#@return {NumberFormat=DSI:GetMenaJazykDatum().Format, Value=DSI:FieldByName("cena"), BrushColor=...., FontColor=...., FontStyle=....}**
+====== Zobrazení po tisku v excelu ======
+Nedrží okraje + zápatí se překrývá s tiskem.
+Řešení: ve formátu stránky - **Zápatí** zaškrtnout volbu **Automatická úprava výšky**