PrinterScaleHeight Example for Visual Basic

    Dim hdc As Long
    MsgBox "Width: " & CStr(LEADRasterView1.PrinterScaleWidth) _
       & "  Height: " & CStr(LEADRasterView1.PrinterScaleHeight)
    hdc = LEADRasterView1.PrintStart
    'print 1/4 of the printable region
    LEADRasterView1.Render hdc, 0, 0, _
                           LEADRasterView1.PrinterScaleWidth / 4, _
                           LEADRasterView1.PrinterScaleHeight / 4
    LEADRasterView1.PrintEnd (hdc)