Post by just me » 05 Feb 2020, 09:00
Ok, ich habe die Progress-Anzeige mal versuchsweise in die Routine
ButtonEco_Midi: eingebaut. Probier das mal aus.
Code: Select all
#NoEnv
SetTitleMatchMode, 2 ;< kann hier vorn stehen weil es sich nicht ändert
AcrobatTitle := ".pdf - Adobe Acrobat Reader DC" ;< Titel des Acrobat Reader Fensters
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Gui, Add, Picture, x484 y438 w-192 h-339 , C:\Users\DigiPrint\Documents\AHK Skript\verwendete Bilder\JUNG-since1828.jpg
Gui, Font, S26 CDefault, Verdana
Gui, Font, S26 CDefault, Verdana
Gui, Add, Text, x32 y159 w590 h50 +Center, Programmauswahl für DigiPrint
Gui, Font, S13 CDefault, Verdana
Gui, Add, Button, x12 y219 w150 h50 , Eco_Mini
Gui, Add, Button, x12 y269 w150 h50 , Eco_Midi
Gui, Add, Button, x12 y319 w150 h50 , Eco_Maxi
Gui, Add, Button, x12 y369 w150 h50 , Fresh_Mini
Gui, Add, Button, x12 y419 w150 h50 , Fresh_Midi
Gui, Add, Button, x12 y469 w150 h50 , Snackdose
Gui, Add, Button, x172 y219 w150 h50 , Snack_Roll
Gui, Add, Button, x172 y269 w150 h50 , CandyCan_XS
Gui, Add, Button, x172 y319 w150 h50 , CandyCan_Slim
Gui, Add, Button, x172 y369 w150 h50 , Bonbonglas
Gui, Add, Button, x172 y419 w150 h50 , Ostersixpack
Gui, Add, Button, x172 y469 w150 h50 , tbd
Gui, Add, Button, x332 y219 w150 h50 , tbd
Gui, Add, Button, x332 y269 w150 h50 , tbd
Gui, Add, Button, x332 y319 w150 h50 , tbd
Gui, Add, Button, x332 y369 w150 h50 , tbd
Gui, Add, Button, x332 y419 w150 h50 , tbd
Gui, Add, Button, x332 y469 w150 h50 , tbd
Gui, Add, Button, x492 y219 w150 h50 , tbd
Gui, Add, Button, x492 y269 w150 h50 , tbd
Gui, Add, Button, x492 y319 w150 h50 , tbd
Gui, Add, Button, x492 y369 w150 h50 , tbd
Gui, Add, Button, x492 y419 w150 h50 , tbd
Gui, Add, Button, x492 y469 w150 h50 , tbd
Gui, Add, Picture, x172 y-1 w310 h140 , C:\Users\DigiPrint\Documents\AHK Skript\verwendete Bilder\JUNG-since1828.jpg
Gui, Font, S6 Cgrey, Verdana
Gui, Add, Text, x269 y529 w120 h10 , created by Optimus Prime
; Generated using SmartGUI Creator 4.0
Gui, Show, x127 y87 h545 w662, DigiPrint 2100 - Druckparameter
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
GuiClose:
ExitApp
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonEco_Mini:
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonEco_Midi:
Gui, +OwnDialogs ;< blockiert das AHK-Fenster während der Meldungs- bzw. Progress-Anzeige
WinActivate, %AcrobatTitle% ;; aktiviert den (geöffneten) Adobe Acrobat Reader
WinWaitActive, %AcrobatTitle%, , 1 ;; wartet maximal 1 Sekunde auf die Aktivierung
If (ErrorLevel)
{
MsgBox, 16, Fehler!, Das Acrobat Fenster konnte nicht aktiviert werden!
Return
}
SleepTime := (7000 * 2) + (800 * 3) + (500 * 8) ;< Laufzeit anhand der Sleeps berechnen
StartTime := A_TickCount ;< Startzeitpunkt merken
Progress, b1000 w1000, Bitte warten..., Druckdaten werden geladen!, Hinweis! ;< Progress-Fenster anzeigen
SetTimer, UpdProgress, 1000 ;< Timer starten
Send, ^p ;;Drucken
Sleep, 7000
If !WinExist("Drucken")
{
MsgBox, 16, Fehler!, Der Druckdialog hat sich nicht geöffnet!
SetTimer, UpdProgress, Off ;< Timer beenden
Progress, Off ;< Progress-Fenster schließen
Return
}
Control, Check,, RICHEDIT50W1, Drucken
Sleep, 800
Send, {Backspace}
Sleep, 800
Send, 999 ;; Eingabe Anzahl Exemplare zum Drucken =999
Sleep, 800
Control, Check,, Button4, Drucken ;; Eigenschaften auswählen
Sleep, 7000
Control, Uncheck,, Button20, Eigenschaften von Afinia L901 Label Printer ;; Maskenoptimierung deaktivieren
Sleep, 500
Control, Check,, Button10, Eigenschaften von Afinia L901 Label Printer ;; Randlos drucken aktivieren
Sleep, 500
Control, Choose,2, ComboBox1, Eigenschaften von Afinia L901 Label Printer ;; Typ auswählen (numerisch)
Sleep, 500
Control, Choose,17, ComboBox2, Eigenschaften von Afinia L901 Label Printer ;; Format auswählen (numerisch)
Sleep, 500
Control, Choose,5, ComboBox4, Eigenschaften von Afinia L901 Label Printer ;; Speed auswählen (numerisch)
Sleep, 500
Control, TabRight,, SysTabControl321, Eigenschaften von Afinia L901 Label Printer ;; Reiter "Layout" auswählen
Sleep, 500
Control, Check,, Button3, Eigenschaften von Afinia L901 Label Printer ;; Benutzerdefinierte Größe auswählen
Sleep, 500
Control, Check,, Button14, Eigenschaften von Afinia L901 Label Printer ;; Button "OK" drücken
Sleep, 500
Control, Check,, Button50, Drucken ;; Button "Drucken" drücken
SetTimer, UpdProgress, Off ;< Timer beenden
Progress, Off ;< Progress-Fenster schließen
Return ;;Befehl Ende F2
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonEco_Maxi:
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonFresh_Mini:
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonFresh_Midi:
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonSnackdose:
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonSnack_Roll:
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonCandyCan_XS:
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonCandyCan_Slim:
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonBonbonglas:
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonOstersixpack: ;;OSTERSIXPACK
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Buttontbd:
MsgBox,, Hinweis DigiPrint, Button ist nicht belegt!
Return
;;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
UpdProgress:
RunTime := A_TickCount - StartTime
If (RunTime > SleepTime)
Progress, 100
Else
Progress, % (RunTime / SleepTime) * 100
Return
Ok, ich habe die Progress-Anzeige mal versuchsweise in die Routine [c]ButtonEco_Midi:[/c] eingebaut. Probier das mal aus.
[code]#NoEnv
SetTitleMatchMode, 2 ;< kann hier vorn stehen weil es sich nicht ändert
AcrobatTitle := ".pdf - Adobe Acrobat Reader DC" ;< Titel des Acrobat Reader Fensters
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Gui, Add, Picture, x484 y438 w-192 h-339 , C:\Users\DigiPrint\Documents\AHK Skript\verwendete Bilder\JUNG-since1828.jpg
Gui, Font, S26 CDefault, Verdana
Gui, Font, S26 CDefault, Verdana
Gui, Add, Text, x32 y159 w590 h50 +Center, Programmauswahl für DigiPrint
Gui, Font, S13 CDefault, Verdana
Gui, Add, Button, x12 y219 w150 h50 , Eco_Mini
Gui, Add, Button, x12 y269 w150 h50 , Eco_Midi
Gui, Add, Button, x12 y319 w150 h50 , Eco_Maxi
Gui, Add, Button, x12 y369 w150 h50 , Fresh_Mini
Gui, Add, Button, x12 y419 w150 h50 , Fresh_Midi
Gui, Add, Button, x12 y469 w150 h50 , Snackdose
Gui, Add, Button, x172 y219 w150 h50 , Snack_Roll
Gui, Add, Button, x172 y269 w150 h50 , CandyCan_XS
Gui, Add, Button, x172 y319 w150 h50 , CandyCan_Slim
Gui, Add, Button, x172 y369 w150 h50 , Bonbonglas
Gui, Add, Button, x172 y419 w150 h50 , Ostersixpack
Gui, Add, Button, x172 y469 w150 h50 , tbd
Gui, Add, Button, x332 y219 w150 h50 , tbd
Gui, Add, Button, x332 y269 w150 h50 , tbd
Gui, Add, Button, x332 y319 w150 h50 , tbd
Gui, Add, Button, x332 y369 w150 h50 , tbd
Gui, Add, Button, x332 y419 w150 h50 , tbd
Gui, Add, Button, x332 y469 w150 h50 , tbd
Gui, Add, Button, x492 y219 w150 h50 , tbd
Gui, Add, Button, x492 y269 w150 h50 , tbd
Gui, Add, Button, x492 y319 w150 h50 , tbd
Gui, Add, Button, x492 y369 w150 h50 , tbd
Gui, Add, Button, x492 y419 w150 h50 , tbd
Gui, Add, Button, x492 y469 w150 h50 , tbd
Gui, Add, Picture, x172 y-1 w310 h140 , C:\Users\DigiPrint\Documents\AHK Skript\verwendete Bilder\JUNG-since1828.jpg
Gui, Font, S6 Cgrey, Verdana
Gui, Add, Text, x269 y529 w120 h10 , created by Optimus Prime
; Generated using SmartGUI Creator 4.0
Gui, Show, x127 y87 h545 w662, DigiPrint 2100 - Druckparameter
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
GuiClose:
ExitApp
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonEco_Mini:
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonEco_Midi:
Gui, +OwnDialogs ;< blockiert das AHK-Fenster während der Meldungs- bzw. Progress-Anzeige
WinActivate, %AcrobatTitle% ;; aktiviert den (geöffneten) Adobe Acrobat Reader
WinWaitActive, %AcrobatTitle%, , 1 ;; wartet maximal 1 Sekunde auf die Aktivierung
If (ErrorLevel)
{
MsgBox, 16, Fehler!, Das Acrobat Fenster konnte nicht aktiviert werden!
Return
}
SleepTime := (7000 * 2) + (800 * 3) + (500 * 8) ;< Laufzeit anhand der Sleeps berechnen
StartTime := A_TickCount ;< Startzeitpunkt merken
Progress, b1000 w1000, Bitte warten..., Druckdaten werden geladen!, Hinweis! ;< Progress-Fenster anzeigen
SetTimer, UpdProgress, 1000 ;< Timer starten
Send, ^p ;;Drucken
Sleep, 7000
If !WinExist("Drucken")
{
MsgBox, 16, Fehler!, Der Druckdialog hat sich nicht geöffnet!
SetTimer, UpdProgress, Off ;< Timer beenden
Progress, Off ;< Progress-Fenster schließen
Return
}
Control, Check,, RICHEDIT50W1, Drucken
Sleep, 800
Send, {Backspace}
Sleep, 800
Send, 999 ;; Eingabe Anzahl Exemplare zum Drucken =999
Sleep, 800
Control, Check,, Button4, Drucken ;; Eigenschaften auswählen
Sleep, 7000
Control, Uncheck,, Button20, Eigenschaften von Afinia L901 Label Printer ;; Maskenoptimierung deaktivieren
Sleep, 500
Control, Check,, Button10, Eigenschaften von Afinia L901 Label Printer ;; Randlos drucken aktivieren
Sleep, 500
Control, Choose,2, ComboBox1, Eigenschaften von Afinia L901 Label Printer ;; Typ auswählen (numerisch)
Sleep, 500
Control, Choose,17, ComboBox2, Eigenschaften von Afinia L901 Label Printer ;; Format auswählen (numerisch)
Sleep, 500
Control, Choose,5, ComboBox4, Eigenschaften von Afinia L901 Label Printer ;; Speed auswählen (numerisch)
Sleep, 500
Control, TabRight,, SysTabControl321, Eigenschaften von Afinia L901 Label Printer ;; Reiter "Layout" auswählen
Sleep, 500
Control, Check,, Button3, Eigenschaften von Afinia L901 Label Printer ;; Benutzerdefinierte Größe auswählen
Sleep, 500
Control, Check,, Button14, Eigenschaften von Afinia L901 Label Printer ;; Button "OK" drücken
Sleep, 500
Control, Check,, Button50, Drucken ;; Button "Drucken" drücken
SetTimer, UpdProgress, Off ;< Timer beenden
Progress, Off ;< Progress-Fenster schließen
Return ;;Befehl Ende F2
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonEco_Maxi:
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonFresh_Mini:
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonFresh_Midi:
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonSnackdose:
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonSnack_Roll:
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonCandyCan_XS:
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonCandyCan_Slim:
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonBonbonglas:
Return
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ButtonOstersixpack: ;;OSTERSIXPACK
;;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Buttontbd:
MsgBox,, Hinweis DigiPrint, Button ist nicht belegt!
Return
;;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
UpdProgress:
RunTime := A_TickCount - StartTime
If (RunTime > SleepTime)
Progress, 100
Else
Progress, % (RunTime / SleepTime) * 100
Return[/code]