TdosPrn con Preview e impresoras laser

[ralph]

Estimados amigos del foro:

Como muchos de ustedes uso la clase TdosPrn modificada por Ednaldo Rolim que nos da la opcion de previsualizar los reportes (una excelente clase) antes de imprimirlas en impresoras matriciales.

Sin embargo me encontre con clientes que tenian impresoras Laser USB, u otras con tarjeta de red y se quejaban de que no podian imprimir desde este preview. Habia que hacer algunos trucos con NET USE LPTx para que se pudiera redireccionar la impresion a esas impresoras, lo que resultaba un tanto molesto.

Me preguntaba si es que tendria que rehacer todos mis reportes en las que usaba la clase TdosPrn para cambiarlos a tReport o tPrinter, pues con esas clases los reportes no tenian problemas al imprimir en cualquier impresora.

Investigando la clase TxtPreview (llamada por TdosPrn), encontre que la previsualizacion la hace usando otra clase fGet (de Ramon Avendaño), la misma que tiene un metodo Print() que llama a la clase tPrinter (entendieron el rollo?).

Bueno.... con unas horas (dias?) de trabajo pude hacer algunas modificaciones en ambas clases (txtpreview y fGet) para conseguir imprimir en tamaños de fuente apropiados para laser y ahora el problema de imprimir en CUALQUIER IMPRESORA se termino! (al menos eso creo)

No tengo que modificar mis reportes antiguos !!! (que heredo desde DOS) y puedo "convertirlos" a modo grafico (lo he probado en varios modelos laser y de inyeccion de tinta con exito). La fuente con la que imprime es "Lucida console" que esta todas las PC a partir de windows XP. Por ahora solo reconoce 2 tamaños de fuentes el modo "normal" y "comprimido" (que para mi es suficiente). Si alguna mente mas lucida sugiere _ para imprimir otros tipos de fuente, sea bienvenida.

Les paso los fuentes para quienes les interese, espero no estar violando derechos de autor, aclaro que las clases mencionadas no son mias. Es un pequeño aporte por lo mucho que he recibido de este foro.

Pueden descargar los fuentes y un ejemplo desde www.solupymes.com/fwin/tdosprev.zip


Saludos

Ralph del Castillo

[goosfancito]

Sobre esta clase,

Amigo, trate de varias formas de crear la clase y ejemplo que esta en ese zip pero me saltan errores, los que detallo.

Code: Select all

BLINKER : 1115 : D:\PRUEBAS\TDOSPREV\LIBRERIA\LIB\FGET.LIB(FGET) : 'CARETFLINE' : unresolved external
BLINKER : 1115 : D:\PRUEBAS\TDOSPREV\LIBRERIA\LIB\FGET.LIB(FGET) : 'DRAWFGETLI' : unresolved external
BLINKER : 1115 : D:\PRUEBAS\TDOSPREV\LIBRERIA\LIB\FGET.LIB(FGET) : 'LENFLINE' : unresolved external
BLINKER : 1115 : D:\PRUEBAS\TDOSPREV\LIBRERIA\LIB\FGET.LIB(FGET) : 'HEIGHTFLIN' : unresolved external
BLINKER : 1115 : D:\PRUEBAS\TDOSPREV\LIBRERIA\LIB\FGET.LIB(FGET) : 'WIDTHFLINE' : unresolved external
BLINKER : 1115 : D:\PRUEBAS\TDOSPREV\LIBRERIA\LIB\FGET.LIB(FGET) : 'FORMATFLIN' : unresolved external
BLINKER : 1115 : D:\PRUEBAS\TDOSPREV\LIBRERIA\LIB\FGET.LIB(FGET) : 'TFLINE' : unresolved external
BLINKER : 1115 : D:\PRUEBAS\TDOSPREV\LIBRERIA\LIB\FGET.LIB(FGET) : 'SETFCLIPDA' : unresolved external
BLINKER : 1115 : D:\PRUEBAS\TDOSPREV\LIBRERIA\LIB\FGET.LIB(FGET) : 'GTFTORTF' : unresolved external
BLINKER : 1115 : D:\PRUEBAS\TDOSPREV\LIBRERIA\LIB\FGET.LIB(FGET) : 'ISGTF' : unresolved external
BLINKER : 1115 : D:\PRUEBAS\TDOSPREV\LIBRERIA\LIB\FGET.LIB(FGET) : 'GETFCLIPDA' : unresolved external
BLINKER : 1115 : D:\PRUEBAS\TDOSPREV\LIBRERIA\LIB\FGET.LIB(FGET) : 'ISRTF' : unresolved external
BLINKER : 1115 : D:\PRUEBAS\TDOSPREV\LIBRERIA\LIB\FGET.LIB(FGET) : 'RTFTOGTF' : unresolved external

