Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.PaperKind = 12 '纸张类型改为B4
doc.PageSetting.Landscape = True '横向打印
Dim s As String
s = "AAAAAAAAAAAAAAAAAAAAAAAA"
s = s & "BBBBBBBBBBBBBBBBBBBBBBBBBB"
s = s & "CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"
s = s & "DDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
s = s & "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
s = s & "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
Dim rt As New prt.RenderText '定义一个文本对象
Doc.PageSetting.LeftMargin = 10 '设置左边距
Doc.PageSetting.RightMargin = 10 '设置右边距
Doc.PageSetting.TopMargin = 20 '设置上边距
Doc.PageSetting.BottomMargin = 20 '设置下边距
rt.Width = "Parent.Width" '对象宽度等于页面宽度
rt.Height = "Parent.Height" '对象高度等于页面高度
rt.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
rt.Text = s '设置文本对象的内容
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览
[此贴子已经被作者于2013-4-30 17:14:04编辑过]
加好友 
发短信
Post By：2013/4/29 22:02:00 [只看该作者]
