以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  piao据打印问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66286)
--  作者：flagcat
--  发布时间：2015/4/2 16:39:00
--  piao据打印问题
一个凭证表，一个明细 表，两者关联。希望用窗体打印方式打印。可以将凭证表数据绑定到标签控件上，问题是如何将明细表中数据绑定到窗体控件上？明细表中有多行数据！
--  作者：有点甜
--  发布时间：2015/4/2 16:40:00
--  
 直接放一个明细表进去。
--  作者：Bin
--  发布时间：2015/4/2 16:41:00
--  
表也是可以打印的,直接放个表控件
--  作者：flagcat
--  发布时间：2015/4/2 16:52:00
--  
直接放明细表进去后，金额部分如何分解？
--  作者：有点甜
--  发布时间：2015/4/2 16:53:00
--  
以下是引用flagcat在2015/4/2 16:52:00的发言：
直接放明细表进去后，金额部分如何分解？

 

什么意思，分解是什么意思？具体例子说明
--  作者：flagcat
--  发布时间：2015/4/2 21:35:00
--  
分解问题搞定了，就是分成元角分各个数字。我是增加了各个位数作为表的列，当金额输入完后用函数分解的。
现在的问题是，打印时，表格的边框不要打印出来 ，这个怎么设置？
--  作者：有点甜
--  发布时间：2015/4/2 21:50:00
--  

 打印代码这样写

 

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

For Each c As object In Doc.Body.Children
    If c.Gettype.name Like "*table*" Then
        c.Style.GridLines.All = Nothing \'将网格线类型设为默认类型
    End If
Next

doc.Preview()
--  作者：flagcat
--  发布时间：2015/4/2 22:28:00
--  
太感谢了！现在可以了
--  作者：jswjyjf
--  发布时间：2015/4/3 9:16:00
--  
如果行号和标题都不打印出来 代码怎么写 谢谢
--  作者：有点甜
--  发布时间：2015/4/3 9:20:00
--  

e.Form.Controls("Table1").Table.Grid.Rows(0).Height = 0
e.Form.Controls("Table1").Table.Grid.Cols(0).visible = False

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

For Each c As object In Doc.Body.Children
    If c.Gettype.name Like "*table*" Then
        c.Style.GridLines.All = Nothing \'将网格线类型设为默认类型
    End If
Next

doc.Preview()

e.Form.Controls("Table1").Table.Grid.Rows(0).Height = 20
e.Form.Controls("Table1").Table.Grid.Cols(0).visible = True