Dim str As String = "前面提到所有控件都是派生自WinForm.Control类型,初学者可能不能理解""派生""的意义.以汽车作为例子:汽车是最基本的类型,它定义了汽车最基本的属性和方法,然后在汽车这个类型的基础上,派生出轿车?火车?救护车?消防车等类型,这些类型定义继承了汽车这个基本类型的所有属性,同时增加了自己独有的属性和方法.对于窗口中的控件来说,WinForm.Control是最基本的类型,它定义了作为控件最基本的属性和方法,其它所有控件都派生于这个基本类型,在WinForm.Control的基础上增加了自己独有的属性和方法.我们很少需要直接使用WinForm.Control类型的变量,而是直接使用WinForm.Button这种直接表明控件类型的变量,因为前者无法访问WinForm.Button专有的属性和方法."
Dim doc As New PrintDoc '定义一个报表
Doc.PageSetting.Width = 100 '指定打印纸张宽度
Doc.PageSetting.TopMargin = 0 '设置边距
Doc.PageSetting.RightMargin= 0
Doc.PageSetting.LeftMargin= 0
Doc.PageSetting.BottomMargin= 0
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = str '设置文本对象的内容
rt.X = 5 '文本打印位置
rt.Y = 5
rt.Width = 90 '文本区域打印宽度
rt.Style.Borders.All = New prt.Linedef(0.3, Color.Red) '设置边框
Dim g As Graphics = basemainform.CreateGraphics
g.PageUnit = GraphicsUnit.Millimeter '设置计算打印高度时的单位为毫米,和专业报表的单位一致
Dim size As Object
size = g.MeasureString(str, rt.Style.Font, 90) '按文本区域打印宽度测量打印的内容的大小
doc.Body.Children.Add(rt) '将文本对象加入到报表
Dim h As Integer = size.height
Doc.PageSetting.height = h '把打印纸张高度设置为打印的内容的高度
doc.Preview() '预览'
加好友 
发短信
Post By：2019/9/30 16:29:00 [显示全部帖子]
