WR Build preview
version 6.5
WR Build preview (area; page) 
Picture
| Parameter | Type | Description | |
| area | Longint | | 4D Write area |
| page | Longint | | Number of the page to pass as a picture |
Function result Picture 
Picture of the page
Description
The WR Build preview command converts the page, whose number is passed in page, into a picture. The page number takes into account the page numbering as it was defined in the preferences dialog.
The picture can be stored, for instance, in a 4D picture field or in a 4D picture variable. The picture is the same size as the page. You can set the size of the picture by using the WR SET DOC PROPERTY command and by passing a value for wr paper width and wr paper height.
Note: unlike when you use WR Area to picture, the picture does not contains any 4D Write data
The returned picture is a vector-based picture. A picture that was created on Windows cannot be directly displayed on Mac OS, nor stored "as is"in a picture file (for example, using the WRITE PICTURE FILE command) since it uses the EMF format. If you want your Windows pictures to be displayed on Mac OS or in another Windows application, you need to convert the picture into a bitmap by using the following statement:
myPicture:=myPicture|myPicture.
Unlike EMF (Windows only), Pict and bitmap picture types are not platform dependent.
Note: On the contrary, Mac OS pictures can be used directly.
Example
4D Write documents are saved into BLOB fields. You only want to print only the second page of each document. To do so, insert in the print form a picture variable (named MyImage in this example) and attach the following method to the variable:
If(Form event=On Printing Detail)
WR BLOB TO AREA (NewOffscreen;[MyTable]WriteBlob_)
MyImage:=WR Build preview (NewOffscreen;2)
End if
Then, create and execute the following project method:
QUERY([MyTable]) `Creating the selection to print
OUTPUT FORM([MyTable];"PrintPage2") `PrintPage2 is the form used for printing
`Creating the offscreen area used in the previous method
NewOffscreen:=WR New offscreen area
PRINT SELECTION([MyTable]) `Printing the selection
WR DELETE OFFSCREEN AREA(NewOffscreen) `Deleting the offscreen area
See Also