Hallo Entwicklerteam,
das Einfügen eines Wasserzeichens auf allen Seiten einer mit PDFCreator erzeugten PDF Datei mittels des Skripts AddWatermarkToPDF.vbs funktioniert ja bereits.
Wenn die erste Seite einer PDF Datei aber ein abweichendes Wasserzeichen bekommen soll verwende ich nach Erzeugen der Datei folgende Batchdatei:
pdftk A=letter.pdf cat A1 output firstpage.pdf
pdftk A=letter.pdf cat A2-end output otherpages.pdf
pdftk firstpage.pdf background watermark1.pdf output firstwithwatermark.pdf
pdftk otherpages.pdf background watermark2.pdf output otherwithwatermark.pdf
pdftk A=firstwithwatermark.pdf B=otherwithwatermark.pdf cat A B output letterwithwatermark.pdf
del firstpage.pdf
del otherpages.pdf
del firstwithwatermark.pdf
del otherwithwatermark.pdf
Wäre es eventuell möglich diese Batchdatei als VB Skript analog zu AddWatermarkToPDF.vbs in der neuen PDFCreator Version hinzuzufügen ?
Grüße
Moin, bin leider mit dem Skript nicht zurechtgekommen. Bei mir sieht das Wasserzeichenscript für gleiche Folgeseiten so aus:
' AddWatermarkToPDF script
' Part of PDFCreator
' License: GPL
' Homepage: http://www.sf.net/projects/pdfcreator
' Version: 1.1.0.0
' Date: September, 1. 2005
' Author: Frank Heindörfer
' Comments: This script needs pdftk.
' For more informations about the freeware pdftk use this link:
' http://www.accesspdf.com
Option Explicit
Const AppTitle = "PDFCreator - AddWatermarkToPDF"
Const PathToPdftk = "c:\pdftk-1.12\pdftk.exe"
Const WatermarkPDF = "Briefpapier-Welthanse1.PDF"
Dim objArgs, fname, tfname, fso, WshShell, oExec
Set objArgs = WScript.Arguments
If objArgs.Count = 0 Then
MsgBox "This script needs a parameter!", vbExclamation, AppTitle
WScript.Quit
End If
fname = objArgs(0)
Set fso = CreateObject("Scripting.FileSystemObject")
If Ucase(fso.GetExtensionName(fname)) <> "PDF" Then
MsgBox "This script works only with pdf files!", vbExclamation, AppTitle
WScript.Quit
End If
If Not fso.FileExists(PathToPdftk) Then
MsgBox "You need pdftk for this script!" & vbcrlf & vbcrlf & _
"Please go to http://www.accesspdf.com and download it.", vbExclamation, AppTitle
WScript.Quit
End If
If Not fso.FileExists(WatermarkPDF) Then
MsgBox "Can't find the watermark pdf file!", vbExclamation, AppTitle
WScript.Quit
End If
Set WshShell = CreateObject("WScript.Shell")
tfname = fso.GetTempName
WshShell.Run PathToPdftk & " """ & fname & """ background " & WatermarkPDF & " output """ & tfname & """",0,true
If Not fso.FileExists(tfname) Then
MsgBox "There was an error using ""pdftk""!", vbCritical, AppTitle
WScript.Quit
End If
If fso.FileExists(fname) Then
fso.DeleteFile(fname)
End If
fso.MoveFile tfname, fname wie genau müßte das in dem von Ihnen vorgeschlagenen Fall aussehen, wenn die zweite und weitere Folgeseiten die Datei "Briefpapier-Welthanse2.PDF" wäre? Habe ein wenig herumexperimentiert, bin leider nicht zu einem Ergebnis gekommen Viele Dank im Voraus! Sven Fischer