好难注册 发表于 2014-10-22 09:03:00

控件表格中的边框在打印时要不显示怎样设置

用控件时遇到一个问题在有表格的病历中,如果有设这个表格的下边框,现在想在打印时把这个边框去除不打印出来。但在正常显示时是要显示的。所以要在代码中修改表格的边框隐藏。如附件图片,请教一下要怎样设定用哪个函数或属性(我们用的是PB开发的),谢谢!!!

Alice 发表于 2014-10-22 10:29:00

回复 1楼好难注册的帖子

打印默认是所见即所得,这个需要自己写代码控制。
基本思路:
在打印的时候将下边框隐藏,然后打印,打印完成后再恢复原样。

好难注册 发表于 2014-10-24 08:05:00

思路我知道,现在的问题就是怎样在代码中设定这个下边框隐藏。
要请教用哪个函数或属性请告知。谢谢!!!

Alice 发表于 2014-10-24 09:55:00

回复 3楼好难注册的帖子

我这边测试的版本是Tx TextControl21.0
环境是VB6.0
可以使用TXTextControl1.TableDeleteLines删除表格里选择的线或是特定位置的线。
很抱歉我这边没有PB的开发工具,所以是在VB6.0下验证的。

好难注册 发表于 2014-10-24 13:57:00

TXTextControl1.TableDeleteLines 这个我有试过,效果是把这个表格行删除,而不是指边框线。
还有其他函数或属性吗?

Alice 发表于 2014-10-24 17:52:00

回复 5楼好难注册的帖子

你的意思是想保留Cell但是不想画cell之间的线?
那么可以使用:
TXTextControl.TableCellAttribute方法,里面的Attribute的类型可以传递参数为:txTableCellBottomBorderWidth。[Value】设置为0.
语法:TXTextControl.TableCellAttribute(TableId, Row, Column, Attribute) [= value]

根据你的需求,需要将每个Cell的下边框宽度设置为0.
使用这个方法需要注意的是:它只对Border起作用,对Table的Gridline是无效的。若是你的Table上画的有Gridline,TableGridLines设置为False,然后每个cell画border,再用这个方法将你的Border下线设置为0.

好难注册 发表于 2014-10-25 10:02:00

好了,可以实现了,真的非常感谢!:hjyzw:

Alice 发表于 2014-10-27 13:56:00

回复 7楼好难注册的帖子

好的。谢谢你的反馈。
此贴完结。如果有新问题欢迎开新帖讨论。
http://gcdn.gcpowertools.com.cn/attachment.aspx?attachmentid=10062
页: [1]
查看完整版本: 控件表格中的边框在打印时要不显示怎样设置