Hi,
ich versuche gerade mich in das Drucken einzuarbeiten und bin auf ein Problem gestoßen.
Code:
procedure TForm1.Button2Click(Sender: TObject);
var i,y : Integer;
begin
Printer.BeginDoc;
Printer.NewPage;
for i := 0 to memo1.Lines.Count do
begin
inc(y,5);
Printer.Canvas.TextOut(2,y,memo1.Lines[i]);
end;
Printer.EndDoc;
end;
Wie hier zu sehen ist, versuche ich alle Zeilen eines Memos genau so auszudrucken wie sie, sozusagen, auf dem Bildschirm zu sehen sind (also untereinander).
Es werden auch keine Fehlermeldungen angezeigt, aber auf dem Papier, welches dann aus dem Drucker kommt ist auch nichts drauf
.
Ich komme leider nicht dahinter was daran falsch ist ...
Danke für jede Hilfe
