ページの下半分に「控え」を出力する方法 – MESCIUS ナレッジベース

作成日: 2019/10/31 最終更新日: 2019/10/31

文書種別

使用方法

詳細

納品書や請求書をページの上半分に出力し、下半分に同じ内容を控えとして出力したい場合、ページレポートかセクションレポートで作成します。

■イメージ図
納品書の控え

ページレポートの場合

上下にTableを並べて配置するだけで簡単に実現できます。
基本的には、こちらで作成することをお勧めします。

セクションレポートの場合

単独のレポートで実現することはできません。
同じレポートを余白を変更して実行し、それらをOverlayメソッドで重ねる必要があります。

◆サンプルコード（C#）

// 同じレポートを生成し、タイトルだけ変更する
var rpt1 = new SectionReport1();
((GrapeCity.ActiveReports.SectionReportModel.TextBox)
　　(rpt1.Sections["pageHeader"].Controls["txtTitle"])).Text = "納品書";

var rpt2 = new SectionReport1();
((GrapeCity.ActiveReports.SectionReportModel.TextBox)
　　(rpt2.Sections["pageHeader"].Controls["txtTitle"])).Text = "納品書（控）";

// マージンを調整する
rpt1.PageSettings.Margins.Top = 0.5f;
rpt1.PageSettings.Margins.Bottom = 6.0f;
rpt2.PageSettings.Margins.Top = 6.0f;
rpt2.PageSettings.Margins.Bottom = 0.5f;

// 描画処理を実行する
rpt1.Run();
rpt2.Run();

// ページを重ねる
for (int i = 0; i < rpt1.Document.Pages.Count; i++)
{
　　rpt1.Document.Pages[i].Overlay(rpt2.Document.Pages[i]);
}

// ビューワに表示する
viewer1.Document = rpt1.Document;

◆サンプルコード（VB.NET）

' 同じレポートを生成し、タイトルだけ変更する
Dim rpt1 As New SectionReport1()
DirectCast(rpt1.Sections("PageHeader").Controls("txtTitle"),
　　GrapeCity.ActiveReports.SectionReportModel.TextBox).Text = "納品書"

Dim rpt2 As New SectionReport1()
DirectCast(rpt2.Sections("PageHeader").Controls("txtTitle"),
　　GrapeCity.ActiveReports.SectionReportModel.TextBox).Text = "納品書（控）"

' マージンを調整する
rpt1.PageSettings.Margins.Top = 0.5F
rpt1.PageSettings.Margins.Bottom = 6.0F
rpt2.PageSettings.Margins.Top = 6.0F
rpt2.PageSettings.Margins.Bottom = 0.5F

' 描画処理を実行する
rpt1.Run()
rpt2.Run()

' ページを重ねる
For i As Integer = 0 To rpt1.Document.Pages.Count - 1
　　rpt1.Document.Pages(i).Overlay(rpt2.Document.Pages(i))
Next

' ビューワに表示する
Viewer1.Document = rpt1.Document

旧文書番号

84603

ナレッジベース

文書種別

詳細

関連情報

旧文書番号