主题：[求助]表标题问题

甜版，我想把凭证的表标题居中，字体变大，该如何做呢，我找了一下，没找到相关的设置。另外，日期我想弄成yyyy年MM月dd日格式，dataformat下代码如下：e.value = format(e.value,"yyyy年MM月dd日")，单并未改变。
此主题相关图片如下：凭证标题.jpg

上例子

Bin版，麻烦您给看一下。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:练习用.rar

1.你不是已经实现了么

（1）我是想把：摘要、会计科目、.....这一行标题居中，行高增大一些，字体弄大点，因为这样打印出来太难看了。

甜版，给看一下。

打印代码

 

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

For Each c As object In Doc.Body.Children
    If c.Gettype.Name Like "*Table*" Then
        Dim t As prt.RenderTable = c
        t.Rows(0).Height = 30
        t.Rows(0).Style.BackColor = Color.Red
        t.Rows(0).Style.Font = New Font("宋体", 12, FontStyle.Bold) '设置字体
        For i As Integer = 0 To t.Cols.Count - 1
            t.Cells(0,i).Style.TextAlignHorz = prt.AlignHorzEnum.Center
        Next
    End If
Next

doc.Preview

甜版，我的上面的例子中，data控件能够转成“yyyy年MM月dd日”格式吗？

DateTimePicker控件

 不能，打印之前处理一下

 

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

Dim d As Date
For Each c As object In Doc.Body.Children
    If c.Gettype.Name Like "*Table*" Then
        Dim t As prt.RenderTable = c
        t.Rows(0).Height = 30
        t.Rows(0).Style.BackColor = Color.Red
        t.Rows(0).Style.Font = New Font("宋体", 12, FontStyle.Bold) '设置字体
        For i As Integer = 0 To t.Cols.Count - 1
            t.Cells(0,i).Style.TextAlignHorz = prt.AlignHorzEnum.Center
        Next
    Else If c.Gettype.name Like "*Text*" AndAlso Date.TryParse(c.text, d) Then
        c.text = Format(cdate(c.text), "yyyy年MM月dd日")
    End If
Next

doc.Preview