<html>
<head>
<script language="JavaScript">
DA = (document.all) ? 1 : 0
function HandleError()
{
alert("\nไม่มีการพิมพ์. \n\nถ้าคุณต้องการจะพิมพ์หน้านี้ ก็ให้\nคลิ๊คปุ่มพิมพ์ที่แถบเครื่องมือ ข้างบนค่ะ.")
return true;
}
</script>
<script language="JavaScript">
function NoDialogBox()
//ใช้ปิด window โดยไม่ขึ้น confirm dialog box
{
window.open('','_self');
self.close();
}
</script>
</head>
<body onLoad="window.print(); NoDialogBox();">
<table width="600" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>กด Enter รับเงิน (ที่หน้า์บันทึกการขาย)</td>
</tr>
<tr>
<td>แล้วจะโหลดหน้าใบเร็จรับเงิน -->พิมพ์ และปิด หน้านี้เอง โดยไม่ขึ้น Print dialog box และ popup close window</td>
</tr>
</table>
<script language="VBScript">
Sub window_onunload()
On Error Resume Next
Set WB = nothing
On Error Goto 0
End Sub
Sub Print()
OLECMDID_PRINT = 6
OLECMDEXECOPT_DONTPROMPTUSER = 2
OLECMDEXECOPT_PROMPTUSER = 1
On Error Resume Next
If DA Then
call WB.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER,1)
Else
call WB.IOleCommandTarget.Exec(OLECMDID_PRINT ,OLECMDEXECOPT_DONTPROMPTUSER,"","","")
End If
If Err.Number <> 0 Then
If DA Then
Alert("Nothing Printed :" & err.number & " : " & err.description)
Else
HandleError()
End if
End If
On Error Goto 0
End Sub
If DA Then
wbvers="8856F961-340A-11D0-A96B-00C04FD705A2"
Else
wbvers="EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B"
End If
document.write "<object ID=""WB"" WIDTH=0 HEIGHT=0 CLASSID=""CLSID:"
document.write wbvers & """> </object>"
</script>
</body>
</html>
Load balance : Server 02
