vb用excel实现完美打印

‘RegisterFee.xls就是一个模版文件

strDestination = App.Path & "\Excels\Temp.xls"

FileCopy strSource, strDestination

‘将模版文件拷贝到一个临时文件

---- 三. 生成工作表内容

---- 有了上述两步工作的铺垫，我们下面接着就只要根据（表一）的格式给各单元格赋值了。如：

datPrimaryRS.Recordset.MoveFirst

‘datPrimaryRS为Data控件

If IsNull(datPrimaryRS.Recordset!姓名) = False Then

xlSheet.Cells(4, 2) = datPrimaryRS.Recordset!姓名

End If

If IsNull(datPrimaryRS.Recordset!性别) = False Then

xlSheet.Cells(4, 4) = datPrimaryRS.Recordset!性别

End If

If IsNull(datPrimaryRS.Recordset!民族) = False Then

xlSheet.Cells(4, 6) = datPrimaryRS.Recordset!民族

End If

………………

四. 打印报表

生成了工作表后，就可以对EXCEL发出打印指令了。

注意在执行打印操作之前应该对EXCEL临时文件执行一次保存操作，以免在退出应用程序后EXCEL还提示用户是否保存已修改的文件，让用户觉得莫名其妙。如下语句：

xlBook.Save ''保存文件

xlSheet.PrintOut ''执行打印

xlApp.Quit ''退出EXCEL

至此读者应该看到，我们设计的报表打印是通过EXCEL程序来后台实现的。用户根本看不到具体过程，他们只看到一张张漂亮的报表轻易地被打印出来了。