CLASE TDOSPRN NO IMPRIME EN LPT1

[Yessica]

Nuevamente hola a todos:

Su ayuda por favor utilizo la clase Tdosprn de fwh 14.12 con Harbour 3.2, pero no me manda la impresión. Que podría ser?


LOCAL oPrn
IF !IsPrint("LPT1:")
RETURN nil
ENDIF
oPrn := TDosPrn():New("LPT1")
oPrn:StartPage()
oPrn:say(10,10,"Prueba de Impresión")
oPrn:EndPage()

Asi es como lo uso pero no manda nada hacia la impresora nada.

[Willi Quintana]

Toma en cuanta con que Windows de 32 bits, no controla al LPTx,
Prueba asi:

Code: Select all

LOCAL oPrn
IF !IsPrint("LPT1")        // sin los dos puntos
 RETURN nil
ENDIF
oPrn := TDosPrn():New("LPT1")
oPrn:StartPage()
oPrn:say(10,10,"Prueba de Impresión")
oPrn:EndPage()

 

[armando.lagunas]

hola , yo lo hago de esta forma:

Code: Select all

PRINTER oPrn NAME "Guia Despacho" TO "nombre impresora conectada a LPT1"  // renombro la impresora EJ: IBMXL en windows

   DEFINE FONT Fon1 NAME "Arial Narrow" SIZE 0,-12 OF oPrn

   PAGE
     Largo := oPrn:nVertSize()
     Hancho:= oPrn:nHorzSize()
         
     nRow += 0.38
     oPrn:CmSay( ( nRow += 0.38 ),3.5,"GUIA DESPACHO NRO."+cNum, Fon1 )
     nRow += 0.38
     nRow += 0.38
     oPrn:CmSay( ( nRow += 0.38 ),12.9,STR(DAY(cFec),2,0)  , Fon1 )
         ....... 
         .......
         oPrn:CmSay(21.70,18,TRANSFORM(tTotal,"@E ####,###,###"), Fon1 )
    ENDPAGE
    Fon1:End()
ENDPRINT

 

esto me ha funcionado desde win98 a win 8.1 sin problemas

espero que te sirva

saludos desde chile.

Armando

[Yessica]

Agradezco a cada uno sus respuestas, lo que hice fué: Desinstalar la impresora de matriz y volver a instalarla como Genérica, al parecer ya quedó resuelto, seguiré probando.

Muchas gracias a Todos.