kevingif~~叛逆之風~~

開發環境 : VS2005 + 內建 CrystalReport

報表設計畫面 :

在報表首 右鍵 --> 插入 --> 文字物件

參考以下程式碼 [ VB.NET ]

 

'加入 CrystalReports.Engine 參考
Imports CrystalDecisions.CrystalReports.Engine

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim GetTextObject As CrystalDecisions.CrystalReports.Engine.TextObject
        ' 按照名稱取得 ReportObject，將其轉換為 TextObject。
        GetTextObject = CType(Me.CrystalReport11.ReportDefinition.ReportObjects.Item("Text1"), TextObject)

        '變更標題列文字對齊的方式
        GetTextObject.ObjectFormat.HorizontalAlignment = CrystalDecisions.Shared.Alignment.HorizontalCenterAlign

        '建立新的 Font 格式物件
        Dim f As New Font("標楷體", 15, FontStyle.Bold, GraphicsUnit.Point)
        '指定要套用的 Font 格式物件
        GetTextObject.ApplyFont(f)

        '變更顯示的文字
        GetTextObject.Text = "變更後的測試標題"

        '變更顯示的色彩
        GetTextObject.Color = Color.Blue

        '將變更後的報表重新載入顯示在 CrystalReportViewer 控制項上
        CrystalReportViewer1.ReportSource = Me.CrystalReport11
    End Sub
End Class

執行階段畫面 :

變更前

變更後