我想从表中选定自己想要的数据行进行打印,其中隐藏的列不打印,列名打印的是标题。窗口设计的按钮代码应该如何设计。
下面是我之前用的打印代码,点击后会跳转到Excel,但是只能筛选后才能打印想要的(原意想实现选那几行就打印哪几行),而且隐藏的列还是会打印,列名也不是标题(因为表示数据库的,只能修改标题。)
请问如何修改好,或者用新的别的代码。
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
For c As Integer = 0 To dt.Cols.Count -1
Sheet(0, c).Value = dt.Cols(c).Name
Next
For r As Integer = 0 To dt.Rows.Count - 1
For c As Integer = 0 To dt.Cols.Count -1
Sheet(r +1, c).Value = dt.rows(r)(c)
Next
Next
Book.Save("C:\Users\asus\Desktop\临时\test.xls")
Dim Proc As New Process
Proc.File = "C:\Users\asus\Desktop\临时\test.xls"
Proc.Start()