PrinterScaleHeight Example for Delphi

    var
   nRet: Integer;
   sRet: smallint;
   h_dc: HDC;
begin
   ShowMessage('Width: ' + IntToStr(Trunc(LEADRasterView1.PrinterScaleWidth))
       + '  Height: ' + IntToStr(Trunc(LEADRasterView1.PrinterScaleHeight)));
    h_dc:= LEADRasterView1.PrintStart (nRet);
    //print 1/4 of the printable region
    LEADRasterView1.Render (h_dc, 0, 0,
                           LEADRasterView1.PrinterScaleWidth / 4,
                           LEADRasterView1.PrinterScaleHeight / 4,
                            sRet);
    LEADRasterView1.PrintEnd (h_dc);
end;