Private Const mcDEFMARGIN As Single = 0.4
Private Const mcINFOTEXT_LEFT As Single = 6.094
Private Const mcINFOTEXT_WIDTH As Single = 1.313
Private Const mcINFOTEXT_HEIGHT As Single = 0.25
Private Const mcINFOTEXT_FONT As String = "MS ゴシック"
Private Const mcINFOTEXT_FONTSIZE As Single = 8.25
・
・
・
'rpt1データセット
rpt1.DataSource = Datatable1
rpt1.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.A4
rpt1.PageSettings.Orientation = DataDynamics.ActiveReports.Document.PageOrientation.Portrait
rpt1.PageSettings.Margins.Top = mcDEFMARGIN
rpt1.PageSettings.Margins.Bottom = mcDEFMARGIN
rpt1.PageSettings.Margins.Left = mcDEFMARGIN
rpt1.PageSettings.Margins.Right = mcDEFMARGIN
rpt1.Run(False)
'rpt2データセット
rpt2.DataSource = Datatable2
rpt2.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.A4
rpt2.PageSettings.Orientation = DataDynamics.ActiveReports.Document.PageOrientation.Portrait
rpt2.PageSettings.Margins.Top = mcDEFMARGIN
rpt2.PageSettings.Margins.Bottom = mcDEFMARGIN
rpt2.PageSettings.Margins.Left = mcDEFMARGIN
rpt2.PageSettings.Margins.Right = mcDEFMARGIN
rpt2.Run(False)
'2種類のレポートを合成
rpt1.Document.Pages.AddRange(rpt2.Document.Pages)
'ページ番号を表示
For i As Integer = 0 To rpt1.Document.Pages.Count - 1
strPage = String.Empty
strPage = "ページ:" & (i + 1).ToString & "/" & rpt1.Document.Pages.Count
rpt1.Document.Pages(i).Font = New Font(mcINFOTEXT_FONT, mcINFOTEXT_FONTSIZE)
rpt1.Document.Pages(i).ForeColor = Color.Black
rpt1.Document.Pages(i).DrawText(strPageFooter, _
mcINFOTEXT_LEFT + mcDEFMARGIN, _
mcDEFMARGIN, _
mcINFOTEXT_WIDTH, _
mcINFOTEXT_HEIGHT)
Next
'プレビュー
Using frmViewer As New ACTIVERPT_PREVIEW
frmViewer.Text = Me.Text
frmViewer.SetReport(CType(rpt1, DataDynamics.ActiveReports.ActiveReport))
frmViewer.ShowDialog()
End Using
|