AddPage Example for Visual Basic
Private Sub Command1_Click()
Dim nPageNumber As Long
Dim nPageCount As Long
Dim csBuffer As String
Dim nRet As Long
nPageNumber = 1
nRet = RasterDoc.AddPage (LEADRasterView1.Raster, nPageNumber)
If nRet = 0 Then
MsgBox ("The engine added a new page to the Document")
Else
MsgBox ("The engine could not add a new page to the Document")
End If
nPageCount = RasterDoc.PageCount
MsgBox "The Number of Pages in the Document is: " + Str(nPageCount)
End Sub