Impresion en columnas FoxPro 9

269 views
Skip to first unread message

Ariel Díaz

unread,
Sep 8, 2021, 10:57:21 AM9/8/21
to Comunidad de Visual Foxpro en Español
Buenas amigos, soy nuevo por aca vengo usando foxpro hace muchos años.

Tengo un sistema de impresion en el que me resulta hasta ahora, pero tengo un problemita con la impresora cada tanto meses de impresion lo que pasa es que cada vez que una impresora digamos ya cumplio su tantas impresiones se deslinea y no hay tecnico que me repare eso ya probe por todos lados.

Habra alguna forma por codigo alinear segun la posicion que yo quiera en FoxPro

Adjunto imagenes para que tengan una idea de lo que quiero hacer
WhatsApp Image 2021-09-08 at 10.49.22 AM.jpeg
Como veran ahi lo que yo imprimo son los numeros cartones, fecha y matriz
si se fijan en la primera casilla estan casi bien centrada la impresion
mientras va bajando la impresion se alinea a la izquierda casi saliendo de las cajas hay impresiones que si salen totalmente
uno.png
este es mi Report en fox en Diseño
do.png
este es a la hora de imprimir y ahi es donde quiero controlar las alineaciones

Carlos Alfaro

unread,
Sep 8, 2021, 11:38:08 AM9/8/21
to publice...@googlegroups.com

Saludos cordiales:

Se nota que el problema es que el papel no está alineado verticalmente.

 

Como es un problema de hardware, te consulto:

Has estado allí en el momento que falla?

 

Para revisar lo siguiente:

 

1.- Que el papel este libre, que no haya algo que lo trabe?

                Cuando es papel continuo y está en una caja, a veces se traba en un lado de la caja.

2.- Si es papel continuo, que el tractor sujeta al papel correctamente?

                Cuando un lado del papel se desfasa de los pines del tractor.

 

Buen día.

 

Carlos Alfaro

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/adb36bde-9bcc-4058-9a0f-c76cdf31c340n%40googlegroups.com.

image001.jpg
image002.png
image003.png

Ariel Díaz

unread,
Sep 8, 2021, 5:07:19 PM9/8/21
to publice...@googlegroups.com
Hola Carlos, si siempre estoy controlando todo eso de hecho tengo 3 impresoras, la hojas estan muy bien alineados es la impresora con tanto uso que falla.

en la impresion no falla, solo al tomar la hoja.

Por eso digo que si se pudiera por codigo alinear a partir cuarto numero del carton

Carlos Alfaro

unread,
Sep 8, 2021, 6:46:50 PM9/8/21
to publice...@googlegroups.com

No se, si te servira, lo que se me ocurre es, que siendo el tipo de valor es alfanumérico, agregar un espacio al llegar a cierto punto de la impresión por ejemplo:

 

En el objeto que contiene el valor a encasillar, colocar lo siguiente:

Iif(ticket_imp > 3, ‘ ‘ + variable, variable)

 

Buen dia.

image001.jpg
image002.png
image003.png

HernanCano

unread,
Sep 8, 2021, 9:00:20 PM9/8/21
to Comunidad de Visual Foxpro en Español
Aclárame lo que quieres significar cuando dices "a partir del cuarto número":

1. En el cartón 501, el primero, te refieres al G-49 o al B-11?

2. Veo que entre el segundo y el tercero tienes un "salto" adicional (se vé más espacio).Si haces los mismo entre el cuarto y el quinto, ¿queda mejor?

3. A ojo, veo que todos los bingos están desalineados (verticalmente) corriéndose un poco hacia da izquierda. Comparar el 501 con el 503; y el 505 se corre un poco más hacia la izq,.. y as+i con los sgtes hacia abajo.

4. ¿Les recomendaste que la pre-impresión no fuera contratada sino que la generara el mismo programa tuyo?.

J. Enrique Ramos Menchaca

