Formular drucken - nur Edit- und Labelwerte / Erstellen QReport?

[bcvs]

Ja Quickreport kann das.

Du musst nur die Eigenschaft PrintIfEmpty des QuickReport auf true setzen. Dann brauchst du ein QRBand mit ein paar QRLabels.

Zur Übergabe der Werte könnte man in dem QuickReport-Form entsprechende Properties einführen, deren Setter die Captions der QRLabels befüllt.

[Delphineuling2015]

Zitat von bcvs:

Ja Quickreport kann das.

Du musst nur die Eigenschaft PrintIfEmpty des QuickReport auf true setzen. Dann brauchst du ein QRBand mit ein paar QRLabels.

Zur Übergabe der Werte könnte man in dem QuickReport-Form entsprechende Properties einführen, deren Setter die Captions der QRLabels befüllt.

Vielen Dank für die Antworten! Ich habe doch mehr Details in den letzten Jahren vergessen, als ich dachte...

Ich habe jetzt ein QuickReport erstellt, die Eigenschaft PrintIfEmpty auf true gesetzt, einen QRBand und vier QR Labels im Report platziert.
Was ich nicht hinbekomme, ist das "Einführen der Properties, deren Setter die Captions der QRLabels befüllen sollen".
Hier wäre ich für eine Anleitung sehr dankbar.

Hier der Quellcode des QuickReports:

Delphi-Quellcode:

unit Report1;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls;

type
  TQuickReport1 = class(TQuickRep)
    QRBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
  private

  public

  end;

var
  QuickReport1: TQuickReport1;

implementation

{$R *.DFM}

end.

Vielen Dank schon mal!

[bcvs]

Zuerst solltest du den Labels aussagekräftige Namen geben.

Das mit den Properties geht am Beispiel eines Labes so:

Delphi-Quellcode:

unit Report1;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls;

type
  TQuickReport1 = class(TQuickRep)
    QRBand1: TQRBand;
    QRLabelGrain: TQRLabel;
  private
    fGrain:string;
    procedure SetGrain(Value:string);
  public
    property Grain:String read fGrain write SetGrain;

  end;

var
  QuickReport1: TQuickReport1;

implementation

{$R *.DFM}

procedure TQuickReport1.SetGrain(Value:string);
begin
  fGrain:=Value;
  QRLabelGrain.Caption:=fGrain;
end;

end.

Zugriff von außen:
QuickReport1.Grain := irgendwas;

[Delphineuling2015]

super, vielen Dank !!!!!!
Wenn man den Code liest, leuchtet es ein. Aber es wäre mir echt nicht (mehr) eingefallen.