Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

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

Frage Entwicklung Batch & Shell

Mitglied: X-Spezi

X-Spezi (Level 1) - Jetzt verbinden

09.07.2013 um 20:38 Uhr, 1435 Aufrufe, 5 Kommentare

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
Mitglied: Endoro
09.07.2013 um 22:54 Uhr
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
Bitte warten ..
Mitglied: Bitboy
10.07.2013 um 07:51 Uhr
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?
Bitte warten ..
Mitglied: X-Spezi
10.07.2013 um 11:34 Uhr
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
Bitte warten ..
Mitglied: colinardo
10.07.2013, aktualisiert um 16:37 Uhr
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).
01.
folderPDF = "D:\Ordner zu deinen PDFs" 
02.
strPDFPrinterName = "Testprinter" 
03.
 
04.
Set fso = WScript.CreateObject("Scripting.Filesystemobject") 
05.
For Each file In fso.GetFolder(folderPDF).Files 
06.
	If LCase(Right(file.Name,3)) = "pdf" Then 
07.
		PrintToPDFPrinter(file.Path) 
08.
	End If 
09.
Next 
10.
 
11.
Sub PrintToPDFPrinter(f) 
12.
	Set objAcro = CreateObject("AcroExch.App") 
13.
	Set docAV = CreateObject("AcroExch.AVDoc") 
14.
	Set docPD = CreateObject("AcroExch.PDDoc") 
15.
	docAV.Open f,"" 
16.
	Set docPD = docAV.GetPDDoc() 
17.
	Set jsDoc = docPD.GetJSObject 
18.
	'objAcro.Show 
19.
	Set pp = jsDoc.getPrintParams() 
20.
	pp.printerName = strPDFPrinterName 
21.
	pp.interactive = pp.constants.interactionLevel.silent 
22.
	jsDoc.print(pp) 
23.
	'objAcro.Hide() 
24.
	objAcro.Exit() 
25.
	 
26.
	Set jsDoc = Nothing 
27.
	Set objAcro = Nothing 
28.
	Set docAV = Nothing 
29.
	Set docPD = Nothing 
30.
End Sub
alternativ kann man auch direkt aus der Batch die Dateien auf den benutzerdefinierten PDF-Drucker schicken.
01.
set pdfPrinterName=TestPDFPrinter 
02.
set pathAcrobat=c:\Program Files (x86)\Adobe\Acrobat 10.0\Acrobat\Acrobat.exe 
03.
pushd "C:\OrdnerzudenPDFs" 
04.
for /f "tokens=*" %%k in ('dir /b *.pdf') DO @( 
05.
  start "" "%pathAcrobat%" /t "%%~fk" "%pdfPrinterName%" 
06.
07.
popd
Erstellen eines benutzerdefinierten Acrobat Distiller Druckers

305b75343b14841faa1042efe9f2a768 - Klicke auf das Bild, um es zu vergrößern
425d7f4a10ff125c003ad0764521b6f6 - Klicke auf das Bild, um es zu vergrößern

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

70b3b746c821d0b0c2933d350bae1efc - Klicke auf das Bild, um es zu vergrößern

Vielleicht hilft Dir das bei deinem Projekt weiter.

Grüße Uwe
Bitte warten ..
Mitglied: X-Spezi
10.07.2013 um 20:19 Uhr
Hallo Uwe,

danke für diese gute Info,

Das werde ich am Freitag gleich testen.

Viele Grüße

Horst
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (17)

Frage von liquidbase zum Thema Windows Update ...