Eingabeformular ausdrucken

[Tarran]

Ich habe ein Eingabeformular erstellt. Es werden DBEdith Felder benutzt.gibt es eine wenig aufwendige möglichkeit diese Formular 1 zu 1 auszudrucken??
Anbei der Source

Delphi-Quellcode:

unit Eingabe;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, ExtCtrls, XPMan, ComCtrls;

type
  TForm1 = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label1: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Button1: TButton;
    Button2: TButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    Table1: TTable;
    DataSource1: TDataSource;
    Button3: TButton;
    Button4: TButton;
    XPManifest1: TXPManifest;
    DBMemo1: TDBMemo;
    Button5: TButton;
    DBText1: TDBText;
    Button6: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses Anzeige;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
table1.Insert;table1.post;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 table1.delete;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
zahl1, zahl2, ergebnis: integer;
begin
zahl1 :=StrToInt(dbedit10.text);
zahl2 :=StrToInt(dbedit9.text);
Ergebnis:=zahl2 - zahl1;
DBtext1.Caption:=inttostr(ergebnis);

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  table1.edit;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

Gruss Tarran

[Treffnix]

Mit Form1.Print kannst du quasi nen Screenshot vom Formular drucken

[Tarran]

Ah kk hab sowas noch nie gemacht .. ich klicke einen Button auf das Formular und gebe ihm dann
den code Form1.print
?
Sorry bin nich NOOb und etwas .. umständlich ,-)

[malo]

Zitat von Tarran:

Ah kk hab sowas noch nie gemacht .. ich klicke einen Button auf das Formular und gebe ihm dann
den code Form1.print
?
Sorry bin nich NOOb und etwas .. umständlich ,-)

Ja, so:

Delphi-Quellcode:

procedure Button1.ButtonClick(Sender: TObject);
begin
  Form1.Print;
end;

//edit: Tippfehler beseitigt!

[Tarran]

Daaaaaaaaaaaaaaaaaaaaaanke

[Tarran]

Hallole ..ich nochmal.Also das "einfache" Ausdrucken funzt super leider ist es nun so , das dort wo gelocht wird Teile des Dokumentes sind , was natürlich etwas doof ist. Auch ist es schlecht das kein Dialog erscheint der abfragt welcher Drucker...Ich hab mal versucht "Printdialog" einzubauen aber irgendwie bin ich da doch zu Noob für ;.-(er meldet mir immer irgendwelche Fehler.
Sourcecode

Delphi-Quellcode:

unit Darstellen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, DB, DBTables, StdCtrls, DBCtrls, ExtCtrls, Mask, ImgList,
  ComCtrls, ToolWin;

type
  TForm5 = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label1: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    DBText1: TDBText;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBMemo1: TDBMemo;
    Button5: TButton;
    Table1: TTable;
    DataSource1: TDataSource;
    XPManifest1: TXPManifest;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ImageList1: TImageList;
    ToolButton7: TToolButton;
    ToolButton2: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    PrintDialog1: TPrintDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation

uses Anzeige;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
begin
table1.Prior;
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
table1.next;
end;

procedure TForm5.Button4Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm5.ToolButton2Click(Sender: TObject);
begin
close;
end;

procedure TForm5.ToolButton3Click(Sender: TObject);
begin
close;
end;

procedure TForm5.ToolButton4Click(Sender: TObject);
begin
table1.Prior;
end;

procedure TForm5.ToolButton5Click(Sender: TObject);
begin
table1.next;
end;

procedure TForm5.ToolButton6Click(Sender: TObject);
begin
[b]form5.print;[/b]

end;

procedure TForm5.ToolButton7Click(Sender: TObject);
begin
Form2.Show;
end;

end.

Wäre nett wenn mir wer ne Anregung hätte was falsch ist.In dieser Form wirft er eine Bildschirmcopie vom EingabeForm aus.
Gruß Tarran