Roberto, probé lo que pasaste y me funcionó de maravilla.
Tenía un sistema que no imprimía bien.
SOS UN GENIO!

  -----Mensaje original-----
  De: gufa@mug.org.ar [mailto:[EMAIL PROTECTED] nombre de Roberto Darjover
  Enviado el: Miércoles, 02 de Mayo de 2007 11:36
  Para: gufa List Member
  Asunto: [gufa] [Off topic - VB6] Impresion matricial (plain text) desde
Visual Basic 6.0


  Marcelo, nosotros usamos algo como esto para imprimir en una epson de
carro ancho, es bien a manopla pero anda joya.
  Espero te sirva.

  Saludos.

  Roberto

  ************************************************************
  * Setea Impresora y Letra Condensada.
  SET PRINTER TO XXXX.PRN
  SET DEVICE TO PRINT

  * - - configuro para letra condensada y 72 renglones
  ??? CHR(27) + CHR(64)
  ??? CHR(27) + "C" + CHR(72)
  ??? CHR(15)

  FILA = 1
  HOJA = 1

  SELECT cursorxxxx
  GO TOP
  DO WHILE .NOT. EOF()
     IF FILA >= 64
        FILA = 1
        HOJA = HOJA + 1
        EJECT
     ENDIF
     IF FILA = 1
        DO TITULOS WITH FILA, HOJA
     ENDIF
          *
     * Imprime Linea
      LINEA = "lo que imprimas como detalle"

      @ FILA, 0 SAY LINEA
      FILA = FILA + 1
  ENDDO

  EJECT

  ENDIF
  SET DEVICE TO SCREEN
  SET PRINTER TO
  RETURN

***************************************************************************

    ----- Original Message -----
    From: Marcelo Hacker (LISTAS)
    To: gufa List Member
    Sent: Wednesday, May 02, 2007 11:04 AM
    Subject: [gufa] [Off topic - VB6] Impresion matricial (plain text) desde
Visual Basic 6.0


    Gracias Pablo, pero tambien lo hicimos... es exactamente la misma
cuestión.

    Por eso, el problema no es intentar "prueba y error", sino dar con
alguien que lo tenga funcionando hoy en día en un aplicativo en producción.

    Sds
    Marcelo

      ----- Original Message -----
      From: PabloC
      To: gufa List Member
      Sent: Wednesday, May 02, 2007 10:51 AM
      Subject: [gufa] [Off topic - VB6] Impresion matricial (plain text)
desde Visual Basic 6.0


      Porque no imprimis a un archivo .txt y despues haces el viejo RUN Copy
archivo.txt > LPT1

      Saludos
      PabloC
        ----- Original Message -----
        From: Marcelo Hacker (LISTAS)
        To: gufa List Member
        Sent: Wednesday, May 02, 2007 10:45 AM
        Subject: [gufa] [Off topic - VB6] Impresion matricial (plain text)
desde Visual Basic 6.0


        Gente,

        Supongo que este problema tambien se presenta con el VisualFox, por
ello hago la consulta acá.

        Se nos presentó un problema que aparentemente debería ser una
pavada... pero por lo que venimos renegando hace unos días y lo que hemos
encontrado en internet (MSDN/GOOGLE/ETC), parece que no es tan sencillo.

        Simplemente necesitamos imprimir en modo texto a la usanza del viejo
Clipper, Fox, etc. a una impresora LX-300 (o una FX-890) y no por medio del
objeto printer de Visual.

        Ya intentamos la apertura del puerto, funcionó bien, pero no respeta
los saltos de hoja en forma correcta, ni el Tear On de la impresora.

        Si alguno de uds. ya lo tiene resuelto, les agradeceria si pudiesen
mandar un pequeño recorte de ejemplo del código (principalmente la
inicialización y cierre del documento o archivo de impresión).

        Desde ya 1000 gracias por adelantado.

        Marcelo Hacker


        __________ Información de NOD32, revisión 2231 (20070430) __________

        Este mensaje ha sido analizado con NOD32 antivirus system
        http://www.nod32.com

Responder a