ひとつのQreportで二つの帳票を出力するには？ (ID：32001)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

簡単にサンプル作成してみました。
プレビューには両方のレポートが表示されました。
環境は下記の通りです。
WindowsVista(Business) Version6.0 (Build 6001: Service Pack1)
CodeGear(TM) Delphi(R) 2007 for Win32(R)  Version 11.0.2902.10471
QuickReport 4.07 (Professional) ※有償版

// -------------------------------------------------------------- //
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

// ------------------------------------------------------------- //
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.QRCompositeReport1.Preview;
end;

end.

// ------------------------------------------------------------- //
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QuickRpt, QRCtrls, ExtCtrls;

type
  TForm2 = class(TForm)
    QRCompositeReport1: TQRCompositeReport;
    QuickRep1: TQuickRep;
    DetailBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QuickRep2: TQuickRep;
    DetailBand2: TQRBand;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    procedure QRCompositeReport1AddReports(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.QRCompositeReport1AddReports(Sender: TObject);
begin
  QRCompositeReport1.Reports.Add(QuickRep1);
  QRCompositeReport1.Reports.Add(QuickRep2);
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る