Cómo evitar la impresión de una vista previa del informe en Visual FoxPro 9.0

INTRODUCCIÓN

Microsoft Visual FoxPro 9.0 presenta la arquitectura de informes Object-Assisted. Con este nuevo diseño, puede interfaz directamente mediante código con herramientas como el Diseñador de informes y vistas previas de informe de informes de Visual FoxPro 9.0. Por lo tanto, es más fácil de deshabilitar la posibilidad de imprimir desde una vista previa del informe en Visual FoxPro 9.0 de lo que era en versiones anteriores de Visual FoxPro. Este artículo describe cómo escribir código para interactuar directamente con y para configurar informes de Object-Assisted vistas previas de informe.

Más información

De forma predeterminada, cuando se realice un asistidas por objeto informe en Visual FoxPro 9.0, el usuario puede imprimir el informe desde la ventana de vista previa del informe utilizando cualquiera de los métodos siguientes:
  • En la barra de herramientas Vista previa del informe, haga clic en el botón Imprimir .
  • Pulse el botón derecho dentro de la ventana de vista previa del informe y, a continuación, haga clic en Imprimir.
Puede que desee deshabilitar esta opción. En versiones anteriores de Visual FoxPro, el archivo de recursos de Visual FoxPro (FoxUser.dbf) debía cambiarse. Para obtener más información acerca de cómo hacerlo, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:

317466 cómo quitar botones de la barra de herramientas Vista preliminar


En Visual FoxPro 9.0, todavía puede cambiar el archivo FoxUser.dbf para deshabilitar la impresión desde la ventana de vista previa del informe. Sin embargo, con la introducción de Object-Assisted informes, ahora está disponible un método alternativo. De forma predeterminada, Object-Assisted informe en Visual FoxPro 9.0 no está habilitado. Para habilitarla, deberá cambiar la configuración de REPORTBEHAVIOR. Para ello, utilice uno de los métodos siguientes:
  • Método 1
    Cambiar la configuración de comportamiento del motor de informes mediante el IDE de Visual FoxPro:
    1. En el menú Herramientas, haga clic en Opciones.
    2. En el cuadro de diálogo Opciones , haga clic en la ficha informes y, a continuación, seleccione 90 (objeto asistida) en la lista comportamiento del motor de informes .
    3. (Opcional) Si desea que este valor se conservan entre sesiones de Visual FoxPro 9.0, haga clic en Establecer como predeterminado en el cuadro de diálogo Opciones .
  • Método 2
    Ejecute el comando siguiente en el código para habilitar el informe de Object-Assisted:
    SET REPORTBEHAVIOR 90

Ejemplo de código

Cuando se ejecuta el ejemplo de código siguiente, el archivo de informe de ejemplo que se denomina Colors.frx vista previa. El ejemplo de código se muestra una vista previa del informe y utiliza una combinación de valores de propiedad del contenedor de vista previa y el controlador de extensión de vista previa para deshabilitar completamente la impresión desde la ventana de vista previa del informe.

Este ejemplo de código también corrige un problema en la vista previa asistida de objeto de Visual FoxPro 9.0 de informe en la barra de herramientas de vista previa del informe no conservar correctamente la configuración de pantalla entre apariciones en la misma sesión de vista previa del informe. Para obtener más información acerca de este problema, consulte la sección "Referencias".

Este ejemplo de código se aplica al entorno de desarrollo Visual FoxPro 9.0 y a archivos ejecutables que se crean mediante Visual FoxPro 9.0, mientras usa informes de Object-Assisted.

