主题：[求助]关于证书打印的问题

再次请教证书打印

上述代码改成预览执行时，每次只显示一页，给预览带来很大的麻烦，经多次修改仍然不能解决。

请专家指点

如何在预览时能一次性显示所有的页

 

期待解决9楼的问题，代码如何改？！！！

你这个的解决不太容易，需要重新编写代码，把内容一个一个地粘贴进去。

使用之前，必须添加引用一下microsoft.xxxx.word.dll，然后起一个别名才能正常使用。

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

点击浏览该文件:操作word.zip

 如下：

此主题相关图片如下：abc.gif

项目打开提示出错，好像是引用外部文件有问题，谢谢仔你把它发过来.。如果需要加装软件读取它，请告知！谢谢！！！

 嗯嗯上传错了文件，已经重新打包上传了。

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

点击浏览该文件:操作word.zip

好的。谢谢！待会儿我试试。

请专家指点：

能不能像类似下面的方法活得table中符合条件的行，并定义一个变量来接受他。

Dim drs As List (of DataRow) = DataTables("雷鸟成绩记录表").Select("中小学 = '" & zxx.Text & "'","时间排序 desc ,成绩2 Desc")

上述代码来源于：

Dim zxx As WinForm.ComboBox = e.Form.Controls("中小学1")
Dim vals() As Double = {0.08,0.18,0.3}
Dim cnt As Integer = DataTables("雷鸟成绩记录表").Select("中小学 = '" & zxx.Text & "'").Count '得到总行数
Dim drs As List (of DataRow) = DataTables("雷鸟成绩记录表").Select("中小学 = '" & zxx.Text & "'","时间排序 desc ,成绩2 Desc")
'Tables("雷鸟成绩记录表").Sort="时间排序 desc ,成绩2 Desc"
'Dim drs As List (of Row) = Tables("雷鸟成绩记录表").Filter("中小学 = '" & zxx.Text & "'")

For i As Integer = 0 To drs.Count - 1
    Dim v As Double  = i /cnt  '计算位置比例
    If v > vals(2) Then
        drs(i)("奖项") = ""
    ElseIf v > vals(1) Then
        drs(i)("奖项") = "三等奖"
    ElseIf v > vals(0) Then
        drs(i)("奖项") = "二等奖"
    Else   drs(i)("奖项") = "一等奖"
    End If
Next

 

上述代码指向datatable，想改变排序必须重新写代码（个人想法），给成绩录取带来不便。

 

期待中。。。。。

 为什么改变排序需要重设代码？

Dim drs As List (of DataRow) = DataTables("雷鸟成绩记录表").Select("中小学 = '" & zxx.Text & "'", Tables("xxx").Sort)