Imprimir Diario Simplificado

[Roberto Lemos]

Buenos dias y feliz año a todos.

 

Para los amigos peruanos, estoy diseñando un programa de contabilidad, necesito imprimir el Libro Diario Simplificado, el cual por su ancho es imposible imprimirlo en una sola hoja, como puedo hacer para imprimir este libro?.

 

Saludos

 

Roberto Lemos.

 

[ttw]

que tipo de configuracion de pagina estas usando y que version de Fox, ya que me imagina que lo que estara saliendo de margen es el Ancho de pagina

[Roberto Lemos]

Estoy usando hoja A4 echada, VFP 9. ????

[Roberto Lemos]

Mi estimado amigo, antes de dar una respuesta de este tipo sería bueno q intentaras entender la pregunta, te explico para que te des una idea, si reduzca el tamaño de la letra a “3”, aún asi no va a entrar en una hoja A4, el reporte tiene mas de 40 columnas y es imposible imprimirlo en una hoja, por eso mi pregunta tengo que imprimirlo en 2 hojas, es decir la primera hoja necesariamente se debe imprimir en 1 y 2; y asi sucesivamente.

 

Saludos y gracias por tu intención

 

 

 

 

From: ttw

Sent: Wednesday, January 02, 2013 12:47 PM

To: publice...@googlegroups.com

Subject: [vfp] Re: Imprimir Diario Simplificado

 

Si entra todo en el ancho del margen revisa bien lo que son los margenes a la hora de imprimir, ya que hay esta tu problema,
ya lo he probado en el fox 2.5 y no tiene ningun problema,

--
 
 

[Roberto Lemos]

Necesito imprimir este formato adjunto, como verán por su longitud es imposible imprimirlo en una sola hoja, quiero enviar a imprimir y que me imprima la pagina 1 en (1,2), la pagina 2 en (3,4) y asi sucesivamente.

 

Saludos

 

Roberto Lemos

 

 

From: Roberto Lemos

Sent: Wednesday, January 02, 2013 12:32 PM

To: publice...@googlegroups.com

--
 
 

[Víctor Hugo Espínola Domínguez]

Hola Roberto

Si la impresión será en hojas sueltas, es más sencillo que crees el cursor con los datos a imprimir y crees 2 reports: DiarioLadoIzquierdo.frx y DiarioLadoDerecho.frx.

CrearCursor()

REPORT FORM DiarioLadoIzquierdo.frx TO PRINTER

REPORT FORM DiarioLadoDerecho.frx  TO PRINTER

Saludos.

Víctor.

--
 
 

[Víctor Hugo Espínola Domínguez]

Hola Roberto

Si es muy importante el orden de impresión que mencionaste, puedes probar lo siguiente:

#DEFINE CANT_REG_X_PAG   nn   && nn es Cantidad de registro por página

CrearCursor()

GOT TOP

DO WHILE ! EOF()

     REPORT FORM DiarioLadoIzquierdo.frx NEXT CANT_REG_X_PAG TO PRINTER

     REPORT FORM DiarioLadoDerecho.frx  NEXT CANT_REG_X_PAG TO PRINTER

ENDDO

Saludos.

Víctor.

[Roberto Lemos]

Mas o menos por ahi iba, la cuestión es como mando a imprimir, tendría que imprimir primero todo el lado izquierdo y luego el derecho?. eso es lo q’ pensé, el problema me lo hacen en la empresa, porque las hojas son numeradas (foliadas) y tendrían q estar separando las impares para imprimir y luego las pares.

 

Saludos

 

Roberto Lemos

--
 
 

[Roberto Lemos]

Con algunos ajustes esta funcionando es algo asi, lo que necesitaba, aprovechando tu gentileza, una pregunta, cómo hago para la numeración de las hojas, para q digamos el lado izquierdo empiece en 1 y se incremente en 2, el lado derecho empiece en 2 y se incremente en 2.

 

Saludos y gracias

 

Roberto Lemos

 

 

From: Víctor Hugo Espínola Domínguez

Sent: Thursday, January 03, 2013 11:22 AM

To: publicesvfoxpro

Subject: Re: [vfp] Imprimir Diario Simplificado

 

--
 
 

[Víctor Hugo Espínola Domínguez]

