专家坐堂-报表格式问题，请解答Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim doc As New PrintDoc \'定义一个报表

Doc.PageSetting.LeftMargin = 0 \'设置左边距

Doc.PageSetting.RightMargin = 0 \'设置右边距

Doc.PageSetting.TopMargin = 20 \'设置上边距

Doc.PageSetting.BottomMargin = 20 \'设置下边距

Dim rt As New prt.RenderText \'定义一个文本对象

rt.Text = "1.哈《亏好多》师n大咖啡机卡活动很卡活动很骄傲发货货卡的活动很5骄傲发货的发哈的发哈货卡的活动很5骄傲发货的发哈的发哈货卡的活动很56骄傲发货的发哈的发哈卡的活动很5骄傲发货的发哈的发哈骄傲发货63的发哈很费劲啊哈后方。" \'设置文本对象的内容

rt.Style.TextAlignHorz = prt.AlignHorzEnum.Justify \'分散对齐

rt.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中

rt.Style.Font = New Font("宋体", 30, FontStyle.Bold)

doc.Body.Children.Add(rt) \'将文本对象加入到报表

rt.BreakAfter = prt.BreakEnum.Page

Doc.PageSetting.LeftMargin = 20 \'设置左边距

Doc.PageSetting.RightMargin = 20\'设置右边距

Doc.PageSetting.TopMargin = 20 \'设置上边距

Doc.PageSetting.BottomMargin = 20 \'设置下边距

Dim rt0 As New prt.RenderText \'定义一个文本对象

rt0.Text = "Hello Foxtable" \'设置文本对象的内容

doc.Body.Children.Add(rt0) \'将文本对象加入到报表

doc.Preview() \'预览