加好友 发短信
等级:童狐
帖子:257
积分:4393
威望:0
精华:0
注册:2011/7/5 9:38:00
|
[求助]如何设置横向打印和纸张大小? Post By:2015/1/12 10:38:00 [只看该作者]
Dim doc As New PrintDoc '定义一个报表 Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight Dim ra As New prt.RenderArea Dim rt As prt.RenderText ra.Width = 40 '设置标签宽度 ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割 ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割 ra.Style.Spacing.Right = 2 '设置标签之间的所有和上下间隔为2毫米 ra.Style.Spacing.Bottom = 2 ra.Style.Padding.All = 1 ' 标签内容距离边框为1毫米 ra.Style.Borders.All = New prt.Linedef(0.3, Color.Red) '设置边框 ra.DataBinding.DataSource = BindTables("员工") '将容器绑定到员工表 Doc.Body.ChildRen.Add(ra) '将容器加入到报表中 rt = New prt.RenderText rt.Text = "姓名:[Fields!姓名.Value]" ra.Children.Add(rt) '添加到容器中 rt = New prt.RenderText rt.Text = "部门:[Fields!部门.Value]" ra.Children.Add(rt) '添加到容器中 rt = New prt.RenderText rt.Text = "职务:[Fields!职务.Value]" ra.Children.Add(rt) '添加到容器中 Doc.Preview() '预览报表
如何设置横向打印和纸张大小?
|
|