Quote:

---

[From the DEVFAQ]
AcroRd32.exe filename - Executes the Reader and displays a file..
AcroRd32.exe /p filename - Executes the Reader and prints a file..
AcroRd32.exe /t path printername drivername portname - Initiates Acrobat
Reader,,
prints a file while suppressing the Acrobat print dialog box,then terminates
Reader.
The four parameters of the /t option evaluate to
path,printername,drivername,and
portname (all strings).
printername - The name of your printer..
drivername - Your printer driver 's name.Whatever appears in the Driver Used
box
when you view your printer 's properties.
portname - The printer 's port.portname cannot contain any "/"characters;if
it does,
output is routed to the default port for that printer.
If using Acrobat,substitute Acrobat.exe in place of AcroRd32.exe in the
command lines.

These command lines are not supported, but seem to be quite stable.

---

Break on

$path = "C:\Program Files\AdultPDF\Ap PDF Split-Merge\"
$files = DIRLIST("d:\testpdf\*.pdf",2)

For Each $file in $files
	$array = Split($file, "\")
	$filename = SubStr($array[Ubound($array)], 1, Len($array[Ubound($array)]) -4)
	?$filename
	Shell $path + "pdfspme_cmd.exe  -spe  "  + $file + " D:\testpdf\split\" + $filename
	PrintTo2("D:\testpdf\split\" + $filename + $page + ".pdf","\\server\printer1")
	If @ERROR = 0
		Del "D:\testpdf\split\*.pdf"
	Else
		?@ERROR
		?@SERROR
		Sleep 5
		Exit
	EndIf
Next

Break on

Call @SCRIPTDIR + "\functions\DirList().udf"
Call @SCRIPTDIR + "\functions\EnumProcess().udf"
Call @SCRIPTDIR + "\functions\printTo2().udf"

;Del "c:\pdftest\split\*.pdf"

$path = "C:\pdftest\tools\"
$files = DIRLIST("c:\pdftest\onverwerkt\*.pdf",2)
$page = "075"

For Each $file in $files
	$filepath = Split($file, "\")
	$filename = SubStr($filepath[Ubound($filepath)], 1, Len($filepath[Ubound($filepath)]) -4)
	Shell $path + "pdfspme_cmd.exe  -spe  "  + $file + " c:\pdftest\split\" + $filename
	PrintTo2("c:\pdftest\docs\defaultletter.doc","\\server\printer")
	PrintTo2("c:\pdftest\split\" + $filename + $page + ".pdf","\\server\printer")
	Sleep 5
	$kill= EnumProcess("AcroRd32.exe",1)
	If @ERROR = 0
		Del "c:\pdftest\split\*.pdf"
	Else
		?@ERROR
		?@SERROR
		Sleep 5
		Exit
	EndIf
Next

 
pdftk "Your.pdf" burst output "c:\outdir\pg_%04d.pdf"
 

Break on
;
Call @SCRIPTDIR + "\functions\Dirlist().udf"
Call @SCRIPTDIR + "\functions\EnuProcess().udf"
Call @SCRIPTDIR + "\functions\PrintTo2().udf"
;
$files = DIRLIST("d:\pdftest\onverwerkt\*.pdf",2)
$path = "d:\pdftest\tools\"
;
For Each $file in $files
	$filepath = Split($file, "\")
	$filename = SubStr($filepath[Ubound($filepath)], 1, Len($filepath[Ubound($filepath)]) -4)
	Shell $path + 'pdftk ' + $file + ' burst output "d:\pdftest\split\' + $filename + '_%04d.pdf"'
;
	$rc = Open (1, "d:\pdftest\export\test.csv", 2)
	$line = ReadLine (1)
;
	While @ERROR = 0
		$line = Split($line, ",")
		;$line[0] = Client number
		;$line[1] = Company name
		;$line[2] = Contact
		;$line[3] = Adress
		;$line[4] = Zip code
		;$line[5] = City
		;$line[6] = Page(s)
		$line[0] = Trim($line[0])
		$line[6] = Trim($line[6])
		Select
			Case Len($line[6]) = "1"
				$line[6] = "000" + $line[6]
			Case Len($line[6]) = "2"
				$line[6] = "00" + $line[6]
			Case Len($line[6]) = "3"
				$line[6] = "0" + $line[6]
			Case 1
				$line[6] = $line[6]
		EndSelect
		If $line[0] <> "clientnumber"
			PrintTo2("d:\pdftest\split\" + $filename + "_" + $line[6] + ".pdf","\\voyager\hp6840")
			Sleep 5
			$kill= EnumProcess("AcroRd32.exe",1)
		EndIf
	$line = ReadLine (1)
	Loop
Next