// PDF ファイルストリームの作成 using FileStream outputStream = new FileStream("SetDocumentPropertiesToPDF.pdf", FileMode.Create); // 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; worksheet.Range["A1"].Value = "DioDocs for Excel"; worksheet.Range["A1"].Font.Size = 25; DocumentProperties documentProperties = new DocumentProperties { // PDF ドキュメントの作成者を設定 Author = "作成者1", // PDF ドキュメントのタイトルを設定 Title = "ドキュメント情報のサンプル", // フォントを埋め込む EmbedStandardWindowsFonts = true, // PDF バージョンを設定 PdfVersion = 1.5f, // PDF ドキュメントのサブタイトルを設定 Subject = "ドキュメント情報", // PDF ドキュメントに関連付けるキーワードを設定 Keywords = "キーワード1", // PDF ドキュメントの作成日時を設定 CreationDate = DateTime.Now.AddYears(10), // PDF ドキュメントの更新日時を設定 ModifyDate = DateTime.Now.AddYears(11), // 元 のPDF ドキュメントを作成したアプリケーションの名前を設定 Creator = "DioDocs for PDF Creator", // PDF ドキュメントを作成したアプリケーションの名前を設定 Producer = "DioDocs for PDF Producer" }; PdfSaveOptions pdfSaveOptions = new PdfSaveOptions { // PDF のドキュメントプロパティを設定 DocumentProperties = documentProperties }; // ブックを PDF ファイルに保存 workbook.Save(outputStream, pdfSaveOptions);
' PDF ファイルストリームの作成 Dim outputStream = File.Create("SetDocumentPropertiesToPDF.pdf") ' 新規ワークブックの作成 Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) worksheet.Range!A1.Value = "DioDocs for Excel" worksheet.Range!A1.Font.Size = 25 Dim documentProperties As New DocumentProperties With documentProperties ' PDF ドキュメントの作成者を設定 .Author = "作成者1" ' PDF ドキュメントのタイトルを設定 .Title = "ドキュメント情報のサンプル" ' フォントを埋め込む .EmbedStandardWindowsFonts = True ' PDF バージョンを設定 .PdfVersion = 1.5f ' PDF ドキュメントのサブタイトルを設定 .Subject = "ドキュメント情報" ' PDF ドキュメントに関連付けるキーワードを設定 .Keywords = "キーワード1" ' PDF ドキュメントの作成日時を設定 .CreationDate = Date.Now.AddYears(10) ' PDF ドキュメントの更新日時を設定 .ModifyDate = Date.Now.AddYears(11) ' 元 のPDF ドキュメントを作成したアプリケーションの名前を設定 .Creator = "DioDocs for PDF Creator" ' PDF ドキュメントを作成したアプリケーションの名前を設定 .Producer = "DioDocs for PDF Producer" End With ' PDF のドキュメントプロパティを設定 Dim pdfSaveOptions As New PdfSaveOptions With { .DocumentProperties = documentProperties } ' ブックを PDF ファイルに保存 workbook.Save(outputStream, pdfSaveOptions)