FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour tdosprn a tprinter
Posts: 400
Joined: Fri May 11, 2007 08:20 PM
tdosprn a tprinter
Posted: Tue Feb 07, 2012 04:03 AM
Amigos del foro:
He venido trabajando con tdosprn hasta ahora pero debido a las enormes dificultades que me he encontrado
no imprime en ambiente de red, no imprime en usb, me veo en la necesidad de cambiarlo por tprinter
la pregunta es:
cuanto debo de ponerle a: oPrn:nVertRes() para obtener 70 filas?
y a oPrn:nHorzRes() para obtener 135 cols? que eso era lo que en una hoja continua chica entraba

Yo lo hago de esta forma :
nFilPixel := (oPrn:nVertRes() / 70) //70 filas
nColPixel := (oPrn:nHorzRes() / 135) //135 cols

y otra preg. saben que font es el que usa la clase tdosprn para imprimir o una similar
mi objetivo es tratar de no modificar mis reportes hechos con tdosprn que ya estaban cuadrados para formato continuo

gracias por los consejos q puedan darme

Uso : fwh june 2005, bcc5, pelles c
fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
Posts: 537
Joined: Mon Jan 16, 2006 03:42 PM
Re: tdosprn a tprinter
Posted: Tue Feb 07, 2012 12:44 PM

Prueba asi imprimiendo USB
cFile :="LISTADO.PRN"
cPrinter := PrinterPortToName( "USB001" )
oPrin := TDosPrn():New(cFile)
oPrin:StartPage()
...
...
oPrin:EndPage()
oPrin:End()

PrintFileRaw( cPrinter, cFile, "Imprimiendo Listado" )
FERASE( cFile )

SAludos

Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: tdosprn a tprinter
Posted: Tue Feb 07, 2012 05:06 PM

artu01,

Te recomiendo que utilices la clase TImprime/TUtilprn de Rafa Carmona. Creo que se ha hecho otra similar para .pdf.

Espero que te ayude

Posts: 400
Joined: Fri May 11, 2007 08:20 PM
Re: tdosprn a tprinter
Posted: Wed Feb 08, 2012 01:09 AM

Gracias a ambos por sus rptas.
jbrita:
yo utilizo harbour y los comandos PrinterPortToName() y PrintFileRaw() son de xhb
existira algo parecido en hb?

hmpaquito:
Voy a empezar a usar la clase timprime que me comentas,, tendras algun ejemplo?

Gracias

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: tdosprn a tprinter
Posted: Wed Feb 08, 2012 08:19 AM

Artu01,

Si mal no recuerdo, la clase TImprime/TUtilPrn ya trae ejemplos; desgraciadamente mi codigo esta demasiado elaborado como para dejar aqui un ejemplo claro y sencillo. Tengo todas mis impresiones basadas en esa clase, ya sea listados, ya sea documentos.

Saludos

Posts: 400
Joined: Fri May 11, 2007 08:20 PM
Re: tdosprn a tprinter
Posted: Thu Feb 09, 2012 03:40 AM

Ya encontre la clase con algunos ejemplos los voy a estudiar
cualquier duda que temga te lo hare saber
gracias paquito

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

Continue the discussion