Quickreport und Drucken

[Privateer3000]

Hiho Reportspezies,

hab in den alten Beiträgen hab ich nichts gefunden.
Unten steht der Code eines Form auf dem ein Quickreport ist.
Leider bekomm ich es nicht hin dies ausdrucken zu lassen.
Vielleicht kann jemand helfen?!

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Printers, StdCtrls, ExtCtrls,ShellApi,IniFiles, IdBaseComponent,
  IdCoder, IdCoder3to4, IdCoderMIME, QuickRpt, QRCtrls, QRPrntr;

type
  TForm2 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    IdDecoderMIME1: TIdDecoderMIME;
    QuickRep1: TQuickRep;
    PageHeaderBand1: TQRBand;
    Kopfzeile: TQRLabel;
    bereich1: TQRLabel;
    bereich2: TQRLabel;
    bereich3: TQRLabel;
    bereich4: TQRLabel;
    QRLabel1: TQRLabel;
    gbereich1: TQRLabel;
    gbereich2: TQRLabel;
    gbereich3: TQRLabel;
    gbereich4: TQRLabel;
    QRLabel2: TQRLabel;
    umsatz: TQRLabel;
    Memo1: TQRMemo;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    ergebnis: TQRLabel;
    QRLabel5: TQRLabel;
    Memo2: TQRMemo;
    Button5: TButton;
    PrintDialog1: TPrintDialog;
    Button6: TButton;
    vartname: TQRLabel;
    procedure FormShow(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    private
     dianz: Integer;
     { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;
  dianz: Integer;
  
implementation

{$R *.dfm}

uses Main;


procedure TForm2.FormShow(Sender: TObject);
var
bartext,eintext,kelltext,sonsttext,diname,digeld,waehr: String;
i: Integer;
begin
vartname.Caption:=Form1.vart.Text;
waehr:=Form1.waehr;
dianz:=StrToInt(Form1.dianzanz.Caption);
Kopfzeile.Caption:='Auswertung des Tagesabschlusses vom: '+Form1.eindate;
bereich1.Caption:=Form1.GroupBox2.Caption;
bereich2.Caption:=Form1.GroupBox3.Caption;
bereich3.Caption:=Form1.GroupBox4.Caption;
bereich4.Caption:=Form1.GroupBox5.Caption;
umsatz.Caption:=Form1.umsatz.Text+' '+waehr;
bartext:=Form1.endebar.Text+' '+waehr;
eintext:=Form1.endeein.Text+' '+waehr;
kelltext:=Form1.endekellner.Text+' '+waehr;
sonsttext:=Form1.endesonst.Text+' '+waehr;
ergebnis.Caption:=Form1.abschluss.Text+' '+waehr;
for i:=1 to dianz do begin
diname:=(Form1.FindComponent('name'+IntToStr(i))as TEdit).Text;
digeld:=(Form1.FindComponent('dgeld'+IntToStr(i))as TEdit).Text;
Memo1.Lines.Add(digeld+' :      '+diname+' '+waehr);
end;
Memo1.Lines.add('');
Memo1.Lines.add('DJ Name und Gage:');
Memo1.Lines.add(Form1.djname.Text+' :      '+Form1.djgage.Text+' €');
Memo2.Lines.Add(Form1.Memo1.Text);
if bartext = '0 '+waehr then
gbereich1.Caption:='Nicht abgerechnet'
else
gbereich1.Caption:=Form1.endebar.Text+' '+waehr;
if eintext = '0 '+waehr then
gbereich2.Caption:='Nicht abgerechnet'
else
gbereich2.Caption:=Form1.endeein.Text+' '+waehr;
if kelltext = '0 '+waehr then
gbereich3.Caption:='Nicht abgerechnet'
else
gbereich3.Caption:=Form1.endekellner.Text+' '+waehr;
if sonsttext = '0 '+waehr then
gbereich4.Caption:='Nicht abgerechnet'
else
gbereich4.Caption:=Form1.endesonst.Text+' '+waehr;
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
Form2.QuickRep1.preview;
end;

procedure TForm2.Button6Click(Sender: TObject);
begin
SaveDialog1.Execute;
end;

end.