编写的代码是按照A4竖向,预览是这样的:![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:777.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-4/201942920422816351.jpg)
由于待打印的封皮左侧(装订侧)是折叠的,和右侧相比,要厚一些。因此,想把封皮展开后横向进纸,如下图的方向放入打印机:
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:555.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-4/201942920524881898.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编辑过]