Zitat von
Fritz01:
Hallo,
dank Euch für die Antworten. Es wird wohl am Ende auf CodeBasedPrintig herauslaufen.
Werde mir auch die Beispiele ansehen.
@ grenzgaenger,
habe da entsprechend Deinem Beispiel mal getestet, 'gedruckt' wird da nur ein leeres Blatt.
so sollte es nicht sein. der code, zeichnet ein rechteck auf das blatt...
... hier noch 'n kleines erweitertes beispiel:
Delphi-Quellcode:
procedure TForm1.RvSystem1Print(Sender: TObject);
var
x: tbasereport;
begin
x := tbasereport(sender);
x.Units := unMM;
x.Rectangle(10,10,40,20);
x.Fontname := 'Arial';
x.FontSize := 24;
x.FontColor := clBlue;
x.PrintXY(10, 30, 'hier ist eine ausgabe');
x.Println(', hier gehts gleich weiter ...');
x.Println('und hier noch was mit zeilenvorschub');
end;