主题：[求助]选择打印功能

Dim dt As Table = CurrentTable
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As Xls.Style = Book.NewStyle
Style.BackColor = Color.Red
Dim i As Integer = 0
For c As Integer = 0 To dt.Cols.Count -1
    If dt.Cols(c).Visible Then
        Sheet(0, i).Value = dt.Cols(c).Caption
        i = i + 1
    End If
Next

i = 1
For r As Integer = dt.TopPosition To dt.BottomPosition
    Dim j As Integer = 0
    For c As Integer = 0 To dt.Cols.Count -1
        If dt.Cols(c).Visible Then
            Sheet(i, j).Value = dt.rows(r)(c)
            j += 1
        End If
    Next
    i += 1
Next
Book.Save("C:\Users\asus\Desktop\临时\test.xls")
Dim Proc As New Process
Proc.File = "C:\Users\asus\Desktop\临时\test.xls"
Proc.Start()