// PDF ファイルストリームの作成 using FileStream outputStream = new FileStream("KeepTogether.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]; // この時点で、１ページ目は[A1:F37]、２ページ目は[A38:F73]となっています IList<IRange> keepTogetherRanges = new List<IRange>(); // 37行目と38行目をまとめる // 結果的に、１ページ目は[A1:F36]、２ページ目は[A37:F73]となります keepTogetherRanges.Add(worksheet.Range["37:38"]); // プリントマネージャーの作成 GrapeCity.Documents.Excel.PrintManager printManager = new GrapeCity.Documents.Excel.PrintManager(); // ワークシートのページ区切り情報を取得 IList<PageInfo> pages = printManager.Paginate(worksheet, keepTogetherRanges, null); // ページをPDFファイルに保存 printManager.SavePDF(outputStream, pages);
' PDF ファイルストリームの作成 Dim outputStream = File.Create("KeepTogether.pdf") ' 新規ワークブックの作成 Dim workbook As New Workbook Dim fileStream = GetResourceStream("KeepTogether.xlsx") workbook.Open(fileStream) Dim worksheet = workbook.Worksheets(0) ' この時点で、１ページ目は[A1:F37]、２ページ目は[A38:F73]となっています ' 37行目と38行目をまとめます ' 結果的に、１ページ目は[A1:F36]、２ページ目は[A37:F73]となります Dim keepTogetherRanges As New List(Of IRange) From { worksheet.Range("37:38") } ' プリントマネージャーの作成 Dim printManager As New Excel.PrintManager ' ワークシートのページ区切り情報を取得 Dim pages = printManager.Paginate(worksheet, keepTogetherRanges, Nothing) ' ページをPDFファイルに保存 printManager.SavePDF(outputStream, pages)