主题：文章套打

代码放在按钮中，另配合文件
Dim tbl As Table = Tables("成绩表")
Dim n As Integer= (tbl.BottomRow-tbl.TopRow)+1 Mod 2
n = n Mod 2
Dim m As Integer
For i as Integer = tbl.TopRow To tbl.BottomRow
    If n=1 AndAlso i=tbl.BottomRow Then
        Dim rp As New RtfPrinter("D:\狐表文件\奖__状\1奖  状.rtf")
        rp.Replace("{班级}", Tables("成绩表")(i,"班级") &"班 ")
        rp.Replace("{姓名}",Tables("成绩表")(i,"姓名") & ":")
        rp.Preview()
    Else
        Dim rp As New RtfPrinter("D:\狐表文件\奖__状\奖  状.rtf")
        rp.Replace("{班级}", Tables("成绩表")(i,"班级") &"班 ")
        rp.Replace("{姓名}",Tables("成绩表")(i,"姓名") & ":")
       
        rp.Replace("{班级1}", Tables("成绩表")(i+1,"班级") &"班 ")
        rp.Replace("{姓名1}",Tables("成绩表")(i+1,"姓名") & ":")
        rp.Preview()
    End If
    i=i+1
Next

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文件夹.rar

谢谢老师指点，直到今天，我才真正掌握了文章套打。

一次性预览可能做不到，呵呵

不预览关系不大，将23楼的预览改为直接打印就可悄然打印了，只不过是不符合人们习惯---先预览再打印。
若是能做到先预览后打印，则该设计就比“邮件合并”方便多了。

悄然打印始终不习惯，顶起来，各位专家再研究、研究，看有无变通办法？

谢谢 各位 解决了困扰我的问题啊