Normalisierung von PDF Seiten
In manchen Fällen enthält ein PDF-Dokument Seiten mit unterschiedlichen Formaten, beispielsweise wenn das Dokument aus verschiedenen EInzelseiten zusammengefügt wurde.Mit der function set_pagesize ist es möglich, alle Seiten eines Dokuments auf die gleiche Seitenlänge bzw. -breite zu bringen. Das Seitenverhältnis wird beibehalten.
Die API ist einfach, wie das folgende Beispiel zeigt:
Dim pdf
Dim PWidth
Dim i
InFile = "d:\mymerged-notok.pdf"
OutFile = "d:\out.pdf"
PWidth = 595 'A4
Set pdf = CreateObject("aloahapdf.edit")
If pdf.load_pdf_to_mem(CStr(InFile)) = true Then
pages = pdf.pdfpages
If pages>0 Then
For i = 1 to pages
Call pdf.set_pagesize(CDbl(PWidth), CLng(i), false)
Next
If pdf.save_pdf_to_file(CStr(OutFile)) = true Then
End If
Call pdf.unload_pdf_from_mem
End If
Set pdf = nothing
Sie haben Probleme mit dem Beispiel? Zögern Sie nicht, uns mit Hilfe des folgenden Formulars zu kontaktieren.
