Foros del Web - error de impresora "error '800a01e2'"

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

- Visual Basic clásico (http://www.forosdelweb.com/f69/)

- - error de impresora "error '800a01e2'" (http://www.forosdelweb.com/f69/error-impresora-error-800a01e2-598215/)

error de impresora "error '800a01e2'"

:adios:...

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?

:pensando: tanto tiempo sin usar esta programacion... cobro sus frutos :neurotico:

Respuesta: error de impresora "error '800a01e2'"

Es un gusto verte por aquí Shiryu_Libra.
Lo único que me parece mal es esto:

Código:

Printer.Print

Debería ser:

Código:

Printer.Print ""

El resto todo parece bien.

Saludos :adios:

Respuesta: error de impresora "error '800a01e2'"

Gracias David, intentare regenerar el DLL, probare y ya comento :adios:

Respuesta: error de impresora "error '800a01e2'"

:adios: david.... mismo error, cambie incluso el nombre del proyecto, nombre de la clase, y el nombre del DLL, para probar como decias, y seguimos con lo mismo

alguna otra opcion, lo que ando tratando de realizar es que mi servidor realize una impresion de prueba

que me estare saltando?:pensando:

NOTA: no el cliente, mi servidor quiero que imprima despues de una lectura

Respuesta: error de impresora "error '800a01e2'"

¿Ya intentaste cambiar el proyecto a ejecutable y depurarlo?

Respuesta: error de impresora "error '800a01e2'"

es extraño, pero en este caso como depuro si la ejecuto dentro de ASP y no en VB???

Respuesta: error de impresora "error '800a01e2'"

Cita:

Iniciado por Shiryu_Libra (Mensaje 2456317)

es extraño, pero en este caso como depuro si la ejecuto dentro de ASP y no en VB???

Pues bien, ejecútalo en VB y depúralo...