#include <File.au3>

$file = FileOpenDialog("Открыть файл для печати", "", "Текстовый документ (*.txt)", 1)
If @error Then Exit

$print = _FilePrint($file)
If $print Then
	MsgBox(4096, "Печать", "Файл напечатан.")
Else
	MsgBox(4096, "Печать", "Ошибка = " & @error & @CRLF & "Файл не напечатан.")
EndIf