主题：请教甜老师，加一个标题，另起一行加一个日期，加日期这个代码，应该怎么写？

        Dim doc  As New PrintDoc  '定义一个报表
        Dim rt As New prt.RenderTable() '定义一个表格对象
        Dim rx As New prt.RenderText '定义一个文本对象
        Dim CurRow As Row =  Tables("收费").Current
        '加入标题
        rx.text = "小天使幼儿园收费单"
        rx.Style.FontBold = True '字体加粗
        rx.Style.FontSize = 16 '大体大小为16磅
        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center  '水平居中排列
        rx.Style.Spacing.Bottom = 5 '和下面的对象(表格)距离3毫米
        doc.Body.Children.Add(rx) '加入到报表中
       
        rx.text = "日期:" & currow("日期")
        rx.Style.FontBold = True '字体加粗
        rx.Style.FontSize = 12 '大体大小为16磅
        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center  '水平居中排列
        rx.Style.Spacing.Bottom = 3 '和下面的对象(表格)距离3毫米
        doc.Body.Children.Add(rx) '加入到报表中

请教甜老师，加一个标题，另起一行加一个日期，加日期这个代码，应该怎么写？