Foros del Web - Imprimir LPT desde ASP

Foros del Web (http://www.forosdelweb.com/)

- ASP Clásico (http://www.forosdelweb.com/f15/)

- - Imprimir LPT desde ASP (http://www.forosdelweb.com/f15/imprimir-lpt-desde-asp-582222/)

edkerrigan

02/05/2008 08:25

Imprimir LPT desde ASP

Hola compañeros, muy buenos días.

He aqui que tengo un dilema:

Investigando hace tiempo desarrolle unas macros en Excel que me imprimían directamente en una impresora conectada al puerto paralelo usando:

Código:

Private Function Imprime_Linea1(Texto As String)

    Open "lpt1" For Output As #1

    Print #1, Texto

    'Print #1, Chr(27) + Chr(112) + Chr(0) + Chr(60) + Chr(240);

    Close #1

End Function

Sin embargo al momento de usar esta misma función me marca error, no sé porque en los AS

Se puede imprimir a lpt desde una página?

Shiryu_Libra

02/05/2008 10:27

Re: Imprimir LPT desde ASP

:pensando:

a lo mejor este codigo te puede servir

Código HTML:

<%@ Language="VBScript" %>
 <% Option Explicit %>
 <html>
 <head>
 <title>ASP 101's Server-Side Printing Sample</title>
 </head>
 <body>
 
 <%

Dim objFSO

Dim objPrinter
 

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 

Set objPrinter = objFSO.CreateTextFile("LPT1:", True)
 

objPrinter.WriteLine "This is a test of printing from ASP!"

objPrinter.Write vbFormFeed
 

objPrinter.Close
 

Set objPrinter = Nothing
 

Set objFSO = Nothing

%>
 
 </body>
 </html>

prueba y comenta :adios:

edkerrigan

03/05/2008 10:30

Re: Imprimir LPT desde ASP

Hola compañero, ya lo probe y me marca un error en la linea donde esta la instrucción:

Set objPrinter = objFSO.CreateTextFile("LPT1:", True)

algo como esto:

Información técnica (para personal de soporte técnico)

* Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0046)
Permiso denegado
/agenda/impresion.asp, línea 15

Gracias

La zona horaria es GMT -6. Ahora son las 05:22.