Re: [de-users] Tabellenblatt als PDF exportieren

Hi Peter,

da könnte ein Makro helfen. Ich hab hier gerade etwas aus dem Buch Makro
Grundlagen von Thomas Krumbein, was du dir noch anpassen müsstest. Was
das Objekt PropertyValue alles kann, könntest du z.b. mit xRay
untersuchen. Hab ich noch nicht in meinen Programmen benutzt, geht aber
darum, einem Objekt eine Reihe an Parametern zu übergeben.

Auf die Schnelle kriege ich das nicht alles zusammen, deshalb mehr eine
Erläuterung, wie du ein Makro aufbauen könntest.

Dieses Sub dient dazu alle Dateinamen einem Array zuzuweisen.

Function Verzeichnis_lesen (sURL as String) as Array
    dim oSFA ast
    sURL = convertToUrl("Hier die Verzeichnisadresse mit den
ods-Dateien eintragen")
    REM Das SFA-Objekt stellt Methoden zum Dateizugriff zur Verfügung
    oSFA = createUNOService("com.sun.star.ucb.SimpleFileAccess")
    Verzeichnis_lesen = oSFA.getFolderContents(sURL, False)
End Sub

Sub Export_to_PDF
    Dim arg(3) as new com.sun.star.beans.PropertyValue
    Dim sURL as String
    Dim aListe()
    aListe() = Verzeichnis_lesen("zu lesendes Verzeichnis als URL
eingeben")
    for i = 0 to uBound(aListe())
REM Hier muss das einlesen der Dateien, die Auswahl der zu
exportierenden Seite des Dokuments (die deiner Angabe nach immer gleich
hieß) und das Schreiben an die Zieladresse hin. Der Code ist mehr ein
Beispiel und noch nicht zu Ende gedacht.
        sURL = "file:///c:/Zielordner/Dateiname.pdf"
        REM setzen der Filteroption
        Dim aFilterData(1) as new com.sun.star.beans.PropertyValue
        aFilterData(0).Name = "ExportFromFields"
        aFilterData(0).value = false
        aFilterData(1).Name = "InitialPage"
        aFilterData(1).value = 1
        REM Export Parameter festlegen
        arg(0).Name ="URL"
        arg(0).value = sUrl
        arg(1).Name = "FilterName"
        arg(1).value = "calc_pdf_Export"
        arg(2).Name = "FilterData"
        arg(2).value = aFilterData()
        ThisComponent.storeToURL(sURL, arg())
    next
End Sub

Hoffe, dass dient dir als erste Anregung. Wir können uns dann gern
weiter austauschen. Vielleicht schaffe ich es morgen mal, das praktisch
auszuprobieren.

Viele Grüße

Stefan Deutsch

Am 15.03.2021 um 20:31 schrieb Bernd Obermayr:
> Am 12.03.21 um 17:41 schrieb Peter Geerds:
> > Hallo,
> > ich muss aus etlichen ods-Dateien PDFs machen, wobei nicht
> > die ganze Datei, sondern nur ein bestimmtes Tabellenblatt
> > exportiert werden soll (Name ist in allen Dateien gleich).
> > Mit unoconv kann ich den Export machen, allerdings nur mit
> > allen Blättern. Es gibt zwar für das Programm div.
> > Export-Optionen, für meinen Bedarf bin ich nicht fündig
> > geworden. Kann mir da jemand weiterhelfen? Wie heißt die
> > entsprechende Option? Oder ist das über LibreOffice
> > (headless?) möglich? Vielen Dank!
> >
> > Viele Grüße
> > Peter
> >
> > PS: Libo 7.1
> Hi,
> ich fürchte, das hilft Dir nicht viel....
> IMHO beachtet unoconv die Dokumentinternen Einstellungen des PDF
> exportfilters.
>
> Versuchs mal :)

--
Diese E-Mail wurde von Avast Antivirus-Software auf Viren geprüft.
https://www.avast.com/antivirus


--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy