主题：关于控件打印的问题

打印按钮这样写

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