Imprimir LPT desde ASP

edkerrigan · #1 (**permalink**) 02/05/2008, 08:25

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 · #2 (**permalink**) 02/05/2008, 10:27

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

edkerrigan · #3 (**permalink**) 03/05/2008, 10:30

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