Hi,
ich drucke hiermit den Inhalt eines Memos aus:
Delphi-Quellcode:
procedure TForm1.ToolButton4Click(Sender: TObject);
var Lines: Integer;
LineHeight: Integer;
ActMemoLine: Integer;
Pages: Integer;
PageLine: Integer;
begin
Printer.BeginDoc;
Printer.Canvas.Font.Name := 'Arial';
Printer.Canvas.Font.Size := 11;
Lines := Printer.PageHeight div Printer.Canvas.TextHeight('Dummy');
LineHeight := Printer.Canvas.TextHeight('Dummy');
ActMemoLine := 0;
for Pages := 1 to (Memo1.Lines.Count div Lines) + 1 do
begin
for PageLine := 0 to Lines - 1 do
begin
if ActMemoLine < Memo1.Lines.Count then
begin
Printer.Canvas.TextOut(150, PageLine * LineHeight + 150, Memo1.Lines[ActMemoLine]);
end
else
begin
Printer.EndDoc;
exit;
end;
Inc(ActMemoLine);
end;
if ActMemoLine < Memo1.Lines.Count then
Printer.NewPage;
end;
Printer.EndDoc;
end;
Wie kann ich jetzt dem Text noch eine Überschrift geben...Praktisch das der Drucker über dem Text ne überschrift druckt?
Die Überschrift steht in tabsheet1.caption