主题：[求助]如何设置才能正确打印？

e.Form.Page.Width = 212 '纸张宽度为100毫米
e.Form.Page.Height = 140 '纸张高度为120毫米
e.Form.Page.LeftMargin = 3
e.Form.Page.Landscape = True '横向打印
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Doc.PageFooter = rt
doc.AutoRotate = False '禁止自动旋转打印内容

 

doc.Print（）  直接打印的话 怎么设置都是A4纸
doc.Preview()   用预览 不管上面设置是横向 还是禁止旋转 都不能按照212*140大小 打印 而是竖着在A4大小上打印

 

 

 

 

奇怪，测试了下，预览打印是可以按给定尺寸打出来（用虚拟打印机dopdf 及 window7自带的xps打印机）。

我也有一个问题:

窗口中有一个PictureBox1控件,

打印预览代码:

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Doc.PageSetting.Landscape = True
doc.Preview()

打印代码:

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Doc.PageSetting.Landscape = True
doc.Print

结果:

打印预览可以正确的横向显示

打印却竖向显示,只打印了窗口的一部分.

自定义纸张的话，这个是多余的吧：

Doc.PageSetting.Landscape = True

 

这个我也不太清楚怎么回事，我记得老唐遇到过这个问题，后来似乎解决了，我问问。

 

看来大家都遇到过类似问题，请狐爸尽快查查。

Doc.PageSetting.Landscape = True  这一句有没有都不影响结果。

顶

关于自定义纸张的问题 上次我差点把电脑给扔了.

呵呵 老朱你最后解决了吧