Foxtable(狐表)用户栏目专家坐堂 → 打印当前行


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

主题:打印当前行

帅哥哟,离线,有人找我吗?
15666282205
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:495 积分:3918 威望:0 精华:0 注册:2019/1/13 10:12:00
打印当前行  发帖心情 Post By:2020/7/24 10:47:00 [只看该作者]

老师,我设计的打印,以前是根据逻辑列选中的就打印,现在想改为不按逻辑列,按光标所在的当前行,只打印当前行,请指教。
Dim Filter As String
Filter = Filter & "打印 = True"
If Filter > "" Then
    Tables("打印现金日记账_table1").Filter = Filter
End If

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


加好友 发短信
等级:超级版主 帖子:107744 积分:548059 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/24 11:23:00 [只看该作者]

去掉execl模板里的<ALL>即可

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


加好友 发短信
等级:一尾狐 帖子:495 积分:3918 威望:0 精华:0 注册:2019/1/13 10:12:00
  发帖心情 Post By:2020/7/24 12:04:00 [只看该作者]

老师,我没用模板,只是选其中的一行打印。以前是根据逻辑列,选中的就打印,现在想改为不按逻辑列,光标在哪一行就打印哪一行,也就是当前行。


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


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

什么方式的打印?

Tables("打印现金日记账_table1").Filter = "_Identify =" & Tables("打印现金日记账_table1").current("_Identify")

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


加好友 发短信
等级:一尾狐 帖子:495 积分:3918 威望:0 精华:0 注册:2019/1/13 10:12:00
  发帖心情 Post By:2020/7/24 14:10:00 [只看该作者]

老师,这个代码不大行。我设计的方法是:在新窗口建立一个副本,只显示主表的当前行,然后打印这一行。现在的问题是,怎么让副本只显示主表里的当前行。

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


加好友 发短信
等级:一尾狐 帖子:495 积分:3918 威望:0 精华:0 注册:2019/1/13 10:12:00
  发帖心情 Post By:2020/7/24 14:17:00 [只看该作者]

我想起来了,也可以只用文本框关联来实现,我试试


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


加好友 发短信
等级:超级版主 帖子:107744 积分:548059 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/24 14:20:00 [只看该作者]

Tables("打印现金日记账_table1").Filter = "_Identify =" & Tables("某主表").current("_Identify")

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


加好友 发短信
等级:一尾狐 帖子:495 积分:3918 威望:0 精华:0 注册:2019/1/13 10:12:00
  发帖心情 Post By:2020/7/24 14:34:00 [只看该作者]

可以解决,一个缺点就是,关联到金额时,打印出来不默认两位小数,稍微不大规范。如果您有好方法请指教。

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


加好友 发短信
等级:超级版主 帖子:107744 积分:548059 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/24 14:39:00 [只看该作者]

怎么做的打印?

 回到顶部