Grid++Report 怎么将VB DataGrid1里的数据显示出来啊。

来源：百度知道 编辑：UC知道 时间：2024/05/09 17:48:52
我想做一个报表，将DataGrid1里的数据打印出来。听说Grid++Report挺好用的，但是我不会用。谁能详细一点告诉我啊。DataGrid1里的数是从数据库中读出来的，而且数是随着查询条件的不同而改变的。
或者给我一个小例子也行，我的邮箱是wrm20080403@sohu.com
非常感谢各位的帮助

打印的话 首先要设置好表格模版！
具体的一两句也说不清楚。
下面是个小例子，仔细研究下吧。

Private Sub cmdReport_Click()

On Error GoTo errExcel

Dim i As Integer, j As Integer
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim File1, File2 As String

File1 = App.Path & "\报表\模板报表\模板.xls"
File2 = App.Path & "\报表\明细表.xls"
FileCopy File1, File2

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(File2)
Set xlSheet = xlBook.Worksheets(1)

Dim reUnit As Recordset
Set reUnit = dbYY.OpenRecordset("SELECT unit FROM admin")
xlSheet.Cells(4, 1) = "编制单位：" & reUnit(0)
reUnit.Close

Prog1.Min = 0
Prog1.Max = Grid1.Rows * 2
Prog1.Visible = True