测试用套打代码:

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

要知道机打发票是带孔连体的,打印机默认纸张尺寸必须严格设置,这样才能保证连续打印时纸张进退正确..在这个前提下….问题出现.

一、发票实际尺寸为宽187毫米,高102毫米,代码宽和高必须大于此值(这里设为217/132)方可让全部套打数据预览显示在一页纸上,而这样的设置则导致套打数据字体整体缩小….. 若代码尺寸与实际尺寸相同则会出现分页.

这里有个不太好的解决办法,就是把打印机默认纸张也设置为比实际纸张大,这样套打数据不缩小且位置全部正确,但打印机进退纸则变得不准确了…..每打一张就要手动调整纸张…

二、帮助示例中的Landscape属性与Office Word的纵横向概念是不同的!!!它是以纸张边界长短来判断的..
.大家可以打开word看看纵横向是怎样的.

注意:发票尺寸宽大于高,当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