[求助]选择打印功能 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]选择打印功能

共有2360人关注过本帖树形打印复制链接主题：[求助]选择打印功能

陌聲人

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：61 积分：480 威望：0 精华：0 注册：2016/7/20 8:54:00

[求助]选择打印功能 发帖心情

Post By：2016/8/8 21:16:00 [只看该作者]

我想从表中选定自己想要的数据行进行打印，其中隐藏的列不打印，列名打印的是标题。窗口设计的按钮代码应该如何设计。

下面是我之前用的打印代码，点击后会跳转到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()

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/8 21:24:00 [只看该作者]

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