Podrías ayudarme por favor.
Gracias.

[ralph]

que version de fw estas usando? Yo uso FW26 y no hay problemas.

[goosfancito]

a perfecto,

tengo la fw21 por eso entonces.

Gracias.

[Wanderson]

Estimados amigos del foro:

Como muchos de ustedes uso la clase TdosPrn modificada por Ednaldo Rolim que nos da la opcion de previsualizar los reportes (una excelente clase) antes de imprimirlas en impresoras matriciales.

Sin embargo me encontre con clientes que tenian impresoras Laser USB, u otras con tarjeta de red y se quejaban de que no podian imprimir desde este preview. Habia que hacer algunos trucos con NET USE LPTx para que se pudiera redireccionar la impresion a esas impresoras, lo que resultaba un tanto molesto.

Me preguntaba si es que tendria que rehacer todos mis reportes en las que usaba la clase TdosPrn para cambiarlos a tReport o tPrinter, pues con esas clases los reportes no tenian problemas al imprimir en cualquier impresora.

Investigando la clase TxtPreview (llamada por TdosPrn), encontre que la previsualizacion la hace usando otra clase fGet (de Ramon Avendaño), la misma que tiene un metodo Print() que llama a la clase tPrinter (entendieron el rollo?).

Bueno.... con unas horas (dias?) de trabajo pude hacer algunas modificaciones en ambas clases (txtpreview y fGet) para conseguir imprimir en tamaños de fuente apropiados para laser y ahora el problema de imprimir en CUALQUIER IMPRESORA se termino! (al menos eso creo)

No tengo que modificar mis reportes antiguos !!! (que heredo desde DOS) y puedo "convertirlos" a modo grafico (lo he probado en varios modelos laser y de inyeccion de tinta con exito). La fuente con la que imprime es "Lucida console" que esta todas las PC a partir de windows XP. Por ahora solo reconoce 2 tamaños de fuentes el modo "normal" y "comprimido" (que para mi es suficiente). Si alguna mente mas lucida sugiere _ para imprimir otros tipos de fuente, sea bienvenida.

Les paso los fuentes para quienes les interese, espero no estar violando derechos de autor, aclaro que las clases mencionadas no son mias. Es un pequeño aporte por lo mucho que he recibido de este foro.

Pueden descargar los fuentes y un ejemplo desde www.solupymes.com/fwin/tdosprev.zip


Saludos

Ralph del Castillo

Ola Ralph

A mi el report no funciona en windows 98 e impressora Epson fx-2180 la fonte passa de la margen.

[anserkk]

Caro Ralph

Posso usar essa classe com FWH Versão 8.08

Vou ter que modificar qualquer uma das seguintes PRG 's que vem junto com FWH versão 8.08 para obter uma visualização e impressão para DOS usando o TextPrev.Prg

Fget.Prg
FGet.Ch
Printer.Prg
TDosPrn.Prg



Atenciosamente

Anser

-------------------------------------------------

Estimado Ralph

¿Puedo utilizar esta clase con FWH, versión 8.08

¿Tengo que modificar cualquiera de los siguientes PRG 's que viene junto con FWH Ver 8.08 para obtener una vista previa e imprimir a DOS utilizando el TextPrev.Prg

Fget.Prg
FGet.Ch
Printer.Prg
TDosPrn.Prg

Recuerdos

Anser

[anserkk]

Soy capaz de ver la vista previa a pesar de pequeños problemas hay en la pantalla de la página, pero la impresión no se realiza en modo DOS, pero está utilizando el modo gráfico (impresión lenta)

En la vista previa he encontrado los siguientes problemas
1) En la parte inferior de cada página, la primera línea de la página siguiente se agregará también.

¿Puede alguien ayudarme en este respecto. Yo muy mal necesario la solución de impresión para DOS con una vista previa y selección de páginas para imprimir

Gracias de antemano

Anser

[ralph]

Les sugiero revisar este mensaje:

http://www.fivetechsoft.com/forums/viewtopic.php?t=6999

con esta version puedes imprimir tanto en impresoras matriciales (modo texto) como en modo grafico (impresoras laser)

saludos

ralph

[anserkk]

Estimado Raplh,

Estoy utilizando FWH 8,08 con xHarbour.

He descargado el código fuente y la muestra de la página web proporcionada por usted www.solupymes.com/fwin/tdosprev.zip

El Prueba.exe también se encuentra en que el archivo zip (EXE es generado por usted). Incluso si lo intento exe que es sólo la impresión en modo gráfico (lento) y no es como si vas al símbolo del sistema y el tipo DIR> PRN.

Si yo uso puramente TDOSPRN a LPT1 (sin vista previa) y luego la impresión es muy rápido.

Si yo uso TDOSPRN con TxtPreview y si imprimir desde la vista previa de la impresión en modo gráfico (impresión lenta)

Cualquier ayuda en relación con este va a ser muy útil para mí.

Recuerdos

Anser

[ralph]

A ver si logramos entendernos:

La funcion TxtPreview.prg puede previsualizar de 2 modos: texto y grafico

Mira el ultimo parametro de la funcion:
TxtPreview( cFile, cTitulo, lModal,,, oPrn, oDlg, , lModoGraf )

Lo que yo hago, es que antes de imprimir, el usuario selecciona si tiene impresora matricial o laser, segun eso escojo que parametro mandar a la funcion.

1. Si el usuario escoje una impresora matricial, previsualizas en modo texto, y al enviar a la impresora se ejecuta el comando DOSPRINT.BAT por lo que la impresion es rapida.

2. Solo previsualizo en modo grafico cuando voy a imprimir en una laser o inkjet

Si estas haciendo eso, no deberias tener problemas.

Saludos

Ralph

[anserkk]

Ralph,

De alguna manera tengo que trabajar ahora. Gracias por tu clase.

La razón de mis problemas son

En mi aplicación he tenido que especificar la ruta completa para dosprint.bat (Es mi aplicación porque había algunos otros ajustes para cambiar la ruta por defecto)

Por ejemplo:

Code: Select all

if file('d:\Winacs\dosprint.bat')
    WAITRUN("DOSPRINT.BAT " + cTxtTmp + " " + cPorta, 0 )
else
   / / Mi PC se cuelga Si yo utilizar esta opción WinExec WindowsXP
   cPorta: = "PRN"
   winexec( "start c:\Windows\system32\command.com /c copy /b "+ cTxtTmp + " " + cPorta)
Endif

Mi PC se cuelga Si no he utilizado el comando Net use Lpt1: \\PcName\ShareName

Mi situación actual:

Tengo una red de alrededor de
a) 10 PC's
b) 3 impresoras matriciales
c) 1 en Impresoras Láser
d) 1 impresora inyección de tinta

El usuario puede seleccionar cualquier impresora que se desee a partir de la opción Seleccionar la impresora en la ventana de vista previa. Pero ahora usando esta clase, si no he utilizado el comando - Net use Lpt1: \\PcName\ShareName - PC no se imprime si el usuario seleccione matriciales, láser o de inyección de tinta de impresora. Resumen de la impresión es que va a suceder sólo si se captura LPT1

Ralph, ¿cómo manejar esta situación en su idea.


Mi intención es que:
si el usuario seleccione una impresora de matriz de puntos
---- Luego debe obtener DOSPRINT.BAT ejecutados
si el usuario selecciona cualquier otra impresora de matriz de puntos, es decir, láser o de inyección de tinta
---- Luego de impresión normal debe suceder



