Delphi dicas

Quickreport propriedade forcenewpage

1.Caso se queira que o relatório apresente cada cliente separadamente atribua a propriedade ForceNewPage da banda Detail para true;



2.Para o caso de só imprimir um cliente quando ele tiver efetuado uma compra, coloca-se o seguinte código no evento BeforePrint da banda Detail}





PrintBand:=DetailTable.RecordCount>0; { 3.Para ativar impressão do formulário a um evento OnClick, coloca-se a seguinte codificação:}





QRMDForm.Print; { 4.Para se inicializar campos antes da apresentaçãodo formulário, coloca-se a codificação no evento ONStartPage do Formulário, Por exemplo:}



procedure TDoseaciForm.DoseaciFormStartPage(Sender: TQuickRep);





5. begin

        QRLabel4.Caption:=nome_serv;

        MasterTable.filter:='Id='+InttoStr(id_serv);

        MasterTable.filtered:=true;

        QRLabel18.Caption:=Form23.Edit2.text;

        QRLabel18.Left:=doseaciForm.width div 2- QRLabel18.width div 2;

        try

        QRMemo1.Lines.LoadFromFile('prelat.txt');

        QRImage1.Picture.loadfromfile(simbolo);

        finally

end;

end; { 6.Para ativar o formulário a um evento OnClick, coloca-se a seguinte codificação:}



QRMDForm.Preview;

por : Claudinho Wylde