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(Jvrlib.DocumentData)
'表示するページを指定します。
JiveView.Page = 1
'表示します。
JiveView.Show()