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;