Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Impresion continua sin limite fijo de longitud (Largo)

185 views
Skip to first unread message

Zonux Fishman

unread,
Nov 18, 2009, 7:35:41 AM11/18/09
to
Hola grupo !!!
En VFP8
��Alguna sugerencia para usar impresoras termicas con un "ticket" que puede
variar en el largo dependiendo de la cantidad de items ???.
���Utilizando el generador de reportes ????
La impresora termica es de puerto USB.
Ya he intentado tipo DOS pero a veces se "cuelga" y no imprime hasta que
pasa algun tiempo y se acumula la "cola de impresion".
De antemano, ... Muy agradecido por sus orientaciones
Gracias

Zonux.

Dario David Puccio

unread,
Nov 19, 2009, 7:30:54 AM11/19/09
to
en las propiedades de la impresora indicar que no use la cola y lo mande
directo?

--
Dario David Puccio
El_Cyber_Gaucho
www.chispazodetradicion.com.ar
Las Malvinas son Argentinas

"Zonux Fishman" <zo...@hotmail.com> escribi� en el mensaje
news:uO3GhuEa...@TK2MSFTNGP04.phx.gbl...

mario alfredo

unread,
Nov 19, 2009, 6:31:08 PM11/19/09
to
le colocastes set printer to, antes set devi to screen

Zonux

unread,
Nov 19, 2009, 9:34:06 PM11/19/09
to
Gracias por responder.
Pero me refiero es al dise�o del ticket en el Generador de Reportes.
�Sera que siempre debe hacerse al estilo DOS con comandos SAY????

Gracias !!!
Cesar Olivares.
"Dario David Puccio" <dar...@hotmail.com> escribi� en el mensaje
news:%23OPrkQR...@TK2MSFTNGP04.phx.gbl...

Zonux

unread,
Nov 19, 2009, 9:42:27 PM11/19/09
to
Gracias por la respuesta.

Con comandos SAY no tengo inconvenientes en la longitud de impresion, el
inconveniete es que a veces la impresora (USB) "se cuelga" y en pruebas he
notado que con la impresion directa de un reporte FRX esto no ocurre. El
incoveniente es cuando el tiquete sobre pasa el largo de una pagina de papel
tama�o carta u oficio, efectua saltos y vuelve a imprimir encabezados y pie
de pagina sin haber terminado todos las lineas de detalle La idea es que
como el papel es un rollo continuo estos saltos de longitud de carta no los
tome. Es decir que la impresion sea continua sin importar el largo del
documento generado.

Nuevamente gracias por todas sus valiosas opiniones

Cesar Olivares
zo...@hotmail.com

"mario alfredo" <maov...@hotmail.com> escribi� en el mensaje
news:9661bf62-5a39-4ec3...@w19g2000yqk.googlegroups.com...

Walter R. Ojeda Valiente

unread,
Nov 19, 2009, 10:09:03 PM11/19/09
to
Y si tu problema es el largo del papel �por qu� no creas tu propio
formulario de impresi�n y le pones un largo mayor al m�ximo previsto? De esa
manera todos tus tickets podr�n ser impresos perfectamente, tengan el largo
que tengan.

Para crear tu propio formulario de impresi�n:
- Inicio | Impresoras y faxes | Archivo | Propiedades del servidor
- Chequear "Crear un formulario nuevo"
- Darle un nombre al nuevo formulario
- Darle las caracter�sticas deseadas de ancho, alto, m�rgenes

En tu informe, utilizar el formulario creado (en lugar de A4, carta, etc.,
usar�as el que t� creaste)

Saludos.

Walter.


Victor B.

unread,
Nov 20, 2009, 6:56:52 AM11/20/09
to
Otra idea, si el problema es el Encabezado de p�ソスgina y Pi�ソス, prueba a usar
las bandas T�ソスtulo y Resumen.

--
V�ソスctor B.
Desarrollador independiente
"Zonux" <zo...@hotmail.com> escribi�ソス en el mensaje
news:uR$zasYaK...@TK2MSFTNGP02.phx.gbl...


> Gracias por la respuesta.
>
> Con comandos SAY no tengo inconvenientes en la longitud de impresion, el
> inconveniete es que a veces la impresora (USB) "se cuelga" y en pruebas
> he notado que con la impresion directa de un reporte FRX esto no ocurre.
> El incoveniente es cuando el tiquete sobre pasa el largo de una pagina de

> papel tama�ソスo carta u oficio, efectua saltos y vuelve a imprimir

> encabezados y pie de pagina sin haber terminado todos las lineas de
> detalle La idea es que como el papel es un rollo continuo estos saltos
> de longitud de carta no los tome. Es decir que la impresion sea continua
> sin importar el largo del documento generado.
>
> Nuevamente gracias por todas sus valiosas opiniones
>
> Cesar Olivares
> zo...@hotmail.com
>
>
>

> "mario alfredo" <maov...@hotmail.com> escribi�ソス en el mensaje

Jorge

unread,
Nov 20, 2009, 3:29:20 PM11/20/09
to

