Impresion con QuickReport 4

[yusnerqui]

ESPERO QUE NOS ENTENDAMOS

De seguro si usas las etiquetas delphi se entenderán mejor, y por ende obtendrás más ayuda, me he tomado la libertad de transcribir tu código:

Código Delphi [-]
procedure TRECIVFORM.QRDBText1Print(sender: TObject; var Value: String);
begin
  DataModule2.Table5.IndexName:= 'DNI';
  if not DataModule2.Table5.Findkey([Query1.FieldByName ('NIF_PROP1').Value]) then
    ShowMessage('No encuentro el Nif del propietario');
  IF Query1.FieldByName('TIPO').Value = 'V' then
  begin
    QuickRep1.PrinterSettings.Copies:=1;
    QRLabel1.Caption:= ' ';
    QRLabel7.Caption:= 'arrendatario de la expresada vivienda';
    QRLabel3.Caption:= 'Vivienda:';
    QRLabel8.Caption:= 'la cantidad de:';
    QRLabel28.Caption:= ' ';
    QRLabel6.Caption:= QRLabel25.Caption;
  end;
  if Query1.FieldByName('TIPO').value = 'T' then
  begin
    QuickRep1.PrinterSettings.Copies:=1;
    QRLabel1.Caption:= ' ';
    QRLabel7.Caption:= 'arrendatario del expresado trastero';
    QRLabel3.Caption:= 'Trastero:';
    QRLabel8.Caption:= 'la cantidad de:';
    QRLabel28.Caption:= ' ';
    QRLabel6.Caption:= QRLabel25.Caption;
  end;
  if Query1.FieldByName('TIPO').Value = 'L' then
  begin
    QuickRep1.PrinterSettings.Copies:=2;
    QRLabel1.Caption:= 'Recibo Núm: ';
    QRLabel7.Caption:= 'arrendatario del expresado local';
    QRLabel3.Caption:= 'Local:';
    QRLabel8.Caption:= 'la cantidad de:';
    QRLabel6.Caption:= QRLabel25.Caption;
    QRLabel28.Caption:= Form24.DBEdit1.Text;
    Form24.DBEdit1.Text:=IntToStr((StrToInt(Form24.DBEdit1.Text)+1));
    //DataModule2.Table3.edit;
    //DataModule2.Table3.FieldByName('ULTRECIV').AsInteger:= StrToInt(Form24.DBEdit1.Text);
    //DataModule2.Table3.post;
    //DataModule2.Table3.Refresh;
    pai:= pai+1;
  end;
end;

se lee mejor así verdad?

Saludos