【结贴】重发如何让Datagrid打印居中**

ZHOUX · 发表于 2009-1-20 10:33:42

不好意思，问题没有解决，请给出详细的代码，谢谢。
我已经按照前一个帖子给的说明，将代码加入到BeforeAction下面，但是不管用。请给出详细的代码解释。多谢。。。

zfang · 发表于 2009-1-20 10:50:27

比如，在窗体的OnShow事件中用下面代码
  DataGrid1.Exporter.PageInfo.UnitType := Business.System.TUnits.mmInch;

  //DataGrid1.Exporter.PageInfo.Orientation := TprinterOrientation.poLandscape;
  //一定要设置，否则横向或者纵向设置不起作用
  DataGrid1.Exporter.PageInfo.MarginLeft := 200;
  DataGrid1.Exporter.PageInfo.MarginTop := 1;

然后docviewbar中预览时，效果如下

ZHOUX · 发表于 2009-1-20 11:04:41

回楼上，按照你上面的做法做了，代码如下：
  DataGrid.Exporter.PageInfo.UnitType := Business.System.TUnits.mmInch;

  DataGrid.Exporter.PageInfo.Orientation := TprinterOrientation.poLandscape;
  //一定要设置，否则横向或者纵向设置不起作用
  //DataGrid.Exporter.PageInfo.MarginLeft := 200;
  DataGrid.Exporter.PageInfo.MarginTop := 1;
但是为什么这样的话，纸张类型变成自定义的了？？怎么设为A4啊？？？

zfang · 发表于 2009-1-20 11:09:44

DataGrid1.Exporter.PageInfo.MarginLeft := 200;
DataGrid1.Exporter.PageInfo.MarginTop := 1;
只要这两个代码就可以了
其他的不要。我只是顺手给你贴上了其他代码，别照搬嘛。

ZHOUX · 发表于 2009-1-20 11:13:19

不是啊。我的目的是要横向打印。现在倒是横向打印了，可是因为没有设置成A4的纸，所以预览的时候，内容出的还是不全哦。。。

zfang · 发表于 2009-1-20 11:19:25

这样试试

  //横向打印
  DataGrid1.Exporter.PageInfo.Orientation := TprinterOrientation.poLandscape;
  DataGrid1.Exporter.PageInfo.Width := 1123;  //必须
  DataGrid1.Exporter.PageInfo.Height := 794;  //必须

  DataGrid1.Exporter.PageInfo.MarginLeft := 200;
  DataGrid1.Exporter.PageInfo.MarginTop := 1;

ZHOUX · 发表于 2009-1-20 11:21:36

哦。这样是不是就是知道以A4纸为基础的长度和宽度是吧？？

ZHOUX · 发表于 2009-1-20 11:23:02

哦。这样是不是就是知道以A4纸为基础的长度和宽度是吧？？
OK。结贴吧。多谢啊。呵呵。

zfang · 发表于 2009-1-20 11:24:53

是的吧。

客气，结贴。

		自动登录	找回密码
密码			立即注册

【结贴】重发 如何让Datagrid打印居中**

【结贴】重发如何让Datagrid打印居中**