Как автоматически распечатать текст
Вопрос такого характера. Можно ли сделать как-нибудь, что бы при открытии страницы на принтер установленный по умолчанию отправлялась нужная информация, без всяких подтвержений, открытий окошек и т.п. Может на JS? Обыскался в инете, чего-то нашел, но всегда выползает окошко о выборе принтера и т.п.
Задача стоит в автоматической распечатке чека на принтере, при определенных условиях.
Задача стоит в автоматической распечатке чека на принтере, при определенных условиях.
Цитата:
Originally posted by covex
Вопрос такого характера. Можно ли сделать как-нибудь, что бы при открытии страницы на принтер установленный по умолчанию отправлялась нужная информация, без всяких подтвержений, открытий окошек и т.п. Может на JS? Обыскался в инете, чего-то нашел, но всегда выползает окошко о выборе принтера и т.п.
Задача стоит в автоматической распечатке чека на принтере, при определенных условиях.
Вопрос такого характера. Можно ли сделать как-нибудь, что бы при открытии страницы на принтер установленный по умолчанию отправлялась нужная информация, без всяких подтвержений, открытий окошек и т.п. Может на JS? Обыскался в инете, чего-то нашел, но всегда выползает окошко о выборе принтера и т.п.
Задача стоит в автоматической распечатке чека на принтере, при определенных условиях.
ВРядли такое найдешь.
Цитата:
Originally posted by Web-master
ВРядли такое найдешь.
ВРядли такое найдешь.
Может еще какими-нибудь компонентами, типа ActiveX, ну или еще как. Может просто у кого-то есть идеи как это можно попытаться реализовать, я бы "порыл", мож чего наковырял бы.....
Почти полноценное решение найдено!!!!
Единственное что надо поменять в свойствах IE разрешение на небезопасные элементы ActiveX. Вот решение:
<HTML>
<HEAD>
<OBJECT ID="WB" WIDTH="0" HEIGHT="0" CLASSID="clsid:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Sub window_onunload
On Error Resume Next
Set WB = nothing
End Sub
Sub vbPrintPage ( x , y , z )
OLECMDID_PRINT = 6
OLECMDEXECOPT_DODEFAULT = 0
OLECMDEXECOPT_PROMPTUSER = 1
OLECMDEXECOPT_DONTPROMPTUSER = 2
On Error Resume Next
WB.ExecWB x, y, z, 0
End Sub
</SCRIPT>
</HEAD>
<BODY onload="vbPrintPage 6, 2, 3">
test
</BODY>
</HTML>
Единственное что надо поменять в свойствах IE разрешение на небезопасные элементы ActiveX. Вот решение:
<HTML>
<HEAD>
<OBJECT ID="WB" WIDTH="0" HEIGHT="0" CLASSID="clsid:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Sub window_onunload
On Error Resume Next
Set WB = nothing
End Sub
Sub vbPrintPage ( x , y , z )
OLECMDID_PRINT = 6
OLECMDEXECOPT_DODEFAULT = 0
OLECMDEXECOPT_PROMPTUSER = 1
OLECMDEXECOPT_DONTPROMPTUSER = 2
On Error Resume Next
WB.ExecWB x, y, z, 0
End Sub
</SCRIPT>
</HEAD>
<BODY onload="vbPrintPage 6, 2, 3">
test
</BODY>
</HTML>