Drucker Button für Delphi 7

[1990Philipp]

Hallo an alle.^^

Ich habe eine wichtige Frage.

Wie sage ich dem Programm, das wenn ich auf drucken gehe, das der Computer das an den Drucker schickt?

MfG Philipp

[DeddyH]

Hallo und Willkommen in der DP :dp:
Gegenfrage: dass der Computer was an den Drucker schickt? Gewöhne Dir bitte gleich an, Fragen möglichst präzise zu stellen, sonst wird Dir niemand helfen können.

[1990Philipp]

ok...auf computersprache ausgedrückt: Ich möchte, das Delphi die Datei/ das Dokument das ich programmiert habe, auch wenn es nur eine Textdaei ist, das dies gedruckt wird.

Ich habe schon den Button Drucken, doch nun felht mir der/die Befehl/e und aus der Delphi Hilfe werde ich nicht schlau^^

[DeddyH]

Ist das eine Datei auf der Festplatte, oder steht die in einem Memo/Richedit o.ä.?

[1990Philipp]

in einer Memo

[DeddyH]

In der Delphi 7-Hilfe steht doch ein Beispiel dazu:

Zitat:

In diesem Beispiel wird ein Formular mit einer Schaltfläche und einer Memokomponente verwendet. Wenn der Benutzer auf die Schaltfläche klickt, wird der Inhalt der Memokomponente mit einem 200 Pixel großen Rahmen um die Seite gedruckt. Bevor Sie dieses Beispiel ausführen können, müssen Sie die Unit Printers in die uses-Klausel aufnehmen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

begin
  with Printer do
  begin
    BeginDoc;
    Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
                    200, 200, Memo1.Lines.Text);
    EndDoc;
  end;

end;

[1990Philipp]

Danke...soweit bin ich auch schon, doch wie nehme ich den Printer in die user-Klausel auf?

[DeddyH]

Schau mal ganz oben in Deiner Unit, da gibt es eine uses-Klausel. Da fügst Du einfach Printers hinzu.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Printers;  //<-- hier

[1990Philipp]

ey...cool danke!

[1990Philipp]

Zitat:

Zitat von DeddyH

In der Delphi 7-Hilfe steht doch ein Beispiel dazu:

Zitat:

In diesem Beispiel wird ein Formular mit einer Schaltfläche und einer Memokomponente verwendet. Wenn der Benutzer auf die Schaltfläche klickt, wird der Inhalt der Memokomponente mit einem 200 Pixel großen Rahmen um die Seite gedruckt. Bevor Sie dieses Beispiel ausführen können, müssen Sie die Unit Printers in die uses-Klausel aufnehmen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

begin
  with Printer do
  begin
    BeginDoc;
    Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
                    200, 200, Memo1.Lines.Text);
    EndDoc;
  end;

end;

das geht nicht, denn da kommt dann der text, aber hintereindander und mit rechtecken..was nun?