MESCIUS SPREAD for Windows Forms 17.0J > 開発者ガイド > 印刷 > 印刷属性のカスタマイズ > 改ページの追加 |
SheetViewクラスのSetRowPageBreakメソッドとSetColumnPageBreakメソッドを使用すると、指定した列または行の前に強制改ページを挿入できます。行方向の改ページは、指定した行の上に挿入されます。列方向の改ページは、指定した列の左に挿入されます。
改ページが行われる次の行または列のインデックスを取得することもできます。行方向の改ページが行われる行インデックスを取得するには、FpSpreadクラスのGetRowPageBreakメソッドします。列方向の改ページが行われる列インデックスを取得するにはGetColumnPageBreaksメソッドを使用します。
さらに、IWorksheetインターフェースのDisplayPageBreaksプロパティを使用して、ワークシートに改ページを表示するかどうかを制御することができます。このブール値プロパティの既定値は「false」です。実行時にワークシートに改ページを表示するには、これを「true」に設定する必要があります。SPREADワークシートに表示される改ページは、Excelでワークシートをプレビューした際に表示されるものと同様です。
LegacyBehaviors.Style が LegacyBehaviors 列挙から除外されている場合にのみ有効です。
![]() |
FpSpreadクラスのGetPrintPageCountメソッドで、シートを印刷するのに必要なページ数を取得できます。 |
下の画像は、ワークシート内の改ページを表示しています。
以下のコードを使用して、ワークシートに改ページを追加して表示します。
C# |
コードのコピー
|
---|---|
FarPoint.Win.Spread.PrintInfo pi = new FarPoint.Win.Spread.PrintInfo(); pi.UseMax = false; fpSpread1.Sheets[0].PrintInfo = pi; fpSpread1.Sheets[0].SetRowPageBreak(2, true); IWorksheet sheet = fpSpread1.AsWorkbook().ActiveSheet; // Excel互換印刷を有効にします。 fpSpread1.Features.ExcelCompatiblePrinting = true; // DisplayPageBreaksを有効にします。 sheet.DisplayPageBreaks = true; sheet.PageSetup.Zoom = 100; // 行のページ区切りを取得します。 private void Getrowpagebreak_Click(object sender, EventArgs e) { // 新しい項目を追加する前に、listBox1をクリアします。 listbox1.Items.Clear(); int[] i; i = fpSpread1.GetRowPageBreaks(0); foreach (object o in i) { listbox1.Items.Add(o); } } |
VB |
コードのコピー
|
---|---|
Dim pi As FarPoint.Win.Spread.PrintInfo = New FarPoint.Win.Spread.PrintInfo() pi.UseMax = False FpSpread1.Sheets(0).PrintInfo = pi FpSpread1.Sheets(0).SetRowPageBreak(2, True) Dim sheet As IWorksheet = FpSpread1.AsWorkbook().ActiveSheet ' Excel互換印刷を有効にします。 FpSpread1.Features.ExcelCompatiblePrinting = True ' DisplayPageBreaksを有効にします。 sheet.DisplayPageBreaks = True sheet.PageSetup.Zoom = 100 ' 行のページ区切りを取得します。 Private Sub GetRowPageBreak_Click(sender As Object, e As EventArgs) ' 新しい項目を追加する前に、listBox1をクリアします。 listbox1.Items.Clear() Dim i As Integer() = FpSpread1.GetRowPageBreaks(0) For Each o As Integer In i listbox1.Items.Add(o) Next End Sub |