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

**kayser** · 27/11/2006, 16h10

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

**omen999** · 27/11/2006, 19h57

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

**kayser** · 28/11/2006, 11h20

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**hak08** · 09/01/2009, 14h04

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

ex qui fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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>

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

VBScript

Discussions similaires

Partager

Partager