Rozdíly

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

--- reports:openoffice [2017/01/19 14:23] – [Úprava velkých repeated formátu OpenOffice - zaseknutí tisku] Petr Kristan
+++ reports:openoffice [2024/02/02 08:31] (aktuální) – [Makro na odstránkování podle textu v buňce] Libor Kadaník
@@ Řádek 21: / Řá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 37: / Řá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 49: / Řá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 99: / Řádek 107: @@
+===== 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 123: / Řádek 143: @@
 ====== Úprava velkých repeated formátu OpenOffice - zaseknutí tisku ======
-Moznosti|LibreOffice|Expertni nastaveni
+Moznosti|LibreOffice|Expertni nastaveni:
 org.openoffice.Office.Common.Save.Document.PrettyPrinting = true
@@ Řádek 132: / Řádek 152: @@
 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**