Batch-File - Acrobat Duplex-Druck

Hi,

ich verwende ein Script (im I-Net gefunden) um mit Adobe Acrobat PDF-Dateien in einem Verzeichnis zu drucken.
Wie kann ich das Script modifizieren, bzw. gibt es beim Aufruf von Acrobat eine Variable, welche anweist das Dokument duplex zu drucken?

Hier das Script:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
@echo off & setlocal enabledelayedexpansion
:loop

set anzahl=1
set /a x=%anzahl%+1

FOR /L %%z IN (1,1,%anzahl%) do (
FOR %%p in ("C:\alarmdisplay\data\*.pdf") do (  
start "Ausdruck" "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe" /p /h "%%p"  
ping -n 10 localhost>nul
taskkill /F /IM AcroRd32.exe
)
)

move "C:\alarmdisplay\data\*.pdf" "C:\alarmdisplay\data\archiv\"  

Grüße
Schmakus

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 281306

Url: https://administrator.de/forum/batch-file-acrobat-duplex-druck-281306.html

Ausgedruckt am: 13.04.2025 um 09:04 Uhr

3 Kommentare

Neuester Kommentar

Moin,
stell deinen Drucker in den Standardeinstellungen auf Duplex, oder erzeuge eine Kopie des Druckers in der du ihn auf Duplex in den Standardeinstellungen einstellst und dann den Druckauftrag an Ihn schickst.

Gruß jodel32

Hallo Schmakus,
wenn du Acrobat Professional haben solltest lässt sich das mit einem VBS-Script über die COM-Automatisierung machen:
(PDF-Ordner und Druckername in Zeile 1 und 2 angeben, den Duplex-Typ gibt man in Zeile 22 an)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
folderPDF = "D:\AblagePDF"  
strPDFPrinterName = "HP Laserjet 1320"  

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")  
	ret = docAV.Open(f,"")  
	Set docPD = docAV.GetPDDoc()
	Set jsDoc = docPD.GetJSObject
	objAcro.Show
	Set pp = jsDoc.getPrintParams()
	pp.printerName = strPDFPrinterName
	'Duplex Druck, Flip über kurze Seite (alternativ "DuplexFlipLongEdge" oder "Simplex" bei einseitigem Druck)  
	pp.DuplexType = pp.constants.duplexTypes.DuplexFlipShortEdge
	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

Grüße Uwe