Zonux.
--
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...
Gracias !!!
Cesar Olivares.
"Dario David Puccio" <dar...@hotmail.com> escribi� en el mensaje
news:%23OPrkQR...@TK2MSFTNGP04.phx.gbl...
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...
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.
--
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
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
********************************************
*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...
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...
Cesar Olivares.
zo...@hotmail.com
"Walter R. Ojeda Valiente" <wr...@hotmail.com> escribi� en el mensaje
news:OWwDU7Ya...@TK2MSFTNGP02.phx.gbl...
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
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.
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
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
zo...@hotmail.com
"Jose A. Blasco" <jabl...@gmail.com> escribi� en el mensaje
news:%23BZKULc...@TK2MSFTNGP04.phx.gbl...