Imprimir Localmente

estrella
04 de Julio del 2002
Hola, Necesito imprimir directamente desde mi pagina ASP. Yo estoy utilizando el siguiente codigo:

'Create FileSystem Object and Windows Script Host Network Object
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objWSHNet = CreateObject("WScript.Network")

objWSHNet.AddPrinterConnection "LPT1", "\itprogGeneric", False, "acobos", "password"


' Open Print device as a file using the File System Object
Set objPrinter = objFS.CreateTextFile("LPT1:", True)

' Send text to print device using the File System Object

objPrinter.writeline("TEST")
objPrinter.close

' Remove the printer connection

objWSHNet.RemovePrinterConnection "LPT1:"

Set objWSHNet = Nothing
Set objFS = Nothing
Set objPrinter = Nothing

Pero este cdigo me da problemas porque lo tengo ubicado en un botn y si pulso dos veces de seguido el botn , envia un error de que ya se cre la conexin.