【搞定】如何让打印设置默认为自动匹配[问题]**

新来小职员

如何让打印设置默认为自动匹配?

atiger

怎么自动匹配法？

新来小职员

如图,想让表格文档自动适应要打印的纸张大小

atiger

不支持，要不主动点击这个按钮，要不就是代码来设置缩放比例了

alang

可以调用TDataSheet.GetSeemlyScale 方法
function GetSeemlyScale(AWidth: Longint): Longint;
这里的AWidth是指纸张宽度（以96DPI计算的象素数）
得到的结果，设置给 PageInfo 的 Scale 属性就可以了

代码如下：
var
  lWidth, lScale: Integer;
begin
  //设置纸张的单位是象素数
  TSheetDoc(DocView1.Doc).PageInfo.UnitType := Business.System.TUnits.mmPixel;
  //计算可打印宽度
  lWidth := TSheetDoc(DocView1.Doc).PageInfo.Width-TSheetDoc(DocView1.Doc).PageInfo.MarginLeft-TSheetDoc(DocView1.Doc).PageInfo.MarginRight;
  //按照宽度计算比例
  lScale := TSheetDoc(DocView1.Doc).Sheet.GetSeemlyScale(lWidth);
  //设置打印比例
  TSheetDoc(DocView1.Doc).PageInfo.Scale := lScale;
end;

新来小职员

"八年了~~~"
"别提他了......"
:confused:

感谢alang的回复，上面代码我先研究下先，如有问题我再另行发贴。