unread,
Sep 8, 2021, 9:19:32 PM9/8/21
to Comunidad de Visual Foxpro en Español
Yo utilizo un reporteador que se llama Virtual Print Engine (https://www.idealsoftware.com/en/pdf-library/report-engine.html), tiene una versión de Comunidad, gratuita, pero no tiene diseñador gráfico de reporte, todo es vía código pero puedes controlarlo milímetro a milímetro, puede solucionar tu problema ya que puedes mover cada línea a imprimir lentamente a la derecha dependiendo la posición vertical que estés imprimiendo.

Ariel Díaz

unread,
Sep 10, 2021, 10:03:23 AM9/10/21
to Comunidad de Visual Foxpro en Español
Adjunto una imagen de lo que quiero hacer por medio de codigo, pero ni idea de como manejar esto por codigo
Sin título.png
Como ven ahi en la imagen prepare un diseño en Corel para poder mostar lo que quiero hacer
Como ven con las lineas rojas indique como quiero ir dandole espacio por cada numero de carton

Eso es lo que quiero hacer por codigo, pero ni idea de como hacer eso

Ariel Díaz

unread,
Sep 10, 2021, 11:54:55 AM9/10/21
to publice...@googlegroups.com
Si hay posibilidad quiero usar solo el Report de FoxPro

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Zarlu

unread,
Sep 10, 2021, 12:41:38 PM9/10/21
to Comunidad de Visual Foxpro en Español
Buenos días enterariel!

Mi sugerencia sería hacerlo con "?"
Mira éste fragmento de código que usé en su momento...

If MessageB("Impresión en carpeta?",4+32+256,"Confirme")=6
    mImprimir=GetPrinter()
    If Empty(mImprimir)
        Return
    EndIf
    ??chr(27)+CHR(64)
    _PLineNo=1
    mSuperior=ThisForm.container2.txtsuperior.Value
    mIzquierdo=ThisForm.container2.txtizquierdo.Value
    Set Console Off
    Set Printer On
    Set Printer To Name (mImprimir)
    *fuente 'Arial', 22 equivale aprox. a 1 cm.
    Set Printer Font 'Arial', 22
    Do Case
        Case mSUPERIOR=1
        Case mSUPERIOR=2
            ?                   
        Case mSUPERIOR=>2
             ?
            For mEspacio=1 To mSUPERIOR
                 ?
            EndFor

    EndCase       
    mNumTest=nombretest(ThisForm.Container2.txttestimonio.Value)+" TESTIMONIO"
    ? Space(7*mIzquierdo)+Padl(mNumTest,30," ")
     ?
    Set Printer Font 'Arial', 12
     ? Space(7*mIzquierdo)+"ESCRITURA No.: "+ Alltrim(Str(recep.escritura))+Space(45)
....
....

Lo adapté así porque los formatos pre impresos algunas veces venían con margenes diferentes

Suerte
zarlu
Chetumal, Quintana Roo, México

Víctor Hugo Espínola Domínguez

unread,
Sep 10, 2021, 5:06:40 PM9/10/21
to publice...@googlegroups.com
Usas report de 2 columnas?

Saludos,
Víctor.
Lambaré - Paraguay.



Luis Maria Guayan

unread,
Sep 11, 2021, 6:38:53 PM9/11/21
to Comunidad de Visual Foxpro en Español
Parecería que estás agregando un espacio en blanco después de cada cartón, viendo tu tabla, mira el campo Bingo si no agregas algún espacio en blanco.

No le veo otra explicación, no es error del reporte

Luis María Guayán
Tucumán, Argentina
_______________________________

Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

Hector Pereira

unread,
Sep 12, 2021, 1:48:14 PM9/12/21
to publice...@googlegroups.com
Si quieres solo instala bullzip y listo al momento de imprimir te enviará a una impresora PDF. Y de hay lo podrás enviar a cualquier correo o imprimir a donde quieras amigo . Éxito y suerte .  Héctor Pereira por acá 👍🇻🇪


--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Ariel Díaz

unread,
Sep 15, 2021, 11:13:34 AM9/15/21
to Comunidad de Visual Foxpro en Español

vich...@gmail.com
Si solo uso el Report de 2 columnas.

Víctor Hugo Espínola Domínguez

unread,
Sep 15, 2021, 1:24:33 PM9/15/21
to publice...@googlegroups.com
Puedes probar haciendo el report normal sin columnas por si sea un bug de VFP

Saludos,
Víctor.
Lambaré - Paraguay.


Reply all
Reply to author
Forward
0 new messages