...
me dice problema con la impresora... sera acaso que omiti algo... podrian decir el error?
codigo
Código PHP:
Option Explicit
Public Function imprimir(Path As String)
Dim Free_File As Integer
Dim Datos As String
Dim pos As Integer
Dim l As String
Dim Palabra As String
' número de archivo libre
Free_File = FreeFile
' abre el archivo para leerlo
Open Path For Input As Free_File
' Almacena los datos del archivo en la variable
Datos = Input(LOF(Free_File), Free_File)
' cierra el archivo
Close Free_File
Do While Len(Datos) > 0
pos = InStr(Datos, vbCrLf)
If pos = 0 Then
l = Datos
Datos = ""
Else
' linea
l = Left$(Datos, pos - 1)
Datos = Mid$(Datos, pos + 2)
End If
' palabras
Do While Len(l) > 0
' posición para extraer la palabra
pos = InStr(l, " ")
If pos = 0 Then
Palabra = l
l = ""
Else
Palabra = Left$(l, pos)
l = Mid$(l, pos + 1)
End If
' verifica que no se pase del ancho de la hoja
If (Printer.CurrentX + Printer.TextWidth(Palabra)) <= Printer.ScaleWidth Then
' imprime la palabra
Printer.Print Palabra;
' si no imprime en la siguiente linea
Else
Printer.Print
' verifica que no se pase del alto de la hoja
If (Printer.CurrentY + Printer.Font.Size) > Printer.ScaleHeight Then
' nueva hoja
Printer.NewPage
End If
' imprime la palabra
Printer.Print Palabra;
End If
Loop
Printer.Print
Loop
' Fin. Manda a imprimir
Printer.EndDoc
End Function
' botón que imprime el archivo
'''''''''''''''''''''''''''''''''''''
'Private Sub Command1_Click()
' Call imprimir("c:\archivo.txt")
End Sub
lo mando llamar desde ASP, de la siguiente manera
Código HTML:
function impresion(filename)
Set svrprint = Server.CreateObject("ASPImprimir.clsImprimir")
if err=0 then
svrprint.imprimir(filename)
end if
set svrprint = nothing
end function
el resultado en pantalla... es el siguiente
Código HTML:
1
2
3
4
5
6
7
8
9
10
ASPImprimir error '800a01e2'
Error de impresora
/pruebas/ASP_DLLS/testing_printing_asp_dll.asp, line 63
algun detalle que se me pasara en los codigos?
tanto tiempo sin usar esta programacion... cobro sus frutos
: