DelphiXE(OCX)

○RDFドキュメントデータ設定後、フィールドの値を変更する例(帳票にページ番号を入れる)
 
//印刷を終了します。
Jvrlib.EndDoc;
 
// RDFデータをOleVariant形式で取得します。
oDocData := Jvrlib.DocumentData;
 
//プレビューコントロールにRDFドキュメントデータを設定します。
JiveView.ControlInterface.Set_DocumentData(oDocData);
 
//ページ番号と総ページ数を全ページに入れます。
lPageNo := JiveView.PageCount;
for i:=1 to lPageNo do
begin
  JiveView.Page := i;
  JiveView.ControlInterface.Set_FieldData('ページ番号',WideString(IntToStr(i)));
  JiveView.ControlInterface.Set_FieldData('総ページ数',WideString(IntToStr(lPageNo)));
end;
 
JiveView.Page := 1;
JiveView.Show;