Textdatei drucken

[Steve]

Zitat von Deshwitat:

Was ist, wenn ich nen Text mit Hilfe eines PrintDialogs drucken möchte ?
Wie muss ich den oben genannten Code ändern ?

Hi,

um das ganze mit dem PrintDialog zu drucken könntest du folgendes machen:

Delphi-Quellcode:

uses Printers;
...
prDlg : TPrintDialog;
...
IF prDlg.Execute THEN  //<-- Printer.PrinterIndex:= 0;  kann man nun weglassen
BEGIN
  with Printer do
  begin
     BeginDoc;
     Canvas.TextOut(0, 0, Memo1.Text);
     EndDoc;
  end;
END;

Gruß
Stephan