Ralph, ¿cómo calcular la longitud de página? En su muestra test.prg no he podido encontrar un salto de página dado

Para, por ejemplo,

Code: Select all

If nLin> nMaxLine
    / / No hay oPrn: EndPage () y oPrn: StartPage () Entonces, ¿cómo es el salto de página hecho
Endif

Recuerdos

Anser

[anserkk]

Estimado Ralph,

Mis observaciones de la clase TxtPreview


TxtPreview( cFile, "Anser Test", .T.,lSpool,cPort, oPrn, WndMain(), , lGraphics )


a) LPT1 debe ser capturado para la impresión rápida de DOS a trabajar a partir de TxtPreview a una impresora de matriz DOT

b) Si LPT1 no es capturado y es lSpool. T., y es lGraphics. F. entonces no ocurre nada cuando el usuario haga clic para imprimir

c) Si LPT1 si no es capturado y es lSpool. F., y es lGraphics. F. entonces se bloquea PC y salga anormal cuando el usuario haga clic para imprimir

d) U puede imprimir en láser y Injet impresoras sólo cuando se lGraphics. T.

Raplh ¿hay alguna manera de identificar si el usuario selecciona una impresora de matriz de puntos o láser / inyección de tinta, de modo que desde el interior de la clase TTextPrev _ el valor de lGraphics a cualquiera. T. o . F. que resuelve el problema

Recuerdos

Anser

[ralph]

He hecho unas modificaciones en la clase Tdosprn para seleccionar algunos parametros antes de imprimir:

1. Poder seleccionar la impresora,
2. Seleccionar el modo de impresion (texto o grafico)
3. Indicar la cantidad de lineas por pagina
4. Si se desea previsualizar o no

No conozco como saber si una impresora es laser, por eso el usuario debe indicar el modo de impresion.

Pueden descargar desde aqui: http://www.solupymes.com/fwin/tdosprevn.zip

Saludos

Ralph

[anserkk]

Estimado Ralph,

I y se intenta hacerle saber mi opinión. De ave sido mejor si tuviéramos una opción para averiguar si el usuario selecciona la impresora es de matriz de puntos (Texto) o láser / inyección de tinta (gráficos) y, en consecuencia, el código para generar la vista previa

Recuerdos

Anser
English

»
Spanish

Translate

[anserkk]

Estimado Ralph

He intentado su última versión, pero lamentablemente no es el texto que aparece en la ventana de vista previa. Ventana de vista previa está en blanco. Tuve el mismo problema cuando utiliza la versión anterior de la clase, pero me corrige este problema utilizando la ruta completa en el cFile

Code: Select all

SetMTxtPreview (.F., 5, 2,.F.,.T.)
cPort: = "LPT1"
cFile: = "D: \ TEST.PRN"
oPrn: = TDosPrn ():New(cFile)
TxtPreview (cFile ", Anser Test",. T.,,, oPrn, WndMain (),,.F.)

Pero este truco no funciona con la versión actual, que le proporcionó y, por tanto, no de salida en la ventana de vista previa. ¿Tiene alguna sugerencia sobre cómo resolver el problema de la vista previa?

Ralph,

Con el siguiente código se puede identificar si una impresora seleccionada es matriz de puntos o no


Si oPrn: nLogPixelX () <= 350, entonces es una impresora de matriz de puntos

Code: Select all

 Si oPrn: nLogPixelX () <= 350
MsgInfo ( "Matriz de puntos nLogPixel es" + str (oPrn: nLogPixelX ()))
Algo más
MsgInfo ( "InkJet / láser nLogPixel es" + str (oPrn: nLogPixelX ()))
Endif 

Lo comprobé el código anterior con diferentes tipos de impresoras (inyección de tinta, láser y matriz de puntos) y yo estoy recibiendo los resultados correctos para determinar si la impresora seleccionada es Dot Matrix o InkJet / láser, aunque existen diferencias en los píxeles de una matriz de puntos a otra impresora de matriz de puntos

Sería bueno si se puede incorporar en la clase

Recuerdos

Anser