Command WR Build preview

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

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.

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

WR SET DOC PROPERTY.