ASP output to printer 1

[laurapyl]

Users of our intranet make internal purchases with a "eshop". At the moment each order is created in the database and every now and then we look if there are new orders. First i wanted the system to send out an email, that will be an improvement. But the person who will receive the email is not always in. So now i think it is better to direct print the order (we need a hard-copy anyhow).
So i want my ASP print on a shared network printer. is this possible?

 

[foxbox]

yes. i do that this way:

Dim strPrinterPath
Dim strMessage    
Dim objFS         
Dim objWSHNet     
Dim objPrinter    

strPrinterPath= "\\192.168.0.23\HP4000"

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objWSHNet = CreateObject("WScript.Network")
On Error Resume Next
objWSHNet.RemovePrinterConnection "LPT1:"

objWSHNet.AddPrinterConnection "LPT1", strPrinterPath, False, "", ""
Set objPrinter = objFS.CreateTextFile("LPT1:", True)

strMessage = "HELLO WORLD!" & chr(12)
objPrinter.Write(strMessage)
objPrinter.Close
objWSHNet.RemovePrinterConnection "LPT1:"
Set objWSHNet  = Nothing
Set objPrinter = Nothing

 

[laurapyl]

wow! that works!

 

[JordanR]

foxbox,
how would I use the script above to print to a printer connected to a Linksys print server.
Your help is greatly appreciated.

 

[foxbox]

Change the printerpath in this line

strPrinterPath= "\\192.168.0.23\HP4000"

into the address of that Linksys (?) printer. Classic problem that you may encounter: user rights. Your webuser must be have rights to print on the printer.

 

[foxbox]

BTW you can add userid and password to the AddPrinterConnection method:

objWSHNet.AddPrinterConnection "LPT1", strPrinterPath, False, "<userid>", "<password>"