Drucken eines Textes von einer TMemo

[ssach]

vielen dank,

funzt alles,
weiss nur noch nicht genau wie ich dei EIgenschaften soll an PrintStrings(); weitergeben soll damit sie auch greifen?
kann jemand mir bitte helfen?
danke
cu

[APP]

Hallo ssach,

Du könntest z.B. die Anzahl der Ausdrucke so lösen:

Delphi-Quellcode:

PROCEDURE TForm1.Button1Click(Sender: TObject);
VAR
   i                               : Integer;
BEGIN
   IF PrintDialog1.Execute THEN
      BEGIN
         FOR i := 1 TO PrintDialog1.Copies DO 
            PrintStrings(Memo1.Lines);
      END;
END;

die anderen Einstellungen des Dialogs kann man (zumindest bei mir)
nicht verändern, die Eigenschaften des jeweiligen Druckers werden
durch den Druckertreiber gelöst und "greifen" sowiso.

[Niels]

Tach!

Delphi-Quellcode:

PrintDialog1.Execute;

Es gibt auch noch den PrinterSetupDialog...den öffnest du dann entsprechend mit

Delphi-Quellcode:

PrinterSetupDialog1.Execute;

Niels