En una Epson TMUXXX, (yo instalo como Genérica/Solo Texto, en la
térmica seguramente perderás las capacidades gráficas) cambio las
propiedades de la impresora, pestaña Configuración de dispositivo,
todo a "no disponible" también en la pestaña General, Preferencias de
impresión, pestaña Papel/Calidad, Origen del papel a "cortar
hoja" (aún cuando no tenga esa capacidad) esto me ha evitado los
saltos de página, es posible que funcione, prueba y nos cuentas.
En impresión DOS si emites set printer to y set printer off (impresión
por "?") el documento se envía a la impresora.

Jorge

mario alfredo

unread,
Nov 20, 2009, 5:04:34 PM11/20/09
to
amigo si alguien a trabajado con un generador y a impreso un ticket,
hace lo que el indique, yo he terminado una aplicacion de ticket, en
una tm u950p vieja y sin manual, no me trabaja bien con genrador y
arroba say, y me funciono bien con ??? y avance de linea ???CHR
(10), ???SPACE(11)+TRANSFORM(precio ,'999.99')

Edwin Duran

unread,
Nov 21, 2009, 9:40:15 AM11/21/09
to
Esto me ha funcionado, solo debes crear un impresora de texto o generica

********************************************
*Almaceno en un variable el nombre de una impresora
********************************************
If !Empty(_Screen.printer_rollo)

cImpresora=_Screen.printer_rollo

Else

Messagebox("No existe una impresora configurada para el papel de rollo "+;

"Elija una de la lista de impresi�n",64,"A v i s o")

cImpresora =Getprinter()

Endif

*****************************************

If Type('cImpresora')='C' And !Empty(cImpresora)

Set Printer To Name (cImpresora)

Set Device To Printer

Else

