【结贴】横向打印问题**

lotus · 发表于 2008-8-6 16:26:36

在论坛里面搜了下相关代码
我是一个表格文档，放在一个窗体里面，在窗体onshow事件里面写了如下代码：TSheetPageInfo(TSheetDoc(DocView1.Doc).PageInfo).Orientation := TprinterOrientation.poLandscape; //纸张横向打印

打印预览的时候，方向默认的填写是“横向”，但是预览的时候，文档却是纵向显示出来的。我预览时改成“纵向”，这个时候文档显示才正常是怎么回事呢？

lotus · 发表于 2008-8-6 16:38:49

在论坛里面搜了下相关代码
我是一个表格文档，放在一个窗体里面，在窗体onshow事件里面写了如下代码：TSheetPageInfo(TSheetDoc(DocView1.Doc).PageInfo).Orientation := TprinterOrientation.poLandscape; //纸张横向打印

打印预览的时候，方向默认的填写是“横向”，但是预览的时候，文档却是纵向显示出来的。我预览时改成“纵向”，这个时候文档显示才正常是怎么回事呢？

gaihl · 发表于 2008-8-6 16:45:01

手动设置横向后，还要重新设置一下相应的高度和宽度
  TSheetPageInfo(TSheetDoc(DocViewYWXX10_BGWD1.Doc).PageInfo).Orientation := TprinterOrientation.poLandscape; //纸张横向打印
  TSheetPageInfo(TSheetDoc(DocViewYWXX10_BGWD1.Doc).PageInfo).Width := 297;
  TSheetPageInfo(TSheetDoc(DocViewYWXX10_BGWD1.Doc).PageInfo).Height := 210;

gaihl · 发表于 2008-8-6 16:56:07

手动设置横向后，还要重新设置一下相应的高度和宽度
  TSheetPageInfo(TSheetDoc(DocViewYWXX10_BGWD1.Doc).PageInfo).Orientation := TprinterOrientation.poLandscape; //纸张横向打印
  TSheetPageInfo(TSheetDoc(DocViewYWXX10_BGWD1.Doc).PageInfo).Width := 297;
  TSheetPageInfo(TSheetDoc(DocViewYWXX10_BGWD1.Doc).PageInfo).Height := 210;

lotus · 发表于 2008-8-6 16:58:00

这样设置了为什么预览的时候高和宽会变呢？缩小了

lotus · 发表于 2008-8-6 17:02:26

预览时什么设置都没操作，

gaihl · 发表于 2008-8-6 17:05:49

是你设置的高度值会变吗？　还是看着预览图小了？

gaihl · 发表于 2008-8-6 17:09:04

我的没有这现象，你的是多少版本

lotus · 发表于 2008-8-6 17:10:28

3068 的版本，我设置的高度为210 ，宽度为297，预览的时候这个值就变了

gaihl · 发表于 2008-8-6 17:23:00

这样转换试一下：
297 * 1000 div 265
210 * 1000 div 265

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