Delphi-PRAXiS - Eingabeformular ausdrucken

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Eingabeformular ausdrucken (https://www.delphipraxis.net/44216-eingabeformular-ausdrucken.html)

Eingabeformular ausdrucken

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

Re: Eingabeformular ausdrucken

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

Re: Eingabeformular ausdrucken

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 ,-)

Re: Eingabeformular ausdrucken

Zitat:

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!

Re: Eingabeformular ausdrucken

Daaaaaaaaaaaaaaaaaaaaaanke :thumb: :bounce2:

Re: Eingabeformular ausdrucken

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