QuickReport - Fazendo Preview

INCLUINDO UM PREVIEW PERSONALIZADO COM O QUICK REPORT.

======================================================

No relatorio, criar a procedure SHOWPREVIEW contendo:

PROCEDURE Showpreview;

begin

  preview.showmodal;

end;

aonde preview e' o nome do form criado para preview

nao esquecer de incluir o nome da procedure na cláusula uses.

Após isso, deve-se incluir no evento CREATE do formulario principal ou o

do relatório o direcionamento do objeto Qprinter, com a seguir:

qprinter.onpreview:=showpreview;

Isto faz com que toda vez que se desejar exibir um preview, o 

programa abra a rotina 'showpreview', que abre o formulário 

criado, chamado "preview'.