- PR -

クリスタルレポートの.ReportTitleプロパティについて

1
投稿者投稿内容
いちかわ
会議室デビュー日: 2004/09/30
投稿数: 3
投稿日時: 2004-10-05 21:42
また、クリスタルレポートでの印刷ジョブ名について困っています。

デザインでレポートのプロパティを開いて、タイトルに印刷ジョブ名
にしたい文言を設定し、レポートのPrintToPrinterで印刷する前に、
.SummaryInfo.ReportTitleプロパティにことなるタイトルを設定し
PrintToPrinterで印刷すると.SummaryInfo.ReportTitleプロパティで
設定したタイトルではなく、デザインでレポートのプロパティで設定した
タイトルが印刷ジョブ名となってしまいます。

.SummaryInfo.ReportTitleプロパティで動的にタイトルを設定し、
印刷ジョブ名とすることはできないのでしょうか。

以下にサンプルソースの抜粋を記述します。
よろしくお願いします。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim ds As New Dataset1
Dim dr As DataRow
Dim i As Integer

ds.Clear()

For i = 1 To 10
dr = ds.element1.NewRow
With dr
.BeginEdit()
.Item("項目1") = "aaaaaaaaaaaaaaaaaaaaa"
.Item("項目2") = "bbbbbbbbbbbbbbbbbbbbbb"
.Item("項目3") = "cccccccccccccccccccccccc"
.Item("項目4") = "dddddddddddddddddddddddddd"
.EndEdit()
ds.element1.Rows.Add(dr)
End With
Next


Dim crv As New CrystalReport1

With crv
'ここでレポートのタイトルを設定
.SummaryInfo.ReportTitle = "異なるタイトル"
.Refresh()

.SetDataSource(ds)
.PrintToPrinter(1, False, 1, 1)
End With

With CrystalReportViewer1
.ReportSource = crv
.PrintReport()
End With

End Sub
1

スキルアップ/キャリアアップ(JOB@IT)