Hallo Tomily,

kannst Du mir vielleicht eine betroffene Tiff-Datei zusenden, damit ich das hier testen kann.

Meine Mail-Anschrift findest du im Impressum.

Ansonsten bliebe nur ein nachträgliches drehen per Batch mit pdftk.

Gruß Ahmed

Hallo Tomily,

die Mail ist über dein GMX-Account angekommen.
Keine Ahnung warum es mit den anderen Providern nicht funktionert.

Gruß Ahmed

Hallo Tomiliy,

also dein ELO-Programm hat die TIFF-Dateien im querformat gedruckt. Daher wird auch die Konvertierung ebenfalls im querformat durchgeführt.

Hier kannst du die Daten für Quer- u. Hochformat sehen:

Querformat: 3507 x 2496


Hochformat: 2479 x 3508


Aber das macht nichts. Auch für Dein Problem gibt es eine Lösung.

Ich habe dir einmal ein VBSript erstellt, womit du alle konvertierten Dateien nachträglich bequem drehen kannst.

Set WshShell = CreateObject ("WScript.Shell")
set Ag = WScript.Arguments
 
dim myFile, TargetFile
dim i
Dim sQuote
dim fso
dim tmpFolder
 
Set fso = CreateObject("Scripting.FileSystemObject")
tmpFolder = fso.GetSpecialFolder(2).Path & "PDFtk"
 
If Not fso.FolderExists(tmpFolder) Then fso.CreateFolder(tmpFolder)
 
tmpFolder = tmpFolder
 
sQuote=""""
call cleanFolder(tmpFolder)
 
'Datei(en) rotieren
 
        for i= 0 to ag.count -1
            fso.CopyFile ag(i), tmpFolder & "" & "tmp_" & left("00000",5-len(i)) & (i+1) & ".pdf"
            myfile = myfile & sQuote &  tmpFolder & "" & "tmp_" & left("00000",5-len(i)) & (i+1) & ".pdf" & sQuote & " "
 
			TargetFile = ag(i)
			fso.deleteFile (ag(i))
			wscript.sleep 500         '1/2 sec. warten
		
			Wshshell.run """C:Program Files (x86)FreePDF_Multidocpdftk.exe """  & myFile & " cat 1-endS output " & sQuote & TargetFile & sQuote   
			wscript.sleep 1000         '1 sec. warten
		next
 
'Hilfsfunktionen
Function CleanFolder(strFolder)
   For Each file In fso.GetFolder(strFolder).Files
      file.delete
   Next
End Function 
 

Gehe einfach wie folgt vor:

1. Lade dir PDFtk hier herunter (Download)

2. Erstelle dir eine Textdatei und kopiere einfach den code dort hinein.

3. Passe bitte den PDFtk-Pfad entsprechend deinen Vorgaben an.
Wshshell.run """C:Program Files (x86)FreePDF_Multidocpdftk.exe """
4. Speichere die Datei ab und benenne diese einfach um in z. B. Rotate_90D.vbs.
Am einfachsten kopierst du dir die Datei in den Windows-Spezialordner 'Sendto'

C:UsersAhmedAppDataRoamingMicrosoftWindowsSendTo
(Username 'Ahmed' bitte anpassen.)

5.a Jetzt markierst du einfach die konvertierten Dateien und wählst einfach den Kontextbefehl (rechte Maustaste) 'Senden an' die Drehung um 90° vornehmen.

5.b Hast Du die VBS-Datei nicht in SendTo verschoben, dann einfach die markierten Dateien auf die VBS-Datei fallen lassen. Damit erreichst du das gleiche Ergebnis.

Bei meinen Test's hat es einwandfrei funktioniert. Solltest Du Probleme haben oder weitergehende Fragen haben, melde dich einfach noch einmal.

Weiterhin viel Spaß mit meinem Programm.

Gruß Ahmed

Gerne geschehen.
Über eine kurze Rückmeldung würde ich mich freuen.

Ahmed