标题：专业报表单据套打BUG测试报告
测试用套打代码:
Dim doc As New PrintDoc
Dim rx As prt.RenderText
Dim x As Integer = 0
Dim y As Integer = 0
doc.PageSetting.PaperKind = 0
doc.PageSetting.Width = 217
doc.PageSetting.Height = 132
doc.PageSetting.Landscape = true
Doc.PageSetting.LeftMargin = 0
Doc.PageSetting.RightMargin = 0
Doc.PageSetting.TopMargin = 0
Doc.PageSetting.BottomMargin = 0
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)
中间省略…………
Doc.Print()
测试一:
Dim doc As New PrintDoc
Dim rx As prt.RenderText
Dim x As Integer = 0
Dim y As Integer = 0
doc.PageSetting.PaperKind = 0
doc.PageSetting.Width = 217
doc.PageSetting.Height = 132
doc.PageSetting.Landscape = true
要知道机打fa piao是带孔连体的,打印机默认纸张尺寸必须严格设置,这样才能保证连续打印时纸张进退正确..在这个前提下….问题出现.
此主题相关图片如下：001.jpg
一、fa piao实际尺寸为宽187毫米,高102毫米,代码宽和高必须大于此值(这里设为217/132)方可让全部套打数据预览显示在一页纸上,而这样的设置则导致套打数据字体整体缩小….. 若代码尺寸与实际尺寸相同则会出现分页.
这里有个不太好的解决办法,就是把打印机默认纸张也设置为比实际纸张大,这样套打数据不缩小且位置全部正确,但打印机进退纸则变得不准确了…..每打一张就要手动调整纸张…
二、帮助示例中的Landscape属性与Office Word的纵横向概念是不同的!!!它是以纸张边界长短来判断的..
.大家可以打开word看看纵横向是怎样的.
注意:fa piao尺寸宽大于高,当Landscape属性为false纵向打印时页面如下图:
此主题相关图片如下：005.jpg
横向打印
只需将Landscape属性设为True，即可横向打印。
示例
Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.Landscape = True '横向打印
doc.Preview() '预览
测试二: 专业报表代码设置页边距好象不起作用,按下面代码打印出来依然出现整体缩小现象……感觉系统有个隐藏页边距.
Dim doc As New PrintDoc
Dim rx As prt.RenderText
Dim x As Integer = 0
Dim y As Integer = 0
doc.PageSetting.PaperKind = 0
doc.PageSetting.Width = 187
doc.PageSetting.Height = 102
doc.PageSetting.Landscape = true
Doc.PageSetting.LeftMargin = 0
Doc.PageSetting.RightMargin = 0
Doc.PageSetting.TopMargin = 0
Doc.PageSetting.BottomMargin = 0
下图其中一张是正常打印但要手动调整纸张的,另一张标记为2的是整体缩小但不用手动调整纸张的..
此主题相关图片如下：20090204(001).jpg
此主题相关图片如下：20090204(002).jpg