快速设置打印对象

单元格中的打印内容,绝大多数时候是文本或图片。
单元格提供了两个属性,用于快速设置要打印的文本或图片

Text:  指定单元格的文本内容
Image: 指定单元格的图片。

示例

Dim doc As New PrintDoc '定义一个报表
Dim
rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt)
'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef
'将网格线设为默认类型
'下面的代码向表格中填入值

For
r As integer = 0 to 5
   
For c As integer = 0 to 5
       
If r = 2 AndAlso c =2 Then
            rt.Cells(r, c).Image = GetImage(
"ep1.bmp")
       
Else
            rt.Cells(r, c).Text = r &
"," & c '
       
End If
    Next
Next

doc.Preview()
'预览报表

执行结果:

这一行代码:

rt.Cells(r, c).Text = r & "," & c '

等同于:

Dim rx As New prt.RenderText
rx.Text = r &
"," & c
rt.Cells(r, c).RenderObject = rx

前一种方法简洁,后一种方法可以让你进行更多的设置。


本页地址:http://www.foxtable.com/webhelp/topics/1209.htm