以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  打印当前行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152875)

--  作者:15666282205
--  发布时间:2020/7/24 10:47:00
--  打印当前行
老师,我设计的打印,以前是根据逻辑列选中的就打印,现在想改为不按逻辑列,按光标所在的当前行,只打印当前行,请指教。
Dim Filter As String
Filter = Filter & "打印 = True"
If Filter > "" Then
    Tables("打印现金日记账_table1").Filter = Filter
End If

--  作者:有点蓝
--  发布时间:2020/7/24 11:23:00
--  
去掉execl模板里的<ALL>即可
--  作者:15666282205
--  发布时间:2020/7/24 12:04:00
--  
老师,我没用模板,只是选其中的一行打印。以前是根据逻辑列,选中的就打印,现在想改为不按逻辑列,光标在哪一行就打印哪一行,也就是当前行。


--  作者:有点蓝
--  发布时间:2020/7/24 12:20:00
--  
什么方式的打印?

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

--  作者:15666282205
--  发布时间:2020/7/24 14:10:00
--  
老师,这个代码不大行。我设计的方法是:在新窗口建立一个副本,只显示主表的当前行,然后打印这一行。现在的问题是,怎么让副本只显示主表里的当前行。
--  作者:15666282205
--  发布时间:2020/7/24 14:17:00
--  
我想起来了,也可以只用文本框关联来实现,我试试


--  作者:有点蓝
--  发布时间:2020/7/24 14:20:00
--  
Tables("打印现金日记账_table1").Filter = "_Identify =" & Tables("某主表").current("_Identify")
--  作者:15666282205
--  发布时间:2020/7/24 14:34:00
--  
可以解决,一个缺点就是,关联到金额时,打印出来不默认两位小数,稍微不大规范。如果您有好方法请指教。
--  作者:有点蓝
--  发布时间:2020/7/24 14:39:00
--  
怎么做的打印?