Batch um ein PDF in einem Ordner zu kompremieren und dann in einen anderen Ordner ablegen

Hallo zusammen,

ich habe einen einfachen Scanner der die PDF Dateien ziemlich groß werden lässt,
Jetzt möchte ich den Ordner mit diesen abgelegten PDF überwachen und dann diese Datei komprimieren und anschließend zu einem anderen Ordner verschieben.
Gibt es dafür eine Lösung? Evtl. mit Freeware oder Acrobat Professional ?

Ich habe schon einige Forum durchforstet aber leider keine passende Lösung gefunden.

PS: Eine ebenfalls in diesem Ordner abgelegte XML Datei sollte nur in dem neuen Ordner verschoben werden.

Grüße

X-Spezi

Please also mark the comments that contributed to the solution of the article

Content-Key: 211003

Url: https://administrator.de/contentid/211003

Printed on: April 26, 2024 at 12:04 o'clock

5 Comments

Latest comment

Hallo X-Spezi,

kann der Scanner auch andere Grafikdateien erstellen (TIFF, BMP, JPG, PNG usw)?
Dann könntest du auf zahlreiche freie Programme zum Komprimieren zurückgreifen.

lg

Hi,

gescannte PDFs werden normalerweise durch die eingestellte Auflösung (zum Beispiel 600 dpi) so gross. Wäre es keine Möglichkeit den Scanner umzustellen, dass er mit geringerer Qualität scannt?

Hallo zusammen,

Danke für Eure Antworten.

@ Endoro , ich könnte zwar in Tiff scannen, aber brauche am Ende ein komprimiertes PDF

@ Bitboy, gerade die Qualität ist wichtig, und mit Komprimierung währe es das richtige Ergebnis.

Grüße

X-Spezi

Hallo X-Spezi,
also mit Acrobat könntest du folgendes via VBS-Script machen:
Folgendes Script öffnet die PDF-Dateien im angegebenen Ordner und druckt sie auf einen benutzerdefinierten "Adobe PDF" Drucker der die Dateien in einem Ordner speichert. Die gewünschte Komprimierung kannst du in den Eigenschaften des Druckers festlegen(s. weiter unten).
Wenn du in Zeile 18 und 23 des Scripts die Kommentare entfernst siehst du wie Acrobat sich öffnet (nur für den Debug-Fall).

folderPDF = "D:\Ordner zu deinen PDFs"  
strPDFPrinterName = "Testprinter"  

Set fso = WScript.CreateObject("Scripting.Filesystemobject")  
For Each file In fso.GetFolder(folderPDF).Files
	If LCase(Right(file.Name,3)) = "pdf" Then  
		PrintToPDFPrinter(file.Path)
	End If
Next

Sub PrintToPDFPrinter(f)
	Set objAcro = CreateObject("AcroExch.App")  
	Set docAV = CreateObject("AcroExch.AVDoc")  
	Set docPD = CreateObject("AcroExch.PDDoc")  
	docAV.Open f,""  
	Set docPD = docAV.GetPDDoc()
	Set jsDoc = docPD.GetJSObject
	'objAcro.Show  
	Set pp = jsDoc.getPrintParams()
	pp.printerName = strPDFPrinterName
	pp.interactive = pp.constants.interactionLevel.silent
	jsDoc.print(pp)
	'objAcro.Hide()  
	objAcro.Exit()
	
	Set jsDoc = Nothing
	Set objAcro = Nothing
	Set docAV = Nothing
	Set docPD = Nothing
End Sub

alternativ kann man auch direkt aus der Batch die Dateien auf den benutzerdefinierten PDF-Drucker schicken.

set pdfPrinterName=TestPDFPrinter
set pathAcrobat=c:\Program Files (x86)\Adobe\Acrobat 10.0\Acrobat\Acrobat.exe
pushd "C:\OrdnerzudenPDFs"  
for /f "tokens=*" %%k in ('dir /b *.pdf') DO @(  
  start "" "%pathAcrobat%" /t "%%~fk" "%pdfPrinterName%"  
)
popd

Erstellen eines benutzerdefinierten Acrobat Distiller Druckers

Dann in den Einstellungen des Druckers die Qualität und den Ausgabepfad festlegen.

Vielleicht hilft Dir das bei deinem Projekt weiter.

Grüße Uwe

Hallo Uwe,

danke für diese gute Info,

Das werde ich am Freitag gleich testen.

Viele Grüße

Horst

German Question Batch, Shell Development