Messagebox("La Impresi�n no puede realizarce, Verifique que halla una
impresora gen�rica o de rollo instalada",64,"A v i s o")

Return .F.

Endif

* impresion. aQUI DEBES PONER EL CODIGO QUE DESEAS IMPRIMIR

??? Alltrim(_Screen.empresa)+Chr(10)+Chr(13) &&nombre de la empesa

*** '1234567890-1234567890-1234567890-123456789'

??? 'RECEPCION DE TRABAJO'+Chr(10)+Chr(13)

??? 'Hora : '+Ttoc(Datetime(),2)+Chr(10)+Chr(13)

??? 'Fecha : '+Dtoc(ltxtFecha)+Chr(10)+Chr(13)

??? '' +Chr(10)+Chr(13)

??? 'Cliente : '+Alltrim(Str(ltxtCod_clien))+Chr(10)+Chr(13)

??? Alltrim(ltxtNom_clien)+Chr(10)+Chr(13)

??? '' +Chr(10)+Chr(13)

??? 'Trabajo : '+Alltrim(Str(ltxtnum_trabajo))+Chr(10)+Chr(13)

??? Alltrim(ltxtTema)+Chr(10)+Chr(13)

??? "Tipo Letra : "+Alltrim(ltxtTipo_letra)+Chr(10)+Chr(13)

??? "Espaciado : "+Alltrim(lcobespaciado)+Chr(10)+Chr(13)

??? "Fec/Entrega : "+Dtoc(ltxtFecha_entrega)+" Hora:
"+Transform(ltxtHora_entrega,'99:99')+" "+lcobHora_meridiano+Chr(10)+Chr(13)

??? "Tipo/Trabajo: "+Alltrim(lTXTNOM_tipo)+Chr(10)+Chr(13)

??? "Institucion : "+Alltrim(ltxtnom_inst)+Chr(10)+Chr(13)

??? 'Empleado :___________________________' +Chr(10)+Chr(13)

??? 'Comentarios :'+Chr(10)+Chr(13)

??? ''+Chr(10)+Chr(13)

??? ''+Chr(10)+Chr(13)

??? ''+Chr(10)+Chr(13)

??? ''+Chr(10)+Chr(13)

??? ''+Chr(10)+Chr(13)

??? ''+Chr(10)+Chr(13)

??? ''+Chr(10)+Chr(13)

??? ''+Chr(10)+Chr(13)

??? ''+Chr(10)+Chr(13)

??? ''+Chr(10)+Chr(13)

??? ''+Chr(10)+Chr(13)

??? ''+Chr(10)+Chr(13)

* TERMINA IMPRESION

Set Printer To

?

* DIRECCIONA A LA IMPRESORA POR DEFECTO.

If Type('cImpresora')='C' And !Empty(cImpresora)

*Set Device TO &&Screen

Set Printer To Default

Endif

Espero que te ayude


"Zonux Fishman" <zo...@hotmail.com> escribi� en el mensaje
news:uO3GhuEa...@TK2MSFTNGP04.phx.gbl...

Juan Carlos Flores

unread,
Nov 21, 2009, 2:40:23 PM11/21/09
to
Utiliza la clase RAWPrint, por ahi bajatela de internet.

Con eso lo que har�s es primero crear un archivo de texto con lo que vas a
mandar, ah� no importa el largo de la pagina, puedes hacerlo tan largo como
quieras.
Luego con la clase RAWPrint mandas el archivo a la impresora y listo.

Saludos


Juan Carlos Flores
Choluteca, Honduras

"Zonux Fishman" <zo...@hotmail.com> escribi� en el mensaje de
noticias:uO3GhuEa...@TK2MSFTNGP04.phx.gbl...

Zonux

unread,
Nov 22, 2009, 9:56:02 PM11/22/09
to
Gracias por tu colaboracion.
La cuestion es que el largo del reporte es VARIABLE.

Cesar Olivares.
zo...@hotmail.com

"Walter R. Ojeda Valiente" <wr...@hotmail.com> escribi� en el mensaje
news:OWwDU7Ya...@TK2MSFTNGP02.phx.gbl...

Zonux

unread,
Nov 22, 2009, 9:58:47 PM11/22/09
to
Ok Gracias Jorge.
Voy a realizar pruebas con estos datos y les informo

Zonux
zo...@hotmail.com

"Jorge" <jm7...@gmail.com> escribi� en el mensaje
news:c589424b-b7fa-412b...@a31g2000yqn.googlegroups.com...


On 18 nov, 07:35, "Zonux Fishman" <zo...@hotmail.com> wrote:
> Hola grupo !!!
> En VFP8
> ��Alguna sugerencia para usar impresoras termicas con un "ticket" que
> puede
> variar en el largo dependiendo de la cantidad de items ???.
> ���Utilizando el generador de reportes ????
> La impresora termica es de puerto USB.
> Ya he intentado tipo DOS pero a veces se "cuelga" y no imprime hasta que
> pasa algun tiempo y se acumula la "cola de impresion".
> De antemano, ... Muy agradecido por sus orientaciones
> Gracias
>
> Zonux.

En una Epson TMUXXX, (yo instalo como Gen�rica/Solo Texto, en la
t�rmica seguramente perder�s las capacidades gr�ficas) cambio las
propiedades de la impresora, pesta�a Configuraci�n de dispositivo,
todo a "no disponible" tambi�n en la pesta�a General, Preferencias de
impresi�n, pesta�a Papel/Calidad, Origen del papel a "cortar
hoja" (a�n cuando no tenga esa capacidad) esto me ha evitado los
saltos de p�gina, es posible que funcione, prueba y nos cuentas.
En impresi�n DOS si emites set printer to y set printer off (impresi�n
por "?") el documento se env�a a la impresora.

Jorge


Walter R. Ojeda Valiente

unread,
Nov 23, 2009, 4:28:51 PM11/23/09
to
S�, ya s� que la longitud del reporte es variable.

Por eso justamente es que te dije que al crear tu formulario de impresi�n le
coloques un largo mayor al m�ximo previsto, para que entre siempre.

Saludos.

Walter.


mario alfredo

unread,
Nov 24, 2009, 6:15:17 PM11/24/09
to
Juan Carlos Flores
Choluteca, Honduras

set priner to atexto.doc
set devi to print
???space(10)+transform(tot,"99,999.99")
o
@1,11 say transform(tot,"99,999.99")

set printer to
set devi to scree

run RAWPrint atexto.doc

juan asi se utiliza o estoy oquivocado

Jose A. Blasco

unread,
Nov 25, 2009, 6:31:26 AM11/25/09
to
Para estas impresoras, yo utilizo el dise�ador de infomes, igual que
para cualquier otro listado, pero con algunos cambios.
Primero, como tama�o de papel elijo uno que pertenece a estas
impresoras, no recuerdo el nombre pero en el dise�ador se ve como una
tira larga y estrecha.
En segundo lugar, las sumas e importes totales que normalmente pongo en
el pie de pagina, los paso a la banda "Resumen", dejando el pie de
pagina vacio.
En ultimo lugar, para obtener el m�ximo de velocidad en la impresi�n,
utilizo los tipos de letra que se instalan con la impresora (normalmente
los llama DRAFT xx, donde xx es el tama�o), debiendo tener en cuenta que
en una misma linea, el tipo y tama�o de la letra ha de ser el mismo, y
los campos han de estar alineados. En ocasiones, monto un solo campo
con la concatenaci�n de todo lo que quiero que se imprima en la misma
linea.

Espero que te sirva.

Un saludo.

--
Jos� A. Blasco
-------------------
Zaragoza - Espa�a


"Zonux Fishman" <zo...@hotmail.com> escribi� en el mensaje
news:uO3GhuEa...@TK2MSFTNGP04.phx.gbl...

Zonux

unread,
Nov 25, 2009, 2:13:43 PM11/25/09
to
Gracias Jose,
Seguire el metodo "cientifico" de ensayo y error para determinar cual es el
mejor resultado.
Otra vez Muchas gracias a ti y al grupo de VFP

Zonux
zo...@hotmail.com

"Jose A. Blasco" <jabl...@gmail.com> escribi� en el mensaje
news:%23BZKULc...@TK2MSFTNGP04.phx.gbl...

0 new messages