changer imprimante par défaut et paramètre d'impression

Version imprimable

27/11/2006, 16h10
kayser

changer imprimante par défaut et paramètre d'impression

Bonjour,

(c'est pour une application web intranet)

1) Est il possible de changer d'imprimante par défaut en vbscript ?

2) Est il possible de selectionner une imprimante, de changer ses paramètres d'impression (paysage, taille du document,...) et d'ouvrir ensuite la boite de dialogue relatif à l'impression ?

Merci

Kayser
27/11/2006, 19h57
omen999

bonjour,
la lecture ne manque pas sur le net
au hasard: http://www.computerperformance.co.uk...nter_Bonus.htm

Je suis d'accord avec toi, c'est pas la lecture qui manque mais trop ça perturbe !

Merci pour ton lien.

En appliquant ce que j'ai vu, voici ce que j'ai fait :

fichier defaultprinter.vbs :
Code:

1 2 3 4 5 6 7 8 9 10 11 Option Explicit sub defPrint() Dim objNetwork, strUNCPrinter strUNCPrinter = "\\SERVEUR1\hp deskjet 5550 series" Set objNetwork = CreateObject("WScript.Network") objNetwork.AddWindowsPrinterConnection strUNCPrinter objNetwork.SetDefaultPrinter strUNCPrinter end sub
et ma page web (.asp) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 <html> <head> <script type="text/vbscript" src=".\jsscript\defaultprinter.vbs"></script> </head> <body onload="vbscript:defPrint"> <p align="center" ><button onclick="javascript:window.print()">imprimer</button><button onclick="javascript:window.close()">fermer</button></p> <div> texte à imprimer </div> </body>
Bah ça n'a pas l'air de fonctionner !!

Où est mon erreur ?

Merci
Kayser

Hola
Essaie de mettre ton code vd dans ton asp encapsulé dans des balises script avec langage=vbscript

ex qui fonctionne
Code:

1 2 3 4 5 6 7 8 9 <html> <body onload="window.close()"> <SCRIPT language=vbscript> Dim net Set net = CreateObject("WScript.Network") net.SetDefaultPrinter "Microsoft XPS Document Writer" </SCRIPT></body> </html>