HTML beginner |
|
ik heb een script waarmee ik een default printer instel en vervolgens zonder user-prompt een print opdracht uitvoer
Het werkt prima met lokaal geïnstalleerde printers....
Maar shared printers doet hij het niet mee :S
Hoe los ik dat op?
<script language="VBScript">
SUB Print()
[b]EDIT:[/b] NIEMAND??
Set WshNetwork = CreateObject("WScript.Network")
Set Printers = WshNetwork.EnumPrinterConnections
WshNetwork.SetDefaultPrinter("<?php echo $Printer_Bon; ?>")
Set WshNetwork = nothing
OLECMDID_PRINT = 6
OLECMDEXECOPT_DONTPROMPTUSER = 2
OLECMDEXECOPT_PROMPTUSER = 1
document.body.focus()
on error resume next
call IEWB.ExecWB (OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER)
if err.number <> 0 then
alert "Niks Geprint"
end if
END SUB
</script>
<script language="VBScript"> SUB Print() [b]EDIT:[/b] NIEMAND?? Set WshNetwork = CreateObject("WScript.Network") Set Printers = WshNetwork.EnumPrinterConnections WshNetwork.SetDefaultPrinter(" <?php echo $Printer_Bon; ?>") Set WshNetwork = nothing OLECMDID_PRINT = 6 OLECMDEXECOPT_DONTPROMPTUSER = 2 OLECMDEXECOPT_PROMPTUSER = 1 document.body.focus() on error resume next call IEWB.ExecWB (OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER) if err.number <> 0 then alert "Niks Geprint" end if END SUB </script>
|