Hi,
das war ja mal wieder einfach
Es fehlte noch ein Print-Dialog und musste noch so den code ergänzen:
Delphi-Quellcode:
procedure Tfprintpreview.sbPrintClick(Sender: TObject);
begin
if pdPrint.Execute then
begin
with fmain do
begin
SynPrinter.Highlight := cbHighlight.Checked;
SynPrinter.LineNumbers := cbNumbering.Checked;
SynPrinter.Copies := seCopies.Value;
SynPrinter.Colors := cbHighlight.Checked;
SynPrinter.Print;
end;
end;
end;
Aber eins wollte ich noch gerne wissen -> Warum ging meine erste Möglichkeit nicht (erster Beitrag)?