标题：★老爹,专业报表套打piao据问题有结果了吗?

我的套打代码如下:

Dim doc As New PrintDoc
Dim rx As prt.RenderText
doc.PageSetting.Landscape = false
doc.PageSetting.PaperKind = 0
doc.PageSetting.Width = 187
doc.PageSetting.Height = 102
Dim x As Integer = tables("打印参数")(0)("X参数")
Dim y As Integer = tables("打印参数")(0)("Y参数")
Dim CurRow As Row = Tables("住院收费").Current

rx = new prt.RenderText
rx.Text = CurRow("住院号")
rx.x = 25 + x
rx.y = 17 + y
doc.body.Children.Add(rx)

Dim d As date = CurRow("结账日期")
rx = new prt.RenderText
rx.Text = d.Year
rx.x = 67 + x
rx.y = 17 + y
doc.body.Children.Add(rx)

...............中间省略..

rx = new prt.RenderText
rx.Text = CUNumber(GetDigit(m,5))
rx.x = 45 + x
rx.y = 74 + y
doc.body.Children.Add(rx)

Doc.Preview()

打印预览里正常显示纸张是纵向的,但打印出来时却变成了横向....


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


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

上面第二张图无论设置横向纵向打出来都是横向的...

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


另外,当报表代码如下时,会自动把整体版面缩小打印.....并不是自己测量出来的位置,全部乱套....并非所见即所得....
Dim doc As New PrintDoc
Dim rx As prt.RenderText
doc.PageSetting.Landscape = true
doc.PageSetting.PaperKind = 0
doc.PageSetting.Width = 187
doc.PageSetting.Height = 102
Doc.PageSetting.LeftMargin = 0
Doc.PageSetting.RightMargin = 0
Doc.PageSetting.TopMargin = 0
Doc.PageSetting.BottomMargin = 0

有，是print方法

doc.print()

..........................

我看看

你明白我的意思吗?
就是上面第二张图无论设置横向纵向打出来都是横向的...

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

我明白

我的电脑没有安装打印机，还不好测试。

我倒

什么时候增加一个类似易表的以piao据扫描图为基准设置报表的功能?