Hola Roberto

La idea más simple que se me ocurre es la siguiente:

#DEFINE CANT_REG_X_PAG   nn   && nn es Cantidad de registro por página

PRIVATE pnNroPagIzq, pnNroPagDer

pnNroPagIzq = 1

pnNroPagDer = 2

CrearCursor()

GOT TOP

DO WHILE ! EOF()

     REPORT FORM DiarioLadoIzquierdo.frx NEXT CANT_REG_X_PAG TO PRINTER

     REPORT FORM DiarioLadoDerecho.frx  NEXT CANT_REG_X_PAG TO PRINTER

pnNroPagIzq = 1

pnNroPagDer = 2

ENDDO

Saludos.

Víctor.

--
 
 

[Víctor Hugo Espínola Domínguez]

Perdón, se me escapó un teclazo ;-(

#DEFINE CANT_REG_X_PAG   nn   && nn es Cantidad de registro por página

PRIVATE pnNroPagIzq, pnNroPagDer

pnNroPagIzq = 1

pnNroPagDer = 2

CrearCursor()

GOT TOP

DO WHILE ! EOF()

     REPORT FORM DiarioLadoIzquierdo.frx NEXT CANT_REG_X_PAG TO PRINTER

     REPORT FORM DiarioLadoDerecho.frx  NEXT CANT_REG_X_PAG TO PRINTER

     pnNroPagIzq = pnNroPagIzq  + 2

     pnNroPagDer = pnNroPagDer + 2

ENDDO

Usa las variables pnNroPagxxx en tus reports.

Saludos.

Víctor.

El 3 de enero de 2013 13:06, Víctor Hugo Espínola Domínguez <vich...@gmail.com> escribió:

Hola Roberto

[miltonvas]

y porque  no envias a exce el reporte y que ahi los usuarios  impriman

[Jose Mario]

tenes un ejemplo 

tengo que imprimir un libro y no cabe por el derecho

[Jose Mario]

victor hugo, como hacer para imorimir la parte izquierda y despues la parte derecha, estoy interesado para imprimir un libro que no me cabe en una pagina

o sera que debe de imprimir a4 y alargar los margenes

gracias

[Víctor Hugo Espínola Domínguez]

Hoal José Mario

Esta era la idea sugerida:

#DEFINE CANT_REG_X_PAG   nn   && nn es Cantidad de registro por página

PRIVATE pnNroPagIzq, pnNroPagDer

pnNroPagIzq = 1

pnNroPagDer = 2

CrearCursor()

GOT TOP

DO WHILE ! EOF()

     REPORT FORM DiarioLadoIzquierdo.frx NEXT CANT_REG_X_PAG TO PRINTER

     REPORT FORM DiarioLadoDerecho.frx  NEXT CANT_REG_X_PAG TO PRINTER

     pnNroPagIzq = pnNroPagIzq  + 2

     pnNroPagDer = pnNroPagDer + 2

ENDDO

Usa las variables pnNroPagxxx en tus reports.

Pero ahí hay un pequeño gran error ;-): Suponiendo que nn = 20, entonces dentro del ciclo WHILE ! EOF() imprimirá desde el reg. 1 al 20 el lado izquierdo y a continuación desde el registro 21 al 40 el lado derecho!!

Para solucionar eso, agregarle un retroceso de registro al concluir la impresión del lado izquierdo. Quedaría así:

#DEFINE CANT_REG_X_PAG   nn   && nn es Cantidad de registro por página

LOCAL lnNroRegistro AS integer
PRIVATE pnNroPagIzq, pnNroPagDer

pnNroPagIzq = 1

pnNroPagDer = 2

CrearCursor()

GOT TOP

DO WHILE ! EOF()
     lnNroRegistro = RECNO()

     REPORT FORM DiarioLadoIzquierdo.frx NEXT CANT_REG_X_PAG TO PRINTER

     GO lnNroRegistro

     REPORT FORM DiarioLadoDerecho.frx  NEXT CANT_REG_X_PAG TO PRINTER

     pnNroPagIzq = pnNroPagIzq  + 2

     pnNroPagDer = pnNroPagDer + 2

ENDDO

Saludos,

Víctor.

--
 
 

[Jose Mario]

PROBAREMOS