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) \'加入到报表中

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