主题：[求助]打印日期格式问题？

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

Dim d As Date

For Each c As object In Doc.Body.Children

    If c.Gettype.Name Like "*Table*" Then

        Dim t As prt.RenderTable = c

        t.Rows(0).Height = 10

        t.Rows(0).Style.BackColor = Color.white

        t.Rows(0).Style.Font = New Font("宋体", 12, FontStyle.Bold) '设置字体

        For i As Integer = 0 To t.Cols.Count - 1

            t.Cells(0,i).Style.TextAlignHorz = prt.AlignHorzEnum.Center

        Next

    Else If c.Gettype.name Like "*Text*" AndAlso Date.TryParse(c.text,d) Then

        c.text = Format(cdate(c.text), "yyyy年MM月dd日")

    End If

Next

doc.Preview