VB6(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ドキュメントデータを設定します。
JiveView.DocumentData = sDocData
 
'ページ番号と総ページ数を全ページに入れます。
For i = 1 To JiveView.PageCount
　　JiveView.Page = i
　　JiveView.FieldData("ページ番号") = CStr(i)
　　JiveView.FieldData("総ページ数") = CStr(JiveView.PageCount)
Next i
 
JiveView.Page = 1
JiveView.Show