编写的代码是按照A4竖向，预览是这样的：
此主题相关图片如下：777.jpg
由于待打印的封皮左侧（装订侧）是折叠的，和右侧相比，要厚一些。因此，想把封皮展开后横向进纸，如下图的方向放入打印机：
此主题相关图片如下：555.jpg
-----------------------------
文字的定位代码是按照A4竖向编制的：
Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 210 '纸张宽度为100毫米
doc.PageSetting.Height = 297 '纸张高度为120毫米
Dim rx As prt.RenderText '定义一个文本对象
Doc.PrinterName = e.Form.Controls("TextBox1").text '打印机名称
Dim rep As New prt.RenderEmpty '定义一个新的空对象
rep.BreakBefore = prt.BreakEnum.Page '打印前换页
doc.Body.Children.Add(rep ) '加入到报表中
rx = new prt.RenderText
rx.Text = CurRow("审级")
rx.Style.Font = New Font("宋体", 20, FontStyle.Regular)
rx.x = 112 + x '设置坐标的时候,注意加上偏移参数
rx.y = 62 + y
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CurRow("案号_年份尾数")
rx.Style.Font = New Font("宋体", 15, FontStyle.Regular)
rx.x = 80 + x '设置坐标的时候,注意加上偏移参数
rx.y = 86 + y
doc.body.Children.Add(rx)
.................
我试过这两句代码，但是不行：
doc.PageSetting.Landscape = True '横向打印
rt.Style.TextAngle = -270 '顺时钟旋转度
因此，请老师指教，这种情况如何处理，谢谢！
[此贴子已经被作者于2019/5/1 8:45:24编辑过]
加好友 
发短信
Post By：2019/4/29 21:01:00 [只看该作者]
