主题：[求助]专业报表

 请贴出写的代码，可以单独运行的。

Dim doc As New PrintDoc

Dim rt As New prt.RenderTable

Dim ra As prt.RenderArea

Dim ra1 As prt.RenderArea

Dim rm As prt.RenderImage

Dim rx As prt.RenderText

rt.Style.GridLines.All = New prt.LineDef

rt.CellStyle.Spacing.All = 1 '单元格内容和网格线距离1毫米

rt.Cols.Count = 3 '总列数为3

For i As Integer = 0 To 3
    ra = new prt.RenderArea
    '设置文本对象
   
    For s As Integer = 0 To 1
       
        rx = New prt.RenderText '创建一个文本
       
        rx.Text = "那就叫你"
       
        'rx.Style.TextAlignVert = prt.AlignVertEnum.Center '文本垂直居中
       
        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center
       
        rx.Style.Spacing.Bottom = 1 '距离下边的对象2毫米
       
        ra.Children.Add(rx) '加入文本到RenderArea中
       
    Next
    rt.Cells(i,0).RenderObject = ra
   
    rt.Cells(i,1).Style.TextAlignVert = prt.AlignVertEnum.Center
   
    '设置文本对象
   
    rx = New prt.RenderText '创建一个文本
   
    rx.Text = "那就叫你ddddddddd"
    rx.Style.BackColor = Color.red
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center
    rt.Cells(i,1).RenderObject = rx
Next

doc.Body.Children.Add(rt)

Doc.Preview()

 或者你可以改成这样

 

rx = New prt.RenderText '创建一个文本

rx.Text = "那就叫你ddddddddd"

rx.Width = "100%"
rx.Height = "100%"
rx.Style.TextAlignVert = prt.AlignVertEnum.Center '文本垂直居中

rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center

rx.Style.Spacing.Bottom = 1 '距离下边的对象2毫米

ra1.Children.Add(rx) '加入文本到RenderArea中

 

测试了一下，没办法是做不到自动的

 

Dim doc As New PrintDoc

Dim rt As New prt.RenderTable

Dim ra As prt.RenderArea

Dim rx As prt.RenderText

rt.Style.GridLines.All = New prt.LineDef

rt.CellStyle.Spacing.All = 1 '单元格内容和网格线距离1毫米

rt.Cols.Count = 3 '总列数为3

For i As Integer = 0 To 3
   
   
   
    ra = new prt.RenderArea
   
    '设置文本对象
   
    For s As Integer = 0 To 3
       
        rx = New prt.RenderText '创建一个文本
       
        rx.Text = "那就叫你交"
       
        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center
       
        rx.Style.Spacing.Bottom = 1 '距离下边的对象2毫米
       
        ra.Children.Add(rx) '加入文本到RenderArea中
       
    Next
   
    rt.Cells(i,0).RenderObject = ra
   
   
   
    ra = rt.Cells(i,1).area
    Dim ra1 = new prt.RenderArea
    For t As Integer = 0 To 2
       
        '设置文本对象
        rx = New prt.RenderText '创建一个文本
       
        rx.Text = "那就叫你交ddddddddd"
       
        rx.Style.TextAlignVert = prt.AlignVertEnum.Center
        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center
       
        rx.Style.Spacing.Bottom = 1 '距离下边的对象2毫米
       
        ra1.Children.Add(rx) '加入文本到RenderArea中
       
    Next
    ra.Style.TextAlignVert = prt.AlignVertEnum.Center
    'ra1.Style.TextAlignVert = prt.AlignVertEnum.Center
    ra.Style.Padding.Top = 3
    ra.Style.Padding.Bottom = 2
    ra.children.add(ra1)
    ra1.Style.BackColor = color.red
    ra.Style.BackColor = color.blue
   
   
   
Next

doc.Body.Children.Add(rt)

Doc.Preview()

用段落去做

 

 

Dim doc As New PrintDoc

Dim rt As New prt.RenderTable

Dim ra As prt.RenderArea

Dim rx As prt.RenderText

rt.Style.GridLines.All = New prt.LineDef

rt.CellStyle.Spacing.All = 1 '单元格内容和网格线距离1毫米

rt.Cols.Count = 3 '总列数为3

For i As Integer = 0 To 3
   
   
   
    ra = new prt.RenderArea
   
    '设置文本对象
   
    For s As Integer = 0 To 3
       
        rx = New prt.RenderText '创建一个文本
       
        rx.Text = "那就叫你交"
       
        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center
       
        rx.Style.Spacing.Bottom = 1 '距离下边的对象2毫米
       
        ra.Children.Add(rx) '加入文本到RenderArea中
       
    Next
   
    rt.Cells(i,0).RenderObject = ra
   
   
   
   
    Dim rpar As New prt.RenderParagraph() '定义一个段落对象
   
    For t As Integer = 0 To 2
       
        rpar.Content.AddText("这是一个段落. 现在是正常文本. " & vbcrlf)
    Next
    rpar.Style.TextAlignHorz = prt.AlignHorzEnum.Center
    rpar.Style.TextAlignVert = prt.AlignVertEnum.Center
    rpar.Style.BackColor = Color.red
    rt.Cells(i,1).RenderObject = rpar
   
Next

doc.Body.Children.Add(rt)

Doc.Preview()

 

 

 

http://www.foxtable.com/help/topics/1183.htm