主题：[求助]求专业报表代码

Dim doc As New PrintDoc '定义一个报表
Dim rx As new prt.RenderText '定义一个文本对象
Dim x As Integer = 0 '定义水平偏移参数
Dim y As Integer = 0 '定义垂直偏移参数
Dim CurRow As Row = Tables("基本信息").Current

rx = new prt.RenderText
rx.Text = CurRow("单位名称")
rx.x = 60 + x '设置坐标的时候,注意加上偏移参数
rx.y = 34 + y
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow("法人")
rx.x = 118 + x
rx.y = 44 + y
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow("单位地址")
rx.x = 60 + x
rx.y = 54 + y
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 12 '字体大小为16磅
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow("邮政编码")
rx.x = 156 + x
rx.y = 54 + y
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow("联系电话")
rx.x = 70 + x
rx.y = 64 + y
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
doc.body.Children.Add(rx)
'加入更多的打印对象....

Doc.PrinterName = e.Form.Controls("ComboBox1").text
doc.Print()

以下是纵向送入打印机的图片

此主题相关图片如下：微信图片_20210418140437.jpg

这样可以正常套打，可是横向送入打印机时，我应该如何修改代码？以下是横向送入打印机的图片：

此主题相关图片如下：微信图片_20210418140341.jpg


此主题相关图片如下：微信图片_20210418140355.jpg

 首先感谢，有点蓝老师的帮忙。这是我完善后的代码：

Dim doc As New PrintDoc '定义一个报表
Dim rx As new prt.RenderText '定义一个文本对象
Dim CurRow As Row = Tables("基本信息").Current

rx = new prt.RenderText
rx.Text = CurRow("单位名称")
rx.x = 34
rx.y = "Parent.Height -155"
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
rx.Style.TextAngle = 90
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow("法人")
rx.x = 44
rx.y = "Parent.Height -170"
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
rx.Style.TextAngle = 90
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow("单位地址")
rx.x = 54
rx.y = "Parent.Height -155"
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 12 '字体大小为16磅
rx.Style.TextAngle = 90
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow("邮政编码")
rx.x = 54
rx.y = "Parent.Height -210"
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
rx.Style.TextAngle = 90
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow("联系电话")
rx.x = 64
rx.y = "Parent.Height -145"
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
rx.Style.TextAngle = 90
doc.body.Children.Add(rx)
'加入更多的打印对象....
    
Doc.PrinterName = e.Form.Controls("ComboBox1").text
doc.Print()

其次，出现新问题请老师给予帮助。那就是文字旋转角度问题。下图是上述代码打印结果。

此主题相关图片如下：1.jpg

可是如果我需要下图打印结果，我应该如何修改代码呢？

此主题相关图片如下：2.jpg

其实就是文字的旋转90度与270度的问题。

第一个问题是，日期时间只取年或月或日，我当如何修改：rx.Text = **********这句？

也不知道是否完善，还请各位老师指点。

现在就剩下第二问题了。

这个自己修改后的代码：