Quick Report

Question

E ai calera uso o quick report para fazer meus relatorios e qual o usuario clica la no botao do formulario aparece uma tela antes com as a�oes q podem ser feitas ex  button1.click := frmrelatorio.quic...

Marcio.theis · Answer

Para configurar a p�gina eu fa�o da seguinte forma, tenho uma fun��o...
no qual passo o relat�rio que �, e se foi ou n�o selecionado um modelo de p�gina.

E deve-se adicionar no uses a unit Printers

procedure TdtmFuncao.SetaPaginaRelatorio(qrp: TQuickRep; ModeloPadraoPagina: boolean);
begin
{
Seta tamanhos de p�gina do relat�rio
}
if ModeloPadraoPagina then
    dtm.tblModPageRel.Locate(�NUPAGEREL�,dtm.tblParametroNUPAGEREL.Value,[]);
//tamanho
qrp.Page.Length:=dtm.tblModPageRelNUALTPAGEREL.Value;
qrp.Page.Width:=dtm.tblModPageRelNULARGPAGEREL.Value;
//margens
qrp.Page.TopMargin:=dtm.tblModPageRelNUMARGEMSUPERIOR.Value;
qrp.Page.BottomMargin:=dtm.tblModPageRelNUMARGEMINFERIOR.Value;
qrp.Page.LeftMargin:=dtm.tblModPageRelNUMARGEMESQUERDA.Value;
qrp.Page.RightMargin:=dtm.tblModPageRelNUMARGEMDIREITA.Value;
if dtm.tblModPageRelTPPAISAGEM.Value = �S� then
    qrp.Page.Orientation:=poLandscape;
else
    qrp.Page.Orientation:=poPortrait;
end;

Uma id�ia, pode-se fazer de outras formas...

F�rum Quick Report #268866