// PDF ファイルストリームの作成 using FileStream outputStream = new FileStream("CustomPageInfos.pdf", FileMode.Create); // 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); Stream fileStream = this.GetResourceStream("xlsx\\KeepTogether.xlsx"); workbook.Open(fileStream); IWorksheet worksheet = workbook.Worksheets[0]; // プリントマネージャーの作成 GrapeCity.Documents.Excel.PrintManager printManager = new GrapeCity.Documents.Excel.PrintManager(); // ワークシートの現在のページ区切り情報を取得 // この時点で、１ページ目は[A1:F37]、２ページ目は[A38:F73]となっています IList<PageInfo> pages = printManager.Paginate(worksheet); // ページ情報のカスタマイズ pages[0].PageContent.Range = worksheet.Range["A1:F36"]; // １ページ目は[A1:F36] pages[0].PageSettings.CenterHeader = "&KFF0000&20 予算概要レポート"; // １ページ目の中央のヘッダーに「予算概要レポート」というテキストを表示 pages[0].PageSettings.CenterFooter = "&KFF0000&20 ページ &P"; // １ページ目の中央のフッターにページ番号を表示 pages[1].PageContent.Range = worksheet.Range["A37:F73"]; // ２ページ目は[A37:F73] // 変更したページ情報をPDFファイルに保存 printManager.SavePDF(outputStream, pages);
' PDF ファイルストリームの作成 Dim outputStream = File.Create("CustomPageInfos.pdf") ' 新規ワークブックの作成 Dim workbook As New Workbook Dim fileStream As Stream = GetResourceStream("KeepTogether.xlsx") workbook.Open(fileStream) Dim worksheet As IWorksheet = workbook.Worksheets(0) ' プリントマネージャーの作成 Dim printManager As New Excel.PrintManager ' ワークシートの現在のページ区切り情報を取得 ' この時点で、１ページ目は[A1:F37]、２ページ目は[A38:F73]となっています Dim pages As IList(Of PageInfo) = printManager.Paginate(worksheet) ' ページ情報のカスタマイズ pages(0).PageContent.Range = worksheet.Range("A1:F36") ' １ページ目は[A1:F36] pages(0).PageSettings.CenterHeader = "&KFF0000&20 予算概要レポート" ' １ページ目の中央のヘッダーに「予算概要レポート」というテキストを表示 pages(0).PageSettings.CenterFooter = "&KFF0000&20 ページ &P" ' １ページ目の中央のフッターにページ番号を表示 pages(1).PageContent.Range = worksheet.Range("A37:F73") ' ２ページ目は[A37:F73] ' 変更したページ情報をPDFファイルに保存 printManager.SavePDF(outputStream, pages)