PrinterScaleHeight example for Visual Basic

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