Como cambiar el zoom de la vista previa del informe

[Elides Paredes]

Estimados amigos.

Hace tiempo conseguí ésto.

Un link. -muy bueno por cierto.---, donde presentan varios trucos que he aprovechado, pero éste en concreto no me funciona-

Lo que necesito es presentar la vista previa de un informe al 75%, Y así debería funcionar según lo que explican en éste link.

http://jgpg07.blogspot.com/2007/04/fox-pro-26.html

++++++++++++++++++++++++++++++++++++++++++++++++++++++++

*Agrega el siguiente código en el método BeforeOPenTable del

* dataenvironment (entorno de datos) del reporte

ZOOM WINDOW "Report Designer" MAX

KEYBOARD "{F3}" &&75%

*KEYBOARD "{F3}{F3}" &&50%

*KEYBOARD "{F3}{F3}{F3}" &&25%

*KEYBOARD "{F3}{F3}{F3}{F3}" &&10% 

*Lo que debes hacer es enviarle pulsaciones de la tabla F3 con la

* función Keyboard; cada F3 que envíes hará que el zoom del preview sea más pequeño 

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

creo que el problema es que no se como se llama la ventana donde se presenta el reporte, yo uso la instrucción así:

REPORT FORM "c:\proyecto\reportes\impre_cotizacion.frx" ;

  PREVIEW

de antemano agradezco la ayuda que me puedan brindar

Saludos de 

Elides Paredes

Barquisimeto-Venezuela

[Hugo C.]

Tal vez este articulo ayude (en ingles).

http://www.ml-consult.co.uk/foxst-46.htm

Saludos.

[Elides Paredes]

Gracias amigo Hugo,

 

Tengo todo lo que va de la mañana leyendo el artículo, aprendí algo muy novedoso, no sabía que podía hacer una vista previa mostrando hasta 4 páginas. Sin embargo aún no he podido cambiar el zoom, aunque si dice como, no logro dar con el resultado.

De paso muestran en ese artículo como hacer un área dentro del formulario que utiliza las barras scroll, algo muy útil para otra aplicación, seguiré intentando, aunque también me gustaría saber porque no me funciona el método que plantee el principio.

de nuevo muy agradecido por el aporte.

[Elides Paredes]

Listo, no fue tan sencillo hacerlo , porque tenía que entenderlo, y el menor de los problemas es el idioma, no solo porque entiendo una buena parte, sino porque existe el traductor de google, pero lo extraño de todo es que algunas cosas las entiendo mas en inglés porque el lenguaje de VFP es inglés.

De nuevo gracias amigo Hugo- 

Me quedó así, por si otro quiere hacerlo

SET REPORTBEHAVIOR 90

LOCAL loPreview

loPreview = NULL

DO (_REPORTPREVIEW) WITH loPreview

loPreview.CanvasCount = 2

loPreview.ZoomLevel = 2 && 25%  ZoomLevel 4 es 75%

loPreview.Width = 800

loPreview.ToolbarIsVisible = .T.

loListener = CreateObject ( "ReportListener")

loListener.PreviewContainer = loPreview

lolistener.ListenerType = 1

IF RECCOUNT()>0

REPORT FORM "c:\administracion\reportes\facturas_pendientesxcobrar.frx" OBJECT loListener

ELSE

  cMensaje=" No hay Facturas pendientes por cobrar" +;

  CHR(13)+"Todos los Clientes han pagado"

  MESSAGEBOX(cMensaje,0+64,"No hay Facturas pendientes por cobrar")

ENDIF 

[jgpg07]

Voy a empezar a actualizar este blog, tengo mas trucos entre SQL y VFP