主题：[求助]专业报表

 或者你可以改成这样

 

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中

 

用了甜老师修改的代码，还有点问题：第2列每个单元格填入数据时，也有多个文本对象。

当第2列有多个文本对象时，仍不能垂直居中。

 

 

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 = new prt.RenderArea

    For t As Integer = 0 To 2

        '设置文本对象

        rt.Cells(i,1).Style.TextAlignVert = prt.AlignVertEnum.Center '文本垂直居中

       

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

        rx.Text = "那就叫你交ddddddddd"

        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center

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

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

    Next

    rt.Cells(i,1).RenderObject = ra

   

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
   
   
   
    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()

    我想实现的效果图如下，请老师能不能提个其他思路，急！

     

此主题相关图片如下：图-2.jpg

用段落去做

 

 

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

 

   这个思路不错，谢谢！