RTFPaperHeight Example for Visual Basic

Private Sub LoadRTF_Click()
   ' This example loads a RTF file, with a custom top margin, bottom margin, left margin, right '
   ' margin, Paper width, and Paper height
   Dim RasterIO As New LEADRasterIO
   'Change margin values

   RasterIO.RTFTopMarg = 0.9
   RasterIO.RTFBottomMarg = 0.9

   RasterIO.RTFLeftMarg = 1.3
   RasterIO.RTFRightMarg = 1.3

   RasterIO.RTFPaperWidth = 8.25
   RasterIO.RTFPaperHeight = 11.5

   'Now load the RTF file
   RasterIO.Load LEADRasterView1.Raster, "c:\image1.rtf", 0, 1, 1
End Sub