Wie Druckt man n Memo?????

[Lifthrasir]

Hi leutz hab da mal ne simple Frage!

Wie drucke ich nen simples Memo (Memo1)

Bitte schnell beantworten (Zeitdruck im Rückn)

[jakobwenzel]

Einfach mal Suchen: Drucken Memo

[pilic]

Hi,

Speichern und mit Notepad drucken.

Delphi-Quellcode:

Memo1.SaveToFile('hello.txt');
ShellExecute(Handle,'print','hello.txt', nil, nil, SW_HIDE);

ShellAPI muss natürlich noch bei den uses eingebunden werden.

[Hador]

Naja das ist nicht gerade die schönste Lösung.
Schöner und immernoch sehr einfach wäre der Weg über ein RichEdit (RichEdit.Print(); ).

Mehr Möglichkeiten hast du, wenn du den TPrinter aus der Unit Printers nutzt. Allerdings musst du dich da auch selbst um die Formatierung kümmern, was etwas komplizierter ist.

EDIT:
Hab grad noch das gefunden (selbst nicht getestet):

Delphi-Quellcode:

procedure TForm1.Print1Click(Sender: TObject);
var zeile: Integer;
  PrintText: TextFile; //Deklaration einer Dateivariablen
begin
  if PrintDialog1.Execute then begin
    // Zuweisung von PrintText an den Drucker
    AssignPrn(PrintText);
    Rewrite(PrintText); // Erzeugen und Öffnen der Ausgabedatei  
    try
      // Zuweisung der eingestellten Schriftart an die Leinwand
      Printer.Canvas.Font := Memo1.Font;
      for Line := 0 to Memo1.Lines.Count - 1 do
        //Schreiben des Inhalts von Memo1 in das Druckerobjekt
        Writeln(PrintText, Memo1.Lines[Line]);
    finally
      CloseFile(PrintText); // Schließen der Druckervariablen
    end;
  end;
end;

[popo2006]

@pilic: Dein Vorschlag klappt nur, wenn *.txt-Dateien tatsächlich noch mit notepad.exe verknüpft sind

ShellExecute(Handle,'notepad.exe','/p '+PChar(filename), nil, nil, SW_ShowMinimized); Habe ich zwar noch nicht ausprobiert, dürfte aber eher zum Ausdrucken mit *Notepad* geeignet sein.

mfg

[Lifthrasir]

danke Jungs..

Bin aus Zeitgründen auf n RichEdit gewechselt. da is ja druckn recht easy..

Machs beim nächsten mal halt sauberer

Danke nochmal