Samotné makro pro export do PDF je celkem jednoduché, co je nutné vyřešit:
Jestli jsem to správně pochopil, tak List2 obsahuje vždy pouze jeden záznam (řádek z Listu1), zřejmě poslední záznam.
Potřebujete vytvořit cyklus, který bude mít za počátek druhý řádek Listu1 a za konec číslo posledního použitého řádku, který bude automaticky měnit údaje na List2 po jednotlivých řádcích List1 - dá se řešit více způsoby.
Ten export do PDF - je nutné zadat cestu - lze přímo, nebo se dá použít i adresář kde je dokument uložen. Název PDF - myslíte číslo řádku?
Makro bude při větším počtu řádků časově náročnější.
S cykly Vám pomůže tento článek Cykly v makrech. Export do PDF makrem teprve vyjde, takže nejjednodušší cesta je:
sub pdf
doc = thisComponent
adr = left (doc.url, len (doc.url)-4)+".pdf" ' prosté přejmenování dokumentu s koncovkou .pdf - je uloženo ve stejném
'adresáři jako originální dokument,
dim podminka_filtru (0) as new com.sun.star.beans.PropertyValue
podminka_filtru (0).Name = "PageRange"
podminka_filtru (0).Value = "1-5" ' pro strany 1-5
dim podminka_exportu (1) as new com.sun.star.beans.PropertyValue
podminka_exportu (0).Name = "FilterName"
podminka_exportu (0).Value = "calc_pdf_Export"
podminka_exportu (1).Name = "FilterData"
podminka_exportu (1).Value = podminka_filtru
doc.storeToURL (adr, podminka_exportu ())
end sub
Zkuste si kód upravit a pokud nebude fungovat, vložte ho sem.
Bez dokumentu, ve kterém se má makro spouštět Vám asi víc neporadím.
;o)