4D Doc Center : PAGE SETUP

4D v12.4

PAGE SETUP


PAGE SETUP ( {tabla ;} formulario )

Parámetro	Tipo	Descripción
tabla	Tabla	Tabla a la que pertenece el formulario, o Tabla por defecto, si se omite
formulario	Cadena	Formulario a utilizar para definir los parámetros de impresión

Descripción

PAGE SETUP define la configuración de la página para la impresora almacenada con formulario. Los parámetros de impresión son almacenados con el formulario cuando el formulario se guarda en el entorno Diseño.

En los siguientes tres casos, las cajas de diálogo de impresión no se muestran y la impresión se realiza con los parámetros de impresión por defecto:

Una llamada a PRINT SELECTION a la cual pasa el parámetro opcional *,
Una llamada a PRINT RECORD a la cual pasa el parámetro opcional *,
Una serie de llamadas a PRINT FORM no precedida por una llamada a PRINT SETTINGS.

Llamar PAGE SETUP le permite, en este caso, saltar las cajas de diálogo de impresión Y utilizar los parámetros de impresión diferentes a los parámetros por defecto.

Ejemplo

Varios formularios (vacíos) son creados por una tabla llamada [Dibujos]. El formulario “PS100” es asignado a la configuración de la página con una escala de 100%, el formulario “PS90” se asigna a una configuración de página con escala de 90%, y así sucesivamente. El siguiente método de proyecto le permite imprimir la selección de una tabla utilizando varias escalas sin tener que especificar la escala en las cajas de diálogo de impresión (las cuales no aparecen), cada vez:

  ` Método de proyecto IMPRESION ESCALADA AUTOMATICA

  ` IMPRESION ESCALADA AUTOMATICA ( Puntero; Cadena {; Long } )

  ` IMPRESION ESCALADA AUTOMATICA ( ->[Tabla]; "FormularioSalida" {; Escala } )

 If(Count parameters>=3)

    PAGE SETUP([Dibujos];"PS"+String($3))

    If(Count parameters>=2)

       OUTPUT FORM($1->;$2)

    End if

 End if

 If(Count parameters>=1)

    PRINT SELECTION($1->;*)

 Else

    PRINT SELECTION(*)

 End if

Una vez este método de proyecto está escrito, puede llamarlo de esta forma:

  ` Buscar facturas actuales

 QUERY([Facturas];[Facturas]Pagadas=False)

  ` Impresión de un informe reducido al 90%

 IMPRESION ESCALADA AUTOMATICA(->[Facturas];"Informe resumen";90)

  ` Impresión de un informe reducido al 50%

 IMPRESION ESCALADA AUTOMATICA(->[Facturas];"Informe detallado";50)