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

收藏 · 2014-10-29 17:21 上传

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

Alice · Alice

回复 1楼好难注册的帖子

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

好难注册 · 好难注册

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

Alice · Alice

回复 3楼好难注册的帖子

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

好难注册 · 好难注册

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

Alice · Alice

回复 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.

好难注册 · 好难注册

好了，可以实现了，真的非常感谢！

Alice · Alice

回复 7楼好难注册的帖子

好的。谢谢你的反馈。
此贴完结。如果有新问题欢迎开新帖讨论。

		自动登录	找回密码
密码			立即注册

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

7 个回复

浏览过的版块

活字格认证

微信认证勋章

元老葡萄