FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Enviar comando a la impresora via tPrint
Posts: 128
Joined: Wed Oct 26, 2005 12:18 PM
Enviar comando a la impresora via tPrint
Posted: Wed Apr 15, 2009 12:56 PM

Hola Antonio:

Creo que tengo que enviarle unos comandos a una impresora ELTRON (ZEBRA) P310i para su correcto funcionamiento, pero en la clase tPrint no ubico ningún método para hacerlo, pues observo que al enviarle textos lo que realmente se hace es "pintarlo" en su device context con TextOut o TextExtOut.

¿Podrías darme alguna pista de si esto es posible y cuál es la forma de hacerlo?

Como siempre muy agradecido.

César Lozada

Posts: 401
Joined: Thu Oct 06, 2005 10:15 PM
Re: Enviar comando a la impresora via tPrint
Posted: Wed Apr 15, 2009 01:17 PM

Hola Cesar,

En la experiencia que tengo con esos tipos de impresora, tienes que instalar el driver para windows y usar la tprinter...

Saludos,



Pablo Alberto Vidal

/*

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

Harbour 3.2.0, Fivewin 17.02, BCC7

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

*/
Posts: 128
Joined: Wed Oct 26, 2005 12:18 PM
Re: Enviar comando a la impresora via tPrint
Posted: Wed Apr 15, 2009 01:44 PM

Gracias, Pablo.

El problema es que si a la impresora no se le envía un comando de clear image buffer ( <Esc>F = chr(27)+chr(70) ) hay un momento en que el texto comienza a salir con manchas.

Revisando en source\winapi\printdc.c encuentro una función Escape(hDC, nEscape, cInput, @cOutPut) que aparentemente hace el envío de comandos con esc a la impresora, pero no comprendo la explicación dada en fwfun.chm

Si esta es la función correcta, necesito un ejemplo de cómo enviar este comado a la impresora pues ésta no la tengo en el sitio de trabajo. ¿ Escape(hDC,27,"F") ?

Gracias.

FUNCTION Escape:

Directly access a device driver
Syntax:
Escape( <hDC>, <nEscape>, <cInput>,[ <@cOutPut>] ) --> nReturn
Parameters:
<hDC> Device context
<nEscape> Specifies the escape function to be performed.
<cInput> Specifies the Input Data required for the specified escape
<@cOutPut> Buffer passed by Reference, where the output of the Escape is stored.

Returns:
If the returned value is smaller than zero, it has happened a error. In another case it has gone well except for the QUERYESCSUPPORT printer escape, which checks for implementation only. The return value is zero if the escape is not implemented. A return value less than zero indicates an error.

Posts: 401
Joined: Thu Oct 06, 2005 10:15 PM
Re: Enviar comando a la impresora via tPrint
Posted: Wed Apr 15, 2009 02:30 PM
Cesar trata si la impresora acepta toda la impresion desde codigos Escape Utiliza esta funcion propia de xHarbour
Code (fw): Select all Collapse
PrintFileRaw()
Que te imprime un archivo a una impresora tipo Windows. Aqui tienes un ejemplo de como yo la implemente.
Saludos,



Pablo Alberto Vidal

/*

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

Harbour 3.2.0, Fivewin 17.02, BCC7

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

*/

Continue the discussion