报表打印问题，请帮我看一看

Question

为什么无人帮帮我？！！！！！！！！！！！！

Answer 1

大了还是小了，帮你分析分析

Answer 2

谢谢！！！
具体情况是：
   程序原代码如下：
   if Printer.Printers.Count > 0 then
  begin
    PrintWidth := (Printer.PageWidth * sw) div (pw);
    PrintHeight := (Printer.PageHeight * sh) div ph;
    fXRatio :=Printer.PageWidth / PrintWidth;
    fYRatio := Printer.PageHeight / PrintHeight;
  end
   打印宽度小于预览宽度，后来加参数矫正，但字体改变后又不行了
   

Answer 3

帮帮我？！！！！！！！！！！！！