Para utilizar este código de ejemplo, siga estos pasos:
  1. Guarde el código siguiente en un nuevo archivo de programa en Visual FoxPro 9.0 y, a continuación, ejecutar el código.
    *----------- START CODE*
    *-----------------------------------
    * AUTHOR: Trevor Hancock
    * CREATED: 02/24/05 02:47:08 PM
    * ABSTRACT:
    * Shows how to disable printing from
    * PREVIEW when you use object-assisted
    * reporting in VFP9.
    *
    * Also includes a workaround for problem
    * where the PREVIEW toolbar does not
    * recognize the TextOnToolbar or
    * PrintFromPreview settings between
    * toolbar displays during same preview.
    *-----------------------------------

    *-- Defines whether to alllow for
    *-- printing during preview. Used to set
    *-- the "AllowPrintfromPreview" property
    *-- of the object-assisted preview container
    *-- later in this code.
    #DEFINE PrintFromPreview .T.

    LOCAL loPreviewContainer AS FORM, ;
    loReportListener AS REPORTLISTENER, ;
    loExHandler AS ExtensionHandler OF SYS(16)

    *-- Get a preview container from the
    *-- .APP registered to handle object-assisted
    *-- report previewing.
    loPreviewContainer = NULL
    DO (_REPORTPREVIEW) WITH loPreviewContainer
    *-- Create a PREVIEW listener
    loReportListener = NEWOBJECT('ReportListener')
    loReportListener.LISTENERTYPE = 1 &&Preview

    *-- Link the Listener and preview container
    loReportListener.PREVIEWCONTAINER = loPreviewContainer

    *-- Changing this property prevents printing from the Preview toolbar
    *-- and from right-clicking on the preview container, and then clicking "print".
    *-- This property is not in the VFP9 documentation at this point.
    loPreviewContainer.AllowPrintfromPreview = PrintFromPreview
    *-- Controls appearance of text on some of the
    *-- Preview toolbar buttons. .F. is the default.
    *-- Included here just to show that it is an available option.
    loPreviewContainer.TextOnToolbar = .F.

    *-- Create an extension handler and hook it to the
    *-- preview container. This will let you manipulate
    *-- properties of the container and its Preview toolbar
    loExHandler = NEWOBJECT('ExtensionHandler')
    loPreviewContainer.SetExtensionHandler( loExHandler )


    REPORT FORM ;
    HOME() + 'Samples\Solution\Reports\colors.frx' ;
    OBJECT loReportListener

    RELEASE loPreviewContainer, loReportListener, loExHandler



    *-------------------------
    *-------------------------
    DEFINE CLASS ExtensionHandler AS CUSTOM
    *-- Ref to the Preview Container's Preview Form
    PreviewForm = NULL

    *-- Here you implement (hook into) the PreviewForm_Assign
    *-- event of the preview container's parent proxy
    PROCEDURE PreviewForm_Assign( loRef )
    *-- Perform default behavior: assign obj ref.
    THIS.PreviewForm = loRef

    *-- Grab the obj ref to the preview form and bind to its
    *-- ShowToolbar() method. This lets the
    *-- STB_Handler() method of this extension handler
    *-- to run code whenever the Preview toolbar is shown
    *-- by the PreviewForm.ShowToolbar() method.
    IF !ISNULL( loRef )
    BINDEVENT(THIS.PreviewForm, ;
    'ShowToolbar', THIS, 'STB_Handler')
    ENDIF
    ENDPROC

    PROCEDURE STB_Handler(lEnabled)
    *-- Here you work around the setting
    *-- persistence problem in the Preview toolbar.
    *-- The Preview toolbar class (frxpreviewtoolbar)
    *-- already has code that you can use to enforce
    *-- setting's persistence; it is just not called. Here,
    *-- you call it.
    WITH THIS.PreviewForm.TOOLBAR
    .REFRESH()
    *-- When you call frxpreviewtoolbar::REFRESH(), the
    *-- toolbar caption is set to its Preview form,
    *-- which differs from typical behavior. You must revert that
    *-- to be consistent. If you did not do this,
    *-- you would see " - Page 2" appended to the toolbar
    *-- caption if you skipped pages.
    .CAPTION = THIS.PreviewForm.formCaption
    ENDWITH
    ENDPROC


    *-- A preview container requires these methods
    *-- to be implemented in an associated preview extension handler.
    *-- They are not used in this example, but still must be here.
    PROCEDURE AddBarsToMenu( cPopup, iNextBar )
    PROCEDURE SHOW( iStyle )
    ENDPROC
    PROCEDURE HandledKeyPress( nKeyCode, nShiftAltCtrl )
    RETURN .F.
    ENDPROC
    PROCEDURE PAINT
    ENDPROC
    PROCEDURE RELEASE
    RETURN .T.
    ENDPROC ENDDEFINE
    *
    *
    *----------- END CODE

    Se abrirá una vista previa del informe Colors.frx.

    Nota: Puede imprimir desde la ventana de vista previa del informe pulsando en la vista previa o haciendo clic en Imprimir en la barra de herramientas de vista previa del informe.
  2. Cerrar la vista previa y, a continuación, modifique el código en el editor del programa.
  3. Cambie la instrucción #DEFINE en la parte superior del código a un valor de . F. para ello, busque el código siguiente.
    #DEFINE PrintFromPreview .T.
    Reemplácelo por el código siguiente:
    #DEFINE PrintFromPreview .F.
  4. Guarde el código y, a continuación, ejecute de nuevo.
Observe ahora no puede imprimir desde la ventana de vista previa del informe pulsando en la vista previa o haciendo clic en Imprimir en la barra de herramientas de vista previa del informe.

Referencias

Para obtener más información, haga clic en los números de artículo siguientes para verlos en Microsoft Knowledge Base:

317466 cómo quitar botones de la barra de herramientas Vista preliminar

Error de 895278 : barra de herramientas de The Object-Assisted preliminar no conserva su configuración en Visual FoxPro 9.0 Professional Edition

Propiedades

Id. de artículo: 895279 - Última revisión: 17 ene. 2017 - Revisión: 1

Microsoft Visual FoxPro 9.0 Professional Edition

Comentarios