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.
CLASE TDOSPRN NO IMPRIME EN LPT1
- Willi Quintana
- Posts: 859
- Joined: Sun Oct 09, 2005 10:41 pm
- Location: Cusco - Perú
- Contact:
Re: CLASE TDOSPRN NO IMPRIME EN LPT1
Toma en cuanta con que Windows de 32 bits, no controla al LPTx,
Prueba asi:
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
- Posts: 340
- Joined: Mon Oct 05, 2009 3:35 pm
- Location: Curico-Chile
- Contact:
Re: CLASE TDOSPRN NO IMPRIME EN LPT1
hola , yo lo hago de esta forma:
esto me ha funcionado desde win98 a win 8.1 sin problemas
espero que te sirva
saludos desde chile.
Armando
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
espero que te sirva
saludos desde chile.
Armando
Re: CLASE TDOSPRN NO IMPRIME EN LPT1
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.
Muchas gracias a Todos.