W-Stefan
Mitglied
Hei leute,
ich bastle immer noch an meinem TextEditor. Hätte da noch eine Frage. Ich möchte aus einem memofeld drucken. das funktioniert auch (hier mein code):
Aber ich möchte über den Button "Seite einrichten" angeben, wie viel rand der Drucker lassen soll. Außerdem soll auf dem Ausdruck oben der Dateiname angezeigt werden und unten die Aktuelle Seitenzahl.
Hoffe ihr könnt mir helfen.
mfg
Is denn keiner da, der mir helfen kann?
ich bastle immer noch an meinem TextEditor. Hätte da noch eine Frage. Ich möchte aus einem memofeld drucken. das funktioniert auch (hier mein code):
Code:
procedure TEditor.druckenClick(Sender: TObject);
var line: Integer;
printtext: TextFile;
begin
if PrintDialog.Execute then
begin
AssignPrn(printtext);
Rewrite(printtext);
Printer.Canvas.Font := mem_texteingabe.Font;
Printer.Canvas.Font.Size := mem_texteingabe.Font.Size;
Printer.Canvas.Font.Style := mem_texteingabe.Font.Style;
for line := 0 to mem_texteingabe.Lines.Count - 1 do
Writeln(printtext, mem_texteingabe.Lines[Line]);
CloseFile(printtext);
end;
end;
Aber ich möchte über den Button "Seite einrichten" angeben, wie viel rand der Drucker lassen soll. Außerdem soll auf dem Ausdruck oben der Dateiname angezeigt werden und unten die Aktuelle Seitenzahl.
Hoffe ihr könnt mir helfen.
mfg
Is denn keiner da, der mir helfen kann?
Zuletzt bearbeitet: