VB2005/2008/2010(DLL)

○RDFドキュメントデータ設定後、フィールドの値を変更する例（帳票にページ番号を入れる）

Dim iDocSize As Long
Dim sDocData() As Byte

'印刷を終了します。
ret = jvEndDoc(pid)
'RDFデータのサイズを取得します。
iDocSize = jvGetLong(pid, JV_DOCUMENT_SIZE)
If iDocSize > 0 Then
　　'RDFデータ取得用バッファを確保します。
　　ReDim sDocData(iDocSize)
　　'RDFデータを取り出します。
　　ret = jvGetDocument(pid, sDocData(0))
Else
　　ReDim sDocData(1)
　　sDocData(0) = 0
End If
'終了処理を実行します。
ret = jvClose(pid)

'プレビューコントロールにRDFドキュメントデータを設定します。
Call JiveView.set_DocumentData(CObj(sDocData))

'ページ番号と総ページ数を全ページに入れます。
For i = 1 To JiveView.PageCount
　　JiveView.Page = i
　　Call JiveView.set_FieldData("ページ番号", CStr(i))
　　Call JiveView.set_FieldData("総ページ数", CStr(JiveView.PageCount))
Next i

'表示するページを指定します。
JiveView.Page = 1
'表示します。
JiveView.Show()