quickreportの実行時作成について (ID:32660)

名前

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

本文

>そのまんま、QuickRep.Page.Orientation := poPortrait;
未定義の識別子'PoPortRait'と表示されます
use節にQRPrntrを追加するとコンパイルが通ります
>QuickRep.Page.PaperSIze := A3;
未定義の識別子'PoPortRait'と表示されます
use節にPrintersを追加するとコンパイルが通ります

現在の試験的なコードは以下の通りです
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,QuickRpt, QRCtrls;

type
  TFrmTest = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private 宣言 }
    Report : TQuickRep;
    Detail : TQRBand;
   // QLblName : TQRLabel;
  public

{ Public 宣言 }
  end;

var
  FrmTest: TFrmTest;

implementation

{$R *.dfm}

procedure TFrmTest.FormCreate(Sender: TObject);
begin
 Report := TQuickRep.Create(FrmTest);
 with Report do begin
   Parent := FrmTest;
   Page.PaperSize := A4;;//ここでエラー
   Page.Orientation := poLandScape;//ここでエラー
   Page.LeftMargin := 10;
   page.TopMargin := 10;
   Page.RightMargin := 10;
   Page.BottomMargin := 10;
   Top := 0;
   Left := 0;
 end;

Detail := TQRBand.Create(FrmTest);
 with Detail do begin
  Parent := FrmTest.Report;
  Size.Height := Report.Height-Report.Page.TopMargin-Report.Page.BottomMargin;
  Size.Width := Report.Width - Report.Page.LeftMargin-Report.Page.RightMargin;
 end;
 Report.PreviewModal;
end;

procedure TFrmTest.FormDestroy(Sender: TObject);
begin
 Detail.Free;
 Report.Free;
end;

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

戻る