标题：老爹,5号更新打印初步测试结果....好象更郁闷了....

既然是自定义纸张，何必加上：

doc.PageSetting.Landscape = true

这一行删除，否则导致宽度和高度对调！

老爹您看看10楼的测试,测试用的代码如下....
Dim doc As New PrintDoc
Dim rx As prt.RenderText
Dim x As Integer = tables("打印参数")(0)("X参数")
Dim y As Integer = tables("打印参数")(0)("Y参数")
Dim a As Integer = tables("纸张参数")(0)("A参数")
Dim b As Integer = tables("纸张参数")(0)("B参数")
doc.PageSetting.Width = a
doc.PageSetting.Height = b

不管是打印还是预览，我这边都正常

您用的是什么打印机?俺的是针式打印机... 基本上fa piao打印都得用这个吧...您找个同型号的试试?

激光

我无语了...换上HP LaserJet 1018激光打印机...出来是这样的(下图..)...不但整体转90度,而且是从预览的右边打起,整体还缩小....如果把红色部分删除,则正常.....
测试代码...
Dim doc As New PrintDoc
Dim rx As prt.RenderText
Dim x As Integer = tables("打印参数")(0)("X参数")
Dim y As Integer = tables("打印参数")(0)("Y参数")

doc.PageSetting.Width = 187
doc.PageSetting.Height = 102
Doc.PageSetting.LeftMargin = 0
Doc.PageSetting.RightMargin = 0
Doc.PageSetting.TopMargin = 0
Doc.PageSetting.BottomMargin = 0

此主题相关图片如下：20090206.jpg

你不是加上了这个吗？

doc.PageSetting.Landscape = true

这句代码就是要整体旋转嘛。

您看16楼的测试代码我有加那句吗?

并且那页边距的设置根本没用...全部设为0.还是会有隐藏的页边距..从而造成整体缩小...
Doc.PageSetting.LeftMargin = 0
Doc.PageSetting.RightMargin = 0
Doc.PageSetting.TopMargin = 0
Doc.PageSetting.BottomMargin = 0

留意打印机的属性设置，也许你默认设置为横向了！


此主题相关图片如下：print.jpg

好像自定义纸张的高度必须大过宽度，否则会自动对调，我看看是怎么回事。