QuickReport - Fazendo Preview

Top  Previous  Next

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'.