- - PR -
クリスタルレポートの.ReportTitleプロパティについて
1
投稿者 | 投稿内容 |
---|---|
|
投稿日時: 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