以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于控件打印的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72805)
--  作者：ap9709130
--  发布时间：2015/8/6 15:26:00
--  关于控件打印的问题
CheckBox控件能不能不把框打出来，只打出勾？
--  作者：大红袍
--  发布时间：2015/8/6 15:53:00
--  

打印按钮这样写

 

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim ndoc As new PrintDoc
For Each c As object In doc.Body.Children
    If c.Gettype.Name = "RenderInputCheckBox" Then
        Dim nt As new prt.RenderText
        If c.Checked Then
            nt.text = "√"
        Else
            nt.text = ""
        End If
        nt.x = c.x
        nt.y = c.y
        nt.text &= c.text
        nt.width = c.width
        nt.height = c.height
        ndoc.Body.Children.Add(nt)
    Else
        Dim nc = c.clone
        ndoc.Body.Children.Add(nc)
    End If
Next

ndoc.Preview()