主题：[求助]套打时，横向进纸

编写的代码是按照A4竖向，预览是这样的：

做不到这样的

旋转绝对是可以的，请认真测试

 

http://www.foxtable.com/webhelp/scr/1168.htm

 

谢谢甜老师！

经测试，存在两个问题：

1、旋转后的定位：

x-左边距；

y-上边距。

如果能定位下边距才行（相当于竖向的左边距），见下图。

2、两处文字块的代码为什么不能同时运行？

 

Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 297 '纸张宽度为100毫米
doc.PageSetting.Height = 210 '纸张高度为120毫米
'Dim rt As prt.RenderText '定义一个文本对象

 

Dim rep As New prt.RenderEmpty '定义一个新的空对象
rep.BreakBefore = prt.BreakEnum.Page '打印前换页
doc.Body.Children.Add(rep) '加入到报表中

 

Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "新华网绵阳5月16日电(记者孙承斌)16日上午,在四川抗震救灾的"     '设置文本对象的内容
rt.Style.TextColor = Color.Red '字符颜色设为红色
rt.Style.TextAngle = -270 '顺时钟旋转45度
rt.Height = 100  '宽度------打印宽度,自动换行
rt.Style.Font = New Font("宋体", 20, FontStyle.Regular)
rt.x = 100   '左边距
rt.y = 20     '上边距

 

'rt As New prt.RenderText '定义一个文本对象
'rt.Text = "新华网绵阳5月16日电(记者孙承斌)16日上午,在四川抗震救灾的"     '设置文本对象的内容
'rt.Style.TextColor = Color.Red '字符颜色设为红色
'rt.Style.TextAngle = -270 '顺时钟旋转45度
'rt.Height = 100  '宽度------打印宽度,自动换行
'rt.Style.Font = New Font("宋体", 20, FontStyle.Regular)
'rt.x = 200
'rt.y = 40

 

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

 

此主题相关图片如下：截屏图片 (1).jpg

1、你的位置的定位，自己根据实际需要填写对应的坐标。

 

2、rt = New prt.RenderText '定义一个文本对象

谢谢甜老师！