QuickReportでレコードによって印刷する位置を変える方法について

解決

Vulcan 2003-08-15 07:56:12 No: 4406

はじめて質問します。
QuickReportで帳票を作ろうと考えています。
QuickReport3でレコードのフィールドの内容によって
用紙の右端に印刷するか、左端に印刷するかを変えることは
できるのでしょうか？
よろしくお願いします。

Vulcan 2003-08-15 08:32:58 No: 4407

自己レスです。解決しました。

右側と左側に同じDataFieldのQRDBTextを配置し、
OnPrintイベントで必要のないほうのValueに''を代入
することでできました。

// 右側
procedure TForm1.QRDBText5Print(sender: TObject; var Value: String);
begin
if IBQuery1.FieldByName('LR').AsString = '左' then
Value := '';
end;

// 左側
procedure TForm1.QRDBText4Print(sender: TObject; var Value: String);
begin
if IBQuery1.FieldByName('LR').AsString = '右' then
Value := '';
end;

こんな感じで。基本的なことでしたね。

お騒がせしました。。