我写了一个专业打印模板。想实现根据行的内容来连续打印
Dim doc As New PrintDoc '定义一个报表
Doc.PageSetting.Height=40
Doc.PageSetting.Width=60
doc.PageSetting.TopMargin = 1
doc.PageSetting.LeftMargin = 1
doc.PageSetting.BottomMargin = 1
doc.PageSetting.RightMargin = 1
Dim t As Table=Tables("销售明细")
Dim i As Integer=t.Rows.count-1
For i=0 To i
Dim rt As New prt.RenderTable() '
rt.Style.GridLines.All = New prt.LineDef
Dim rm As New prt.RenderImage()
doc.Body.Children.Add(rt)
‘’这里有一个表格模板，想根据内容来填充
next
Doc.Preview()
循环的大概的结构是这样，但是显示出来的效果是所有行的内容覆盖在一个页面上，我想实现的效果是一个数据填充一个页面
加好友 
发短信
Post By：2018/11/13 10:50:00 [只看该作者]
