[VBS] Imprimer un fichier ... tout simplement !!

Imprimer un fichier ... tout simplement !! [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 21-10-2004 à 17:59:33    

Bonjour à tous,
 
dans ma société, je bosse actuellement avec des Unix/Linux, qui administrent nos éditions (imprimantes laser, étiquettes, ...) et contiennent nos BdD Oracle.
 
Nous sommes en plein portage Windows, et nous devons donc migrer nos scripts shell en script Windows.
Notre premier choix se porte sur VBScript, avec lequel j'ai réussi à me connecter à nos bases Oracle, puis à exécuter des requêtes.
Néanmoins, un truc que je pensais tout bête me freine énormément : lancer l'édition d'un fichier sur une imprimante définie sur le serveur !!!!
 
Etant débutant en VBS, est-ce que qq'un pourrait m'aider, svp ???
 
Merci d'avance

Reply

Marsh Posté le 21-10-2004 à 17:59:33   

Reply

Marsh Posté le 22-10-2004 à 08:51:52    

Personne n'aurait juste une petite réponse, ou un indice, ou une piste ???

Reply

Marsh Posté le 22-10-2004 à 10:20:00    

neo21 a écrit :

Personne n'aurait juste une petite réponse, ou un indice, ou une piste ???


 
Solution bidon :
tu peux toujour créer un document word en faisant
Set document = CreateObject("Word.Document" )
Ensuite ecrire ton texte dedans et l'imprimer

Reply

Marsh Posté le 22-10-2004 à 15:08:01    

Ca a au moins le mérite d'être une solution.
Néanmoins, j'ai déjà trouvé ce genre de solution avec notepad, mais dans ontre cas, nous avons besoin de bcp plus de réactivité que çà.
En gros, si on pouvait faire un "print" comme en DOS, ça serait bien.
 
Quelqu'un sait sinon si on peut imprimer directement vers une imprimante en JavaScript, ou Windows Script ?

Reply

Marsh Posté le 22-10-2004 à 17:44:02    

neo21 a écrit :

En gros, si on pouvait faire un "print" comme en DOS, ça serait bien.


t'as essayé de lancer un print en ligne de commande ? genre  
 

Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell" )
 
Set oExec = WshShell.Exec("Print monFichier.txt" )
 
Do While oExec.Status = 0
     WScript.Sleep 100
Loop
 
WScript.Echo oExec.Status


 
 
http://msdn.microsoft.com/library/ [...] method.asp


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed