Ich möchte, den Text aus einem Memo-Feld drucken.
Wie kann ich einen Titel eingeben und drucken lassen sowie die Ränder verändern, so dass sich der Text nicht am Rand des Blattes befindet.
Kennt jemand die Methoden, mit denen man das realisieren kann?
Danke Anka.
Hallo Anka,
Probier mal statt dem Memo-Feld ein RichEdit-Feld zu verwenden. Die Komponente TRichEdit ist ein erweitertes Memofeld, welches aber zusätzlich noch Funktionen zum Ausdrucken besitzt. Genaueres steht in der Hilfe.
Vielleicht hilft dir das weiter.
Gruß Christian.
Hi,
Ich habe zwar jetzt eine TRichEdit-Komponente draus gemacht, aber ich finde trotzdem nirgendwo eine Eigenschaft, die die Ränder auf dem Ausdruck einstellt.
Hast Du vielleicht noch einen anderen Tip, wie ich Ränder auf dem Ausdruck hinkrieg? Was ist eigentlich der Vorteil eines RichEdits? Ich habe noch keine großen Unterschiede entdeckt?
Danke, Anka.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi, nach kurzer Suche in google hab ich fogendes gefunden. Kannst es ja auf deine Ansprüche kürzen. Dankesschreiben bitte an den Author
This procedure prints many components using printer.canvas. See Tmemo:
procedure TForm1.SpeedButton6Click(Sender: TObject);
Var
i,j, lrand, orand: integer;
r: real;
begin
lrand := 0; {linker Rand in Bildsch.-Punkten}
orand := 0; {oberer Rand }
r := Printer.PageWidth / Form1.Width;
{ p := Printer.PageHeight / Form1.Height; }
Printer.BeginDoc;
for i := 0 to ComponentCount -1 do
begin
If (Components[i] is Tedit)
and (TEdit(Components[i]).Visible = true) then
begin
Printer.Canvas.Font := Tedit(Components[i]).Font;
Printer.Canvas.TextOut(
Trunc(r * (Tedit(Components[i]).Left + lrand)),
Trunc(r * (Tedit(Components[i]).Top + orand)),
Tedit(Components[i]).Text);
end
else If (Components[i] is TDBedit)
and (TDBEdit(Components[i]).Visible = true) then
begin
Printer.Canvas.Font := TDBedit(Components[i]).Font;
Printer.Canvas.TextOut(
Trunc(r * (Tdbedit(Components[i]).Left + lrand)),
Trunc(r * (Tdbedit(Components[i]).Top + orand)),
TDBedit(Components[i]).Text);
end
else If (Components[i] is TComboBox)
and (TComboBox(Components[i]).Visible = true) then
begin
Printer.Canvas.Font := TComboBox(Components[i]).Font;
Printer.Canvas.TextOut(
Trunc(r * (TComboBox(Components[i]).Left + lrand)),
Trunc(r * (TComboBox(Components[i]).Top + orand)),
TComboBox(Components[i]).Text);
end
else If (Components[i] is TDBComboBox)
and (TDBComboBox(Components[i]).Visible = true) then
begin
Printer.Canvas.Font := TDBComboBox(Components[i]).Font;
Printer.Canvas.TextOut(
Trunc(r * (TDBComboBox(Components[i]).Left + lrand)),
Trunc(r * (TDBComboBox(Components[i]).Top + orand)),
TDBComboBox(Components[i]).Text);
end
else If (Components[i] is TLabel)
and (TLabel(Components[i]).Visible = true) then
begin
if Tlabel(components[i]).Alignment = taLeftJustify then
begin
Printer.Canvas.Font := TLabel(Components[i]).Font;
Printer.Canvas.TextOut(
Trunc(r * (TLabel(Components[i]).Left + lrand)),
Trunc(r * (TLabel(Components[i]).Top + orand)),
TLabel(Components[i]).Caption);
end
else
begin
Printer.Canvas.Font := TLabel(Components[i]).Font;
Printer.Canvas.TextOut(
Trunc(r * (TLabel(Components[i]).Left
Printer.Canvas.Textwidth(TLabel(Components[i]).Caption)),
Trunc(r * (TLabel(Components[i]).Top + orand)),
TLabel(Components[i]).Caption);
end
end
else If (Components[i] is TImage)
and (TImage(Components[i]).Visible = true) then
begin
Printer.Canvas.Draw(
Trunc(r * (TImage(Components[i]).Left + lrand)),
Trunc(r * (TImage(Components[i]).Top + orand)),
TImage(Components[i]).Picture.Bitmap);
end
else If (Components[i] is TDBImage)
and (TDBImage(Components[i]).Visible = true) then
begin
Printer.Canvas.Draw(
Trunc(r * (TDBImage(Components[i]).Left + lrand)),
Trunc(r * (TDBImage(Components[i]).Top + orand)),
TDBImage(Components[i]).Picture.Bitmap);
end
else If (Components[i] is TShape)
and (TShape(Components[i]).Visible = true) then
begin
Printer.Canvas.Rectangle(
Trunc(r * (TShape(Components[i]).Left + lrand)),
Trunc(r * (TShape(Components[i]).Top + orand)),
Trunc(r * (TShape(Components[i]).Left +
TShape(Components[i]).Width + lrand)),
Trunc(r * (TShape(Components[i]).Top +
TShape(Components[i]).Height + orand)));
end
else If (Components[i] is TMemo)
and (TMemo(Components[i]).Visible = true) then
begin
Printer.Canvas.Font := TMemo(Components[i]).Font;
for j := 0 to TMemo(Components[i]).Lines.count do
Printer.Canvas.TextOut(
Trunc(r * (TMemo(Components[i]).Left + lrand)),
Trunc(r * (TMemo(Components[i]).Top
{XXXXXXXXXXXXX DBMemo XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX}
else If (Components[i] is TDBMemo)
and (TDBMemo(Components[i]).Visible = true) then
begin
Printer.Canvas.Font := TDBMemo(Components[i]).Font;
for j := 0 to TDBMemo(Components[i]).Lines.count do
Printer.Canvas.TextOut(
Trunc(r * (TDBMemo(Components[i]).Left + lrand)),
Trunc(r * (TDBMemo(Components[i]).Top
end;
Printer.EndDoc;
Memo2.Visible := true;
ComboBox1.Visible := true;
end;
–
Klaus Gotthardt
email: [email protected]
home : http://www.rz.uni-frankfurt.de/~gotthard
Hi Anka,
Der Vorteil des RichEdit ist, dass dies eine fertige Komponente ist, die das Windows RTF-Format unterstützt. Damit kannst du sämtliche Schriftarten und -größen in deinem Text verwenden, Zeichen fett, unterstrichen und kursiv darstellen, kannst den Text als fertige Datei ganz einfach abspeichern (*.rtf-Datei), womit er auch von anderen Anwendungen gelesen werden kann (z.B. Word), denn RTF ist ein verbreitetes Standardformat. Und du kannst eben auch gleich ausdrucken.
Nur mit dem Ausdrucken kenne ich mich nicht so genau aus, ich weiß nur dass es geht. Ich habe auch im Moment keine Hilfe zur Hand, aber dort drin steht alles beschrieben, was möglich ist. Wenn’s dich interessiert, schaue ich auch noch mal nach.
Christian
Wenn Du irgendwie etwas Zeit finden solltest, dann schau bitte mal nach, ob Du etwas zum Drucken und zu unterschiedlichen Schriftarten in einem Feld findest. Ich habe inzwischen so viel probiert, aber nichts hat so funktioniert wie ich das will.
Danke Anka.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
ob Du etwas zum Drucken und zu unterschiedlichen
Schriftarten in einem Feld findest.
Hi Anka,
zum Ausdrucken des Inhalts eines RichEdits ist die Prozedur
„Print“ zuständig (in Delphi-Online-Hilfe gucken nach „TCustomRichEdit.Print“) und zum Einstellen der Ränder auf dem Papier dient das Property „PageRect“ (in Hilfe gucken nach „TCustomRichEdit.PageRect“).
Was das Verwenden unterschiedlicher Schriftarten, -größen und -auszeichnungen (also fett, kursiv etc.) in einem RichEdit betrifft empfehle ich Dir das Studium der Quelltexte des mitgelieferten RichEdit-Demoprogramms, das Du im Verzeichnis [Delphi-Verzeichnis]\Demos\RichEdit\ findest („RichEdit.bpg“ ist die Projektgruppendatei).
Mit freundlichem Gruß
Martin