主题：打印窗口piao据

设计了一个窗口，打印时没有边框，怎么设置增加边框呢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:审计说明.rar

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()

不是全部都需要边框，只是部分textbox需要边框，可以一个一个指定，怎么指定呢？

测试了一下，不能根据名称指定。你只能根据填写的内容指定。

 

If c.Text Like "*123*" Then

 

End If

还没有其他办法吗?内容是不固定的，所以这个方法行不通

能不能不用排除法，如下格式

If c.Text  not Like "*123*" Then

 

End If

 

If c.Text Like "*123*" = False Then

 

End If

没有其他方法了。

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

 

这样写有什么问题吗？为什么还不行呢？ 上述代码意思是如果内容是审计归类、日期、编号就不要边框