这是帮助里的"打印标称"的代码,

Dim doc As New PrintDoc \'定义一个报表
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight \'设置排列方式
For i As integer = 1 to 100
    Dim rt As New prt.RenderTable() \'定义一个表格对象
    rt.Style.GridLines.All = New prt.LineDef \'将网格线类型设为默认类型
    rt.Width = 50 \'表格宽度为50mm
    rt.Style.Spacing.All = 2 \'和其他对象之间的间隔为2mm
    rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never \'避免垂直换页的时候，表格被分割成两部分。
    rt.Cols(0).Width = 20
    rt.cells(0,0).Text = "姓名"
    rt.Cells(0,1).Text = "黄财德"
    rt.Cells(1,0).Text = "职务"
    rt.Cells(1,1).Text = "总经理"
    rt.Cells(2,0).Text= "工号"
    rt.cells(2,1).Text = "44081996008"
    doc.Body.Children.Add(rt) \'将表格对象加入到报表中
Next
Doc.Preview() \'预览报表
---------------------------------------------------------------------------------
我想把
    rt.cells(0,0).Text = "姓名"
    rt.Cells(0,1).Text = "黄财德"
    rt.Cells(1,0).Text = "职务"
    rt.Cells(1,1).Text = "总经理"
    rt.Cells(2,0).Text= "工号"
    rt.cells(2,1).Text = "44081996008"
代码里面修改成动态的加载不同内容(而不是固定的)----

毕竟一个表有不同的姓名,不同的职务,不同的工号

假定变量r是某行数据

 rt.cells(0,0).Text = "姓名"
rt.Cells(0,1).Text = r("姓名")
rt.Cells(1,0).Text = "职务"
rt.Cells(1,1).Text = r("职务")
rt.Cells(2,0).Text= "工号"
rt.cells(2,1).Text = r(“工号”)