一样可以啊
_ShouJiHaoMa = "13900000000" & vbcrlf & "13800000000"
Dim doc As New PrintDoc '定义一个新报表
doc.PageSetting.Width = 210 '纸张宽度为100毫米
doc.PageSetting.Height = 297 '纸张高度为120毫米
Dim ym As New prt.RenderTable
ym.Style.Gridlines.All = New prt.Linedef(Color.Gray) '灰色网格线
ym.Cells(0,0).text = "电话号码"
ym.Cells(0,1).text = _ShouJiHaoMa
ym.Cells(1,0).text = "电话号码"
ym.Cells(1,1).text = "13900000000" & vbcrlf & "13800000000"
doc.Body.Children.Add(ym) '将表格加入到报表
doc.Preview()