How to print out the data in the DataGrid

kiraasuha

Just make a print button, click to print the data in the DataGrid, but I don't know how to do it, I hope to know the details ~~~

wkiss007

If not, export the data of DATAGRID to EXCEL,

This one is easier.

besttood

wkiss007


   
If not, export the data of DATAGRID to EXCEL,

This one is easier.

  

How should I export to Excel???

wjw_beyond

JastPrint service

bitliuwei

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("Data export failed! Please check whether Excel has been installed", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
            End Try
        Else
            MessageBox.Show("No data!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub

besttood

Dim myExcel As Excel.Application = New Excel.Application

Why does the "Excel.Application" in the previous sentence report an error? ? The system prompts me that the type is not defined. .

haha01

Have you installed Excel? Or installed without references!

r1r2super

LZ needs to be quoted. Quote EXCEL in the header of the file

jinx556

Http://blog.CSDN.net/conduct 556/archive/2007/03/26/1541891.aspx

besttood

LZ needs to be quoted. Quote EXCEL in the header of the file

___________________


How do you cite? ? ? ? ?