4D Write v16
WR Build preview
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 | |||||
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.
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 ifLuego, 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
Producto: 4D Write
Tema: WR Opciones del área
Número
89492
Creado por: 4D Write 6.5
4D Write - Lenguaje ( 4D Write v16)
