ViSiToR
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
telyakov 14:12 20-11-2008
Цитата:| Как программно открыть окно печати принтера средствами AutoIT? |
Пример 1:
Код: #include <GuiConstantsEx.au3>
#include <ButtonConstants.au3>
$sFile = @ScriptDir & "\test.txt"
$GUI = GUICreate("Print Demo", 300, 100)
GUICtrlCreateLabel("File Path:", 20, 22)
$Input = GUICtrlCreateInput($sFile, 80, 20, 200, 20)
$Print_Button = GUICtrlCreateButton("Print", 20, 50, 260, 32, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", -17)
GUISetState(@SW_SHOW, $GUI)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $Print_Button
$sFile = GUICtrlRead($Input)
Run('Rundll32.exe "' & @SystemDir & '\mshtml.dll",PrintHTML "' & $sFile & '"', @SystemDir)
EndSwitch
WEnd |
Пример 2:
Код:
_OpenFilePrint(@ScriptDir & "\Test.gif")
Sleep(2500)
Func _OpenFilePrint($sFilePath)
Local $oShellApp = ObjCreate('shell.application')
Local $sPath = StringRegExpReplace($sFilePath, "\\[^\\]+$", "")
If @extended = 0 Then $sPath = @WorkingDir
Local $oPath = $oShellApp.Namespace($sPath)
For $oItem In $oPath.Items
If $oItem.Path = $sFilePath Then $oItem.InvokeVerb('Print')
Next
EndFunc ; => _OpenFilePrint |
Также есть возможность через ShellExecute($File, "", "", "Print"), но оно вроде только для файлов с типом документов.
----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни! |
|
