- 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=80481)
-- 发布时间：2016/1/24 11:08:00
-- 打印窗口piao据
设计了一个窗口，打印时没有边框，怎么设置增加边框呢
-- 发布时间：2016/1/24 11:08:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:审计说明.rar |
-- 发布时间：2016/1/24 11:18:00
--
1、你可以加一个背景图片；
2、你可以用线段控件来画线；
3、如果是textbox需要边框，参考
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
For Each c As Object In doc.body.children
If typeof c Is prt.RenderText Then
c.Style.Borders.All = New prt.Linedef(1, Color.Green)
End If
Next
doc.Preview()
-- 发布时间：2016/1/24 11:29:00
--
不是全部都需要边框，只是部分textbox需要边框，可以一个一个指定，怎么指定呢？
-- 发布时间：2016/1/24 11:35:00
--
测试了一下，不能根据名称指定。你只能根据填写的内容指定。
If c.Text Like "*123*" Then
End If
-- 发布时间：2016/1/24 11:49:00
--
还没有其他办法吗?内容是不固定的，所以这个方法行不通
-- 发布时间：2016/1/24 11:51:00
--
能不能不用排除法，如下格式
If c.Text not Like "*123*" Then
End If
-- 发布时间：2016/1/24 11:53:00
--
If c.Text Like "*123*" = False Then
End If
-- 发布时间：2016/1/24 11:53:00
--
没有其他方法了。
-- 发布时间：2016/1/24 12:32:00
--
For Each c As Object In doc.body.children
If typeof c Is prt.RenderText Then
If c.Text Like "审计归类*" = False OrElse c.Text Like "日期*" = False OrElse c.Text Like "编号*" = False Then
c.Style.Borders.All = New prt.Linedef(0.5, Color.black)
End If
End If
Next
这样写有什么问题吗？为什么还不行呢？ 上述代码意思是如果内容是审计归类、日期、编号就不要边框