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.
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()
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()
ENDPRINTAgradezco 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.