Foxtable(狐表)用户栏目专家坐堂 → 关于打印数据


  共有2367人关注过本帖树形打印复制链接

主题:关于打印数据

帅哥哟,离线,有人找我吗?
裴保民
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2017/12/9 9:31:00 [只看该作者]

蓝老师是不是15楼的代码都要改?

 回到顶部
帅哥,在线噢!
有点蓝
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/12/9 9:32:00 [只看该作者]

是的

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2017/12/9 19:17:00 [只看该作者]

经过修改代码运行后发现和以前一样

 

 

 

 

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:窗体打印.rar


经过测试运行后发现:
(1)如果列表框值全选和全不选打印的列都一样,都是全部列,这样设置如果列表框未选l列时,单击打印按钮不执行打印操作呢?
(2)怎么设置不打印表的行号呢?
[此贴子已经被作者于2017/12/10 15:25:21编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/10 16:39:00 [只看该作者]

Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
Dim tbl As WinForm.Table = e.form.controls("Table1")
tbl.PrintRowNumber = False '不打印行号
Dim t As Table = tbl.Table
Dim str As String = t.getColVisibleWidth
If lieming.CheckedIndices.Count > 0 Then
    For Each c As Col In t.Cols
        c.Visible = False
    Next
    For Each idx As Integer In lieming.CheckedIndices
        t.cols(lieming.Items(idx)).Visible = True
    Next
Else
    msgbox("不能所有列都不选")
    Return
End If
e.Form.visible = False '隐藏
Dim doc As PrintDoc = e.Form.GernatePrintDoc(e.Form.Controls("tiaozhengliekuanduGroupBox"))
doc.Preview
t.SetColVisibleWidth(str)
e.Form.visible = True '显示

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2017/12/10 22:47:00 [只看该作者]

单击导出按钮我写如下代码:如果不选择列时,怎么不判断呢?

Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If lieming.CheckedIndices.Count < 0 Then
    msgbox("不能所有列都不选")
    Return
Else
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        If sjdcxzb="POS机库存资料表" Then
            Dim post As Table = forms("pos机信息修改窗体").Controls("Table1").Table
            Dim str As String = post.getColVisibleWidth
            If lieming.value > "" Then
                For Each c As Col In post.Cols
                    c.visible = False
                Next
                For Each s As String In lieming.value.split(",")
                    post.cols(s).Visible = True
                Next
            End If
            forms("pos机信息修改窗体").Controls("Table1").Table .SaveExcel(dlg.FileName, "POS机库存资料")
            post.SetColVisibleWidth(str)
end if


[此贴子已经被作者于2017/12/10 22:47:40编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/10 23:30:00 [只看该作者]

If lieming.CheckedIndices.Count = 0 Then
    msgbox("不能所有列都不选")
    Return

 回到顶部
总数 26 上一页 1 2 3