4D v13
WR Build preview
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 | |||||
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.
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 ifDepois, 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
Produto: 4D
Tema: WR Opções da área
Número
89492
Criado por: 4D Write 6.5
