tak tady je zdrojový kod, část napsaná a část nahraná. makro bude fungovat, v případě, že ve sloupci A je vzorec který vrací prázdnou buňku jako z vašeho příkladu.
makro si uložte a spojte s klávesovou zkratkou, nebo přiřaďte k tlačítku.....
nebo si upravte tento příklad
Tisk viditelných buněk
Sub tisk_vyberu
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
list=thisComponent.Sheets(1)' list cislo 2
i = 0 ' i je cislo radku
zacatek=list.getCellByPosition(0,0) ' bunka A1
do
konec = list.getCellByPosition(0,i)
i = i + 1
loop while konec.string > "" ' zkontroluje bunky ve sloupci A zda je vysledek hodnota
thiscomponent.currentcontroller.select(konec) ' vybere prvni bunku, ktera neobsahuje hodnotu
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "By"
args1(0).Value = 1
args1(1).Name = "Sel"
args1(1).Value = true
rem najdeme posledni pouzitou bunku
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, args1())
rem skryjeme radky s bunkami bez hodnot
dispatcher.executeDispatch(document, ".uno:HideRow", "", 0, Array())
rem vytiskneme
dispatcher.executeDispatch(document, ".uno:Print", "", 0, Array()
wait 2000
rem zobrazime zpatky radky
dispatcher.executeDispatch(document, ".uno:ShowRow", "", 0, Array())
rem presuneme se na bunku A1
thiscomponent.currentcontroller.select(zacatek)
end sub
Linux Mint 16 Petra - Apache OpenOffice 4.0.1
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte tak orientaci na fóru při vyhledávání řešení problémů
JAK OZNAČIT TÉMA ZA VYŘEŠENÉ