login  Naam:   Wachtwoord: 
Registreer je!
 Forum

VB script printer

Offline DeafBoy - 16/02/2006 15:38 (laatste wijziging 17/02/2006 01:07)
Avatar van DeafBoyHTML 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?

  1. <script language="VBScript">
  2. SUB Print()
  3.  
  4. [b]EDIT:[/b] NIEMAND??
  5.  
  6. Set WshNetwork = CreateObject("WScript.Network")
  7. Set Printers = WshNetwork.EnumPrinterConnections
  8. WshNetwork.SetDefaultPrinter("<?php echo $Printer_Bon; ?>")
  9. Set WshNetwork = nothing
  10.  
  11. OLECMDID_PRINT = 6
  12. OLECMDEXECOPT_DONTPROMPTUSER = 2
  13. OLECMDEXECOPT_PROMPTUSER = 1
  14. document.body.focus()
  15. on error resume next
  16. call IEWB.ExecWB (OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER)
  17. if err.number <> 0 then
  18. alert "Niks Geprint"
  19. end if
  20. END SUB
  21. </script>

0 antwoorden

Gesponsorde links
Er zijn nog geen reacties op dit bericht.
Dit onderwerp is gesloten.
Actieve forumberichten
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.179s