4D Doc Center : WR Build preview

4D Write v14

WR Build preview


WR Build preview ( area ; pagina ) -> Resultado

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D Write
pagina	Inteiro longo	Número da página a passar em imagem
Resultado	Imagem	Imagem da página

Descrição

O comando WR Build preview converte a página, cujo número se passa em pagina, em uma imagem. O número de página leva em consideração a numeração de páginas, que se definiu no diálogo de preferências.

A imagem pode ser armazenada, por exemplo, em um campo ou variável imagem 4D. A imagem é do mesmo tamanho que a página. Pode ajustar o tamanho da imagem utilizando o comando WR SET DOC PROPERTY e passando um valor para wr paper width e wr paper height.

Nota: A diferença de quando se utiliza WR Area to picture, a imagem não contém dados 4D Write

A imagem que se devolve é vetorial. Uma imagem criada em Windows não pode ser mostrada diretamente em Mac OS, nem guardada "tal qual" em um arquivo imagem (por exemplo, utilizando o comando WRITE PICTURE FILE já que utiliza o formato EMF. Se desejar que suas imagens Windows sejam mostradas em Mac OS ou em outra aplicação de Windows, é necessário converter a imagem em um mapa de bits utilizando a seguinte instrução:
MinhaImagem:=MinhaImagem|MinhaImagem.

A diferença dos EMF (só Windows), os tipos Pict e bitmap não independentes da plataforma.

Nota: Pelo contrário, as imagens Mac OS podem ser utilizadas diretamente.

Exemplo

Os documentos 4D Write são guardados em campos BLOB. Você só quer imprimir a segunda página de cada documento. Para fazer isso, insira no formulário de impressão uma variável imagem (chamada MyImage neste exemplo) e associe ela ao seguinte método:

 If(Form event=On Printing Detail)

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

    MyImage:=WR Build preview(NewOffscreen;2)

 End if

Depois, crie e execute o seguinte método de projeto:

 QUERY([MyTable]) `Criar a seleção a imprimir

 OUTPUT FORM([MyTable];"PrintPage2") `PrintPage2 é o formulário de impressão

  `Cria a área fora de tela utilizada no método anterior

 NewOffscreen:=WR New offscreen area

 PRINT SELECTION([MyTable]) `Imprime a seleção

 WR DELETE OFFSCREEN AREA(NewOffscreen) `Apaga a área fora de tela