--den vollständigen Dateipfad ermitteln 
set dateiname to (choose file) 
 
--den Dateinamen für die Shell vorbereiten 
tell application "SystemUIServer" 
	set f to POSIX path of dateiname 
end tell 
 
-- die Anzahl der Seiten des Dokumentes (PDF) ermitteln 
set pages to do shell script "mdls -name kMDItemNumberOfPages " & f 
 
--die letzten zwei Werte aus dem String pages ermitteln (sollten zwei Zahlen sein) 
set letzteZweiWerte to text -2 thru -1 of pages 
-- die neue Variable seitenzahl zu integer machen 
set seitenZahl to letzteZweiWerte as number 
set i to 1 
set j to i + 1 
-- jetzt die Datei in Vorschau öffnen 
tell application "Preview" 
	open dateiname 
	repeat while j <= seitenZahl 
		print the front document with properties {starting page:i, ending page:j, target printer:"Kyocera CallCenter"} with print dialog 
		--display dialog (i as string) & " " & (j as string) 
		tell application "System Events" to tell process "Preview" 
			try 
				set frontmost to true 
				click button "Drucken" 
			end try 
		end tell 
		set i to i + 2 
		set j to j + 2 
	end repeat 
end tell 

--den vollständigen Dateipfad ermitteln 
set dateiname to (choose file) 
 
--den Datei namen für shell vorbereiten 
tell application "SystemUIServer" 
	set f to POSIX path of dateiname 
end tell 
 
-- die Anzahl der Seiten des Dokumentes (PDF) ermitteln 
set pages to do shell script "mdls -name kMDItemNumberOfPages " & f 
 
--display dialog pages 
set myString to pages 
-- Zähl mal die Stellen von hinten bis zum ersten Leerzeichen, das sind die Stellen für die Seitenzahlen. 
set e to 1 
repeat 
	set ergebnis to character -e of myString 
	--display dialog ergebnis 
	if ergebnis is " " then exit repeat 
	set e to e + 1 
end repeat 
-- Jetzt einen wieder abziehen, weil die Leerstelle mitgezählt wurde- 
set e to e - 1 
 
--display dialog e 
 
set anzahlStellen to text -e thru -1 of pages 
-- die neue Variable seitenzahl zu integer machen 
set seitenZahl to anzahlStellen as number 
set i to 1 
set j to i + 1 
 
 
tell application "Preview" 
	open dateiname 
	repeat while j ≤ seitenZahl 
		tell application "System Events" 
			tell process "Preview" 
				set frontmost to true 
				delay 1 
				keystroke "p" using {command down} 
				keystroke tab 
				keystroke i 
				keystroke tab 
				keystroke j 
				delay 3 
				keystroke return 
				set i to i + 2 
				set j to j + 2 
			end tell 
		end tell 
	end repeat 
	close front document 
end tell