Inzerce
Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 28. 9. 2009 21:49:59

dech
Člen
Registrace: 1. 10. 2008
Příspěvků: 150

export daného listu/stránky do pdf/OO pomocí makra

Ahojte,
chtěl jsem se zeptat jestli někdo víte jak donutit pomocí makra vyexportovat daný list/stránku do pdf nebo do .ods

již jsem to zkoušel, ale ikdyž jsem makro nahrál při exportu dané stránky, tak po jeho opětovném spuštní se exportoval celý dokument.

Dál bych měl v merku tento proces automatizovat tak, aby se soubor sám nazval podle nějaké bunky v dokumentu

takze nakonec by to vse vypadalo tak ze na jedno kliknutí na tlacitko se vyexportuje daná stránka s daným názvem a daným umístěním...coz zni kraasne,ale asi to nebude jen tak co?:)

diky moc

Editoval dech (28. 9. 2009 21:50:29)


LO 6.1.2.1. (x64)  WIn 8 64bit  16GB RAM

Offline

#2 29. 9. 2009 11:02:06

dech
Člen
Registrace: 1. 10. 2008
Příspěvků: 150

Re: export daného listu/stránky do pdf/OO pomocí makra

google mi vyhodil toto forum:  http://www.oooforum.org/forum/viewtopic.phtml?t=28616
kde řeší export vybrané oblasti (namísto konkrétního listu),což je skoro to samé co potřebuju já. Ale když jsem vložil ty kódy k sobě do OO tak to pořád hlásilo všelijaké chyby, chvíli jsem si s tím hrál ,ale pořád to hlásilo chyby. Příspěvky jsou trochu staré (2005). Třeba to pomůže někomu z vás docílit k funkčnímu makru...

Editoval dech (29. 9. 2009 11:02:38)


LO 6.1.2.1. (x64)  WIn 8 64bit  16GB RAM

Offline

#3 1. 10. 2009 12:20:46

susax
Člen
Registrace: 1. 10. 2009
Příspěvků: 2

Re: export daného listu/stránky do pdf/OO pomocí makra

Zdravím,

pro inspiraci zasílám používané makro pro export do PDF. Pro vlastní potřebu ho chce ještě upravit (minimálně cestu pro uložení "args6(0).Value") . Export provádí u označené oblasti.

makro:

rem ----------------------------------------------------------------------
Sub sExport_PDF ' EXPORT do pdf - ZACATEK
rem ----------------------------------------------------------------------

' ziskani nazvu souboru pro export pdf
dim soubor as string
' toto znamena, ze budeme pracovat s patym sloupcem a druhym radkem (bunka E2),
' ale pretoze se cisluje od nuly, tak je to pozice 4,1
soubor = ThisComponent.getSheets.getByIndex(0).getCellByPosition(4,1).getString()

' EXPORT do pdf
dim args6(3) as new com.sun.star.beans.PropertyValue
    args6(0).Name = "URL"
    args6(0).Value = "file:///"+pathPDF+soubor+".pdf" 'premenna nazvu souboru
    args6(1).Name = "FilterName"
    args6(1).Value = "calc_pdf_Export"
    args6(2).Name = "FilterData"
    args6(2).Value = Array(Array("UseLosslessCompression",0,false,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Quality",0,90,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ReduceImageResolution",0,false,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("MaxImageResolution",0,300,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("UseTaggedPDF",0,false,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("SelectPdfVersion",0,0,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportNotes",0,false,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportBookmarks",0,true,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("OpenBookmarkLevels",0,-1,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("UseTransitionEffects",0,true,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("IsSkipEmptyPages",0,false,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("IsAddStream",0,false,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("FormsType",0,0,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportFormFields",0,true,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("HideViewerToolbar",0,false,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("HideViewerMenubar",0,false,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("HideViewerWindowControls",0,false,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ResizeWindowToInitialPage",0,false,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("CenterWindow",0,false,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("OpenInFullScreenMode",0,false,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("DisplayPDFDocumentTitle",0,true,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("InitialView",0,0,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Magnification",0,0,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Zoom",0,100,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PageLayout",0,0,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("FirstPageOnLeft",0,false,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("InitialPage",0,1,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Printing",0,2,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Changes",0,4,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("EnableCopyingOfContent",0,true,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("EnableTextAccessForAccessibilityTools",0,true,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportLinksRelativeFsys",0,false,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PDFViewSelection",0,0,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ConvertOOoTargetToPDFTarget",0,false,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportBookmarksToPDFDestination",0,false,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("_OkButtonString",0,"",_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("EncryptFile",0,false,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("DocumentOpenPassword",0,"",_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("RestrictPermissions",0,false,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PermissionPassword",0,"",_
    com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("",0,,_
    com.sun.star.beans.PropertyState.DIRECT_VALUE))
    args6(3).Name = "SelectionOnly"
    args6(3).Value = true
    dispatcher.executeDispatch(document, ".uno:ExportToPDF", "", 0, args6())
   
rem ----------------------------------------------------------------------
End Sub ' KONEC EXPORT do pdf - KONEC
rem ----------------------------------------------------------------------

Offline

#4 21. 10. 2009 14:24:28

dech
Člen
Registrace: 1. 10. 2008
Příspěvků: 150

Re: export daného listu/stránky do pdf/OO pomocí makra

diky moc,nakonec jsem zjistil,že to není třeba hnedka řešit...ale někdy to zkusím,dik


LO 6.1.2.1. (x64)  WIn 8 64bit  16GB RAM

Offline

Zápatí