4D Doc Center : WR Build preview

4D Write v14

WR Build preview


WR Build preview ( area ; pag ) -> Resultado

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D Write
pag	Entero largo	Número de la página a pasar en imagen
Resultado	Imagen	Imagen de la página

Descripción

El comando WR Build preview convierte a la página, cuyo número se pasa en pagina, en una imagen. El número de página tiene en cuenta la numeración de páginas, que se definió en el diálogo de preferencias.

La imagen se puede almacenar, por ejemplo, en un campo o variable imagen 4D. La imagen es del mismo tamaño que la página. Puede ajustar el tamaño de la imagen utilizando el comando WR SET DOC PROPERTY y pasando un valor para wr paper width y wr paper height.

Nota: a diferencia de cuando se utiliza WR Area to picture, la imagen no contiene datos 4D Write

La imagen que se devuelve es vectorial. Una imagen creada en Windows no puede mostrarse directamente en Mac OS, ni guardarse "tal cual" en un archivo imagen (por ejemplo, utilizando el comando WRITE PICTURE FILE) ya que utiliza el formato EMF. Si quiere que sus imágenes Windows se muestren en Mac OS o en otra aplicación de Windows, es necesario convertir la imagen en un mapa de bits utilizando la siguiente instrucción:
MiImagen:=MiImagen|MiImagen.

A diferencia de los EMF (sólo Windows), los tipos Pict y bitmap no independientes de la plataforma.

Nota: por el contrario, las imágenes Mac OS se pueden utilizar directamente.

Ejemplo

Los documentos 4D Write se guardan en campos BLOB. Usted sólo quiere imprimir la segunda página de cada documento. Para hacerlo, inserte en el formulario de impresión una variable imagen (llamada MyImage en este ejemplo) y asóciela al siguiente método:

 If(Form event=On Printing Detail)

    WR BLOB TO AREA(NewOffscreen;[MyTable]WriteBlob_)

    MyImage:=WR Build preview(NewOffscreen;2)

 End if

Luego, cree y ejecute el siguiente método de proyecto:

 QUERY([MyTable]) `Crear la selección a imprimir

 OUTPUT FORM([MyTable];"PrintPage2") `PrintPage2 es el formulario de impresión

  `Crea el área fuera de pantalla utilizada en el método anterior

 NewOffscreen:=WR New offscreen area

 PRINT SELECTION([MyTable]) `Imprime la selección

 WR DELETE OFFSCREEN AREA(NewOffscreen) `Borra el área fuera de pantalla