Komentáře Export dokumentu do PDF pomocí maker

user avatar rad
Odpovědět
Export dokumentu do PDF pomocí maker
11. 02. 2014, 15:01:53
diky za tip. Fuguje to super. Poradite mi někdo jak precist nazev ukladaneho pdf z bunky?
user avatar Ludvík
Odpovědět
Export dokumentu do PDF pomocí maker
27. 02. 2014, 20:57:45
používám něco takového, ale též jsem to někde opsal tak vlatně nemohu asi moc radit
dim sPATH as string
dim arg(0) as new com.sun.star.beans.PropertyValue
dim s1 as object
dokument = ThisComponent
s1 = dokument.Sheets.GetByName("dopis")
sPATH = s1.GetCellRangeByName("P11").String
arg(0).Name = "FilterName"
arg(0).Value = "calc_pdf_Export"
ThisComponent.storeToURL(ConvertToUrl(sPATH), arg())

Je to takový výňatek z většího a složitějšího makra bez záruky funkčnosti, ale to načtení adresy z buňky "P11" na listu "dopis" tam vidět je
user avatar Jan
Odpovědět
Export dokumentu do PDF pomocí maker
18. 01. 2022, 15:33:11
Dobrý den,
dokázal by mi někdo prosím poradit, jak pomocí makra pro tisk do pdf toto pdf pojmenovat obsahem buňky?
Už jsem u toho proseděl několik hodin a pokus omyl nefunguje.
Díky za každou radu
user avatar kamlan
Odpovědět
Re:Export dokumentu do PDF pomocí maker
18. 01. 2022, 17:59:32
Jestli myslíte titulek co se nastavuje z menu Soubor/ Vlastnosti -> Popis/ Název, tak se makrem dá nastavit: ThisComponent.DocumentProperties.Title
Jestli myslíte pojmenovat PDF dle názvu souboru tak třeba ThisComponent.URL.

Všeobecně byste měl potřebné vlastnosti najít přes doplněk XRay nebo MRI, i když to nebývá vždy jednoduché.

Jinak by tenhle dotaz byl vhodnější na fórum i s tím makrem kterým exportujete.
user avatar kamlan
Odpovědět
Re:Re:Export dokumentu do PDF pomocí maker
18. 01. 2022, 18:00:52
Očividně exportujete makrem v článku, to jsem přehlédl :-)
user avatar Jan
Odpovědět
Export dokumentu do PDF pomocí maker
19. 01. 2022, 08:27:11
Dobrý den, děkuji za reakci. Nejsem bohužel tak znalý těchto věcí, většinou jsem si pomohl již vytvořenými makry a upravil si je. Ale v tomto případě mám v LibreOffice Calc buňku, třeba C10, kde je text "1599470-0222-1/A" a já potřebuji po stisknutí tlačítka, aby se mi dokument vytiskl do pdf na určité místo a jmenoval se jako text v té buňce. :-)
Ve VBA v excelu se mi to nějak povedlo, ale tady si nevím rady.
Díky
user avatar kamlan
Odpovědět
Re:Export dokumentu do PDF pomocí maker
19. 01. 2022, 13:46:32
Jestli to tedy dobře chápu tak potřebujete aby název PDF souboru byl jako ten údaj v buňce, čili v ukázkovém makru z článku stačí změnit proměnnou adr aby obsahovala údaj z buňky. Akorát si přizpůsobte název listu v proměnné oList a adresu buňky v oBunka.

Sub pdf
dim doc as object, oList as object, oBunka as object, adr$, p()
doc=thisComponent
oList=doc.Sheets.getByName("List1") 'list ve kterém je buňka s názvem
oBunka=oList.getCellRangeByName("C10") 'buňka ve které je název
adr=left (doc.url, len (doc.url)-4) 'url ODS souboru bez přípony
p=split(adr, "/")
p(ubound(p))=oBunka.string & ".pdf" 'jméno PDF souboru bude údaj z buňky
adr=join(p, "/") 'url ukládaného PDF
dim podminka_filtru (0) as new com.sun.star.beans.PropertyValue
podminka_filtru (0).Name="PageRange"
podminka_filtru (0).Value="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
user avatar Jan
Odpovědět
Re:Re:Export dokumentu do PDF pomocí maker
20. 01. 2022, 15:13:32
Dobrý den, mockrát Vám děkuji za pomoc. Tisk funguje skvěle, jen je tu jedna maličká drobnost. Pokud je v buňce tento popis - 1599470-0621-1/A - po stisknutí tlačítka se vytvoří v cílové složce podsložka s názvem 1599470-0621-1, ve které je pdf soubor s názvem A. Nešlo by prosím ještě tohle odladit? To lomítko tam má svůj význam v tom názvu. Dal jsem místo něj pomlčku a poté se uloží jen soubor pdf s názvem buňky. Jinak ještě jednou moc děkuji, hodně jste mi pomohl. :-)
user avatar kamlan
Odpovědět
Re:Re:Re:Export dokumentu do PDF pomocí maker
22. 01. 2022, 11:09:42
To bohužel nepůjde, nelze dát do názvu souboru znak / ani \, neboť tyto znaky jsou znaky oddělující adresáře -> a to je záležitost operačního systému a nikoliv programů v něm. Je možné ale nahradit to lomítko automaticky za jiný znak, třeba za podtržítko. Změňte si řádek:

p(ubound(p))=join(split(oBunka.string, "/"), "_") & ".pdf" 'jméno PDF souboru bude údaj z buňky, ale nahradí / v názvu za _
user avatar Jan
Odpovědět
Re:Re:Re:Re:Export dokumentu do PDF pomocí maker
25. 01. 2022, 08:25:07
Dobře, děkuji Vám za vysvětlení a pomoc, nějak se s tím už poperu. Hezký den.
 
 
woo jaw demo hz