Tabellenblatt als PDF exportieren

de-users
#1

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

#2

Hallo Peter,

Datei ->
als PDF exportieren ->
Auswahl/Ausgewählte Tabelle(n) markieren, falls nicht voreingestellt und Exportieren ->
Name und Verzeichnis wählen, Speichern ->

müsste klappen ...

Gruß
Peter

#3

Hallo

Hallo Peter,

Datei ->
als PDF exportieren ->
Auswahl/Ausgewählte Tabelle(n) markieren, falls nicht voreingestellt und
Exportieren ->
Name und Verzeichnis wählen, Speichern ->

Danke - ich schrieb allerdings von "etlichen ods-Dateien"
sprich: ca. 100 Stück. Da ist die Methode zu Fuß doch etwas
umständlich :wink:

Viele Grüße
Peter

#4

Hi,
ich fürchte, das hilft Dir nicht viel....
IMHO beachtet unoconv die Dokumentinternen Einstellungen des PDF
exportfilters.

Versuchs mal :slight_smile:

#5

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