PageWidth Example for Visual Basic
Private Sub Command4_Click()
Dim csBuffer As String
Dim nBitsPerPixel As Long
Dim nPageWidth As Long
Dim nPageHeight As Long
nBitsPerPixel = RasterDoc.PageBitsPerPixel (0)
nPageWidth = RasterDoc.PageWidth (0)
nPageHeight = RasterDoc.PageHeight (0)
MsgBox "Page Width = " + Str(nPageWidth) + Chr$(13) + _
"Page Height = " + Str(nPageHeight) + Chr$(13) + _
"nPage Bits Per Pixel = " + Str(nBitsPerPixel)
End Sub