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

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()

不行，试试这样处理

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77363&skin=0

全局代码，要写

Public ps As New List(Of String)

http://www.foxtable.com/webhelp/scr/1842.htm

 没办法，相互是冲突的。