如何将DataGrid中的数据打印出来
就是做个打印的按钮,点一下打印DataGrid中的数据,但不知道怎么做,望知道的详细说一下~~~ --------------------编程问答-------------------- 如果不行,就把DATAGRID的数据导出成EXCEL,这个比较容易. --------------------编程问答-------------------- YiZhiNet(九斤半) ( ) 信誉:100 Blog 2007-1-2 1:07:10 得分: 0
如果不行,就把DATAGRID的数据导出成EXCEL,
这个比较容易.
请问应该怎么导出到Excel??? --------------------编程问答-------------------- JastPrint服务 --------------------编程问答-------------------- Public Sub ExportToExcel()
If DataGrid1.VisibleRowCount > 0 Then
Try
Dim ds As New DataSet
ds = DataGrid1.DataSource
Dim i, j As Integer
Dim rows As Integer = ds.Tables(0).Rows.Count
Dim cols As Integer = ds.Tables(0).Columns.Count
Dim DataArray(rows - 1, cols - 1) As String
For i = 0 To rows - 1
For j = 0 To cols - 1
If ds.Tables(0).Rows(i).Item(j) Is System.DBNull.Value Then
Else
DataArray(i, j) = ds.Tables(0).Rows(i).Item(j)
End If
Next
Next
Dim myExcel As Excel.Application = New Excel.Application
myExcel.Application.Workbooks.Add(True)
myExcel.Visible = True
For j = 0 To cols - 1
myExcel.Cells(1, j + 1) = ds.Tables(0).Columns(j).ColumnName
Next
myExcel.Range("A2").Resize(rows, cols).Value = DataArray
Catch exp As Exception
MessageBox.Show("数据导出失败!请查看是否已经安装了Excel", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
Else
MessageBox.Show("没有数据!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
--------------------编程问答-------------------- Dim myExcel As Excel.Application = New Excel.Application
请问为什么上句中的“Excel.Application”会报错啊??系统提示我是未定义类型。。 --------------------编程问答-------------------- 你装了Excel吗?或者装了没有引用! --------------------编程问答-------------------- LZ需要引用的.在文件头部引用EXCEL --------------------编程问答-------------------- http://blog.csdn.net/gaobochina/archive/2007/03/26/1541891.aspx --------------------编程问答-------------------- LZ需要引用的.在文件头部引用EXCEL
___________________
请问怎么引用啊????? --------------------编程问答-------------------- 在"解决方案管理器"中添加应用 --------------------编程问答-------------------- 可参考一下
http://www.skycn.com/soft/46486.html --------------------编程问答-------------------- 自己写的空间 存成XPS,然后打印!
补充:.NET技术 , VB.NET