Drucker Button für Delphi 7

[DeddyH]

Nun wird es kompliziert (Delphi und Drucken, das leidige Thema). Das Einfachste wird für den Anfang sein, Du speicherst Dein Memo als Textdatei ab

Delphi-Quellcode:

Memo.Lines.SaveToFile(Dateiname)

und druckst diese Datei anschließend über das verknüpfte Programm aus

Delphi-Quellcode:

ShellExecute(Handle,'print',PChar(Dateiname),nil,nil,SW_HIDE);

Dazu musst Du dann die Unit ShellAPI zusätzlich in die uses-Klausel aufnehmen.

[1990Philipp]

geht das noch einfacher? denn mit nur print, druckt er alles (Formblatt)

noch ne frage: was heißt das, wenn bei fehlern steht:

[Fehler] Unit1.pas(97): Record, Objekt oder Klassentyp erforderlich

?????

[DeddyH]

Sry, aber das sind einfach zu wenig Infos, und meine Glaskugel ist gerade zum Polieren :stupid:

[1990Philipp]

ok...also i gebe da das ein:

procedure TForm1.DruckenClick(Sender: TObject);
begin
print
end;

und er druckt dann das Formblatt aus.

Wenn i aber das eingebe:

procedure TForm1.DruckenClick(Sender: TObject);
begin
print.TMemo
end;

kommt das:
[Fehler] Unit1.pas(97): Record, Objekt oder Klassentyp erforderlich
[Fehler] Unit1.pas(99): Anweisung erforderlich, aber Ausdruck vom Typ 'Class reference' gefunden

[DeddyH]

Wenn es das gäbe, müsste es

Delphi-Quellcode:

Memo1.print

heißen. Ansonsten nimm eine Richedit, da gibt es die Print-Methode.

[1990Philipp]

ne...das geht auch nicht

[1990Philipp]

hallo nochmal...das drucken geht nun, doch welcher befehl muss in die Unit, damit die Schriftart und Schriftgröße beim Ausdruck verändert werden kann (wenn ich das über den Objektinspektor mache, dann ist das nur in der Memo zu sehen, doch nicht beim ausdruck der memo.

[DeddyH]

Ich weiß zwar nicht, wie Du jetzt druckst, aber versuch es mal mit

Delphi-Quellcode:

Printer.Canvas.Font.Assign(Memo.Font);