AutoIt-Skript: reagieren auf Druckbefehl?

**BugFix**

Folgendes Szenario:
Eine Anwendung generiert Ausdrucke automatisch als PDF. Dazu bekommt das Dokument als Name: Typ + Belegnummer (z.B. "VAN1002003.pdf" für Verkauf Angebot Nr. 1002003). Ich möchte nun gerne auf den Druckbefehl reagieren und die PDF mit zusätzlichen Informationen umbenennen (KDNr_TypBelegNr_Timestamp.pdf). Diese zusätzlichen Infos stehen nur im Moment des Druckauftrages zur Verfügung, danach wechselt der User auf einen anderen Kunden.
Ich stelle mir also folgendes Vorgehen vor:
- Druckbefehl?
- Zusatzinfo auslesen (Kundennummer)
- Typ und Belegnummer auslesen
- warten bis "TypBelegnummer.pdf" existiert
- umbenennen
Ich könnte permanent mit FileExist das Zielverzeichnis abfragen, würde aber lieber direkt auf das Druck-Event reagieren.
Den Start des Druckbefehls kann ich hoffentlich mit etwas Gefrickel über die Existenz des Druckdialogs abfragen. Wobei das schon ziemlich abenteuerlich ist, da die Anwendung nur ein einziges echtes Fenster besitzt. Alles andere sind Delphi-Controls. Aber die Existenz alleine darf den Prozeß nicht auslösen, der User kann ja evtl. auch nur in die Druckvorschau gehen und dann abbrechen. Ich brauche also das wirkliche Event "Signal an Drucker" und dann auch "Druck beendet".
Weiß jemand auf welche Events ich da lauschen muss?
Ich vermute, dass ich dort mit einem Hook ansetzen muss.

**alpines**

Soweit ich weiß hat doch Windows ein Druckericon im Traymenu wenn du einen Auftrag abschickst. Könntest du nicht das Fenster einfach aufrufen und vorerst das per ControlRead lösen?
Bis du das Event für den Drucker gefunden hast wird das sicherlich eine Weile dauern und das wäre eine Zwischenlösung.

**BugFix**

Ich habe zumindest mal schon eine Lösung gefunden, wie ich verhindere, dass mehrfache Drucke eines Dokuments (z.B. bei Änderungen am Dokument) das Original vernichten. Die neue Version von 7-Zip (9.38 beta) beinhaltet eine Rename-Funktion. Existiert eine Datei im Archiv, lese ich das Erstellungsdatum der Datei aus und benenne diese um zu Name_Datum.Erweiterung.

Spoiler anzeigen

[autoit]

Global $7z = @ScriptDir & '\7ZipCmdLine\7z.exe' ; v9.38 beta (rn - command)

[/autoit] [autoit][/autoit] [autoit]

$sArchiv = @ScriptDir & '\archiv_1.zip'
$sFile = @ScriptDir & '\Test\test.pdf'

[/autoit] [autoit][/autoit] [autoit]

_AddToArchive($sArchiv, $sFile) & @CRLF)

[/autoit] [autoit][/autoit] [autoit]

Func _AddToArchive($sArchive, $sFile)
Local $sCmd, $iPID
; prüfen ob Datei schon im Archiv vorhanden, falls Archiv existiert
; wenn ja umbenennen zu: 'name_DATUMZEIT.erweiterung'
If FileExists($sArchive) Then
Local $aContent = _GetContentArchive($sArchive)
Local $sFileNameOld = StringTrimLeft($sFile, StringInStr($sFile, '\', 0, -1))
Local $sFileNameNew = ''
For $i = 0 To UBound($aContent) -1
If $aContent[$i][1] = $sFileNameOld Then
Local $sBase = StringLeft($sFileNameOld, StringInStr($sFileNameOld, '.', 0, -1)-1)
Local $sExt = StringTrimLeft($sFileNameOld, StringLen($sBase))
$sFileNameNew = $sBase & '__' & $aContent[$i][0] & $sExt
ExitLoop
EndIf
Next
If $sFileNameNew <> '' Then
$sCmd = '"' & $7z & '" rn "' & $sArchive & '" "' & $sFileNameOld & '" "' & $sFileNameNew & '"'
$iPID = Run($sCmd, '', @SW_HIDE)
ProcessWaitClose($iPID)
EndIf
EndIf
$sCmd = '"' & $7z & '" a -tzip -mx=0 "' & $sArchive & '" "' & $sFile & '"'
$iPID = Run($sCmd, '', @SW_HIDE);, 0x2)
Return ProcessWaitClose($iPID)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _GetContentArchive($sArchive)
Local $sPattern = "(\d{4}-\d{2}-\d{2}\s\d{2}:\d{2}:\d{2})\s\.{4}A(?:\s+\d+){2}\s+([^\r\n]+)"
Local $sCmd = '"' & $7z & '" l "' & $sArchive & '"'
Local $iPID = Run($sCmd, '', @SW_HIDE, 0x2) ; 0x2 = $STDOUT_CHILD
ProcessWaitClose($iPID)
Local $aContent = StringRegExp(StdoutRead($iPID), $sPattern, 3)
Local $aOut[UBound($aContent)/2][2], $ii = 0
For $i = 0 To UBound($aContent) -2 Step 2
$aOut[$ii][0] = StringRegExpReplace($aContent[$i], '[- :]', '')
$aOut[$ii][1] = $aContent[$i+1]
$ii += 1
Next
Return $aOut
EndFunc

[/autoit]

Homer J. S.

@BugFix:
Ich glaube das was du benötigst ist:
http://www.lvbprint.de/html/printmulti.html

Hier habe ich die Lösung her:
AutoIt & Virtueller Drucker (Druckauftrag zwei mal drucken)

Ich hoffe, ich konnte dir weiter helfen?!

Gruß
Homer J. S.