Hallogrenzgaenger,
danke für das Beispiel und die Erklärung.
Zitat:
'gedruckt' wird da nur ein leeres Blatt
Sorry das lag da an mir, hatte das onPrint Ereignis nicht im
OI eingetragen doppelClick!!
Konnte ja auch nicht drucken. Dein Beispiel habe ich wie folgt geändert, nun geht es.
Delphi-Quellcode:
procedure TfrmAhnta.RvSystem1Print(Sender: TObject);
var
x : TBaseReport;
begin
x := TBaseReport(sender);
x.Fontname := 'Arial';
x.Units := unMM;
x.FontSize := 10;
x.FontColor := clWindowText;
x.PrintXY(10,105, Label0.Caption); // Kind <-- hier die Label.Caption rein
x.PrintXY(30, 55, Label1.Caption); // Vater
x.PrintXY(30,155, Label2.Caption); //Mutter
// usw.
end;
Ist dann nur noch Fleißarbeit die Koordinaten richtig zu setzen.
Danke noch mal für eure Geduld.
Mit freundlichem Gruß
Fritz