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