using Spire.Pdf; using Spire.Pdf.Graphics; using Spire.Pdf.Interchange.TaggedPdf; using System.Drawing; namespace CreatePDFUAfile { class Program { static void Main(string[] args) { //创建PdfDocument类的对象 PdfDocument doc = new PdfDocument(); //添加一页 doc.Pages.Add(); //设置tab order doc.Pages[0].SetTabOrder(TabOrder.Structure); //创建PdfTaggedContent类的对象 PdfTaggedContent taggedContent = new PdfTaggedContent(doc); taggedContent.SetLanguage("en-US"); taggedContent.SetTitle("test"); //设置PDF/UA1验证 taggedContent.SetPdfUA1Identification(); //创建字体、画刷 PdfTrueTypeFont font = new PdfTrueTypeFont(new Font("Times New Roman", 10), true); PdfSolidBrush brush = new PdfSolidBrush(Color.Black); //添加要素 PdfStructureElement article = taggedContent.StructureTreeRoot.AppendChildElement(PdfStandardStructTypes.Document); PdfStructureElement paragraph1 = article.AppendChildElement(PdfStandardStructTypes.Paragraph); PdfStructureElement span1 = paragraph1.AppendChildElement(PdfStandardStructTypes.Span); span1.BeginMarkedContent(doc.Pages[0]); PdfStringFormat format = new PdfStringFormat(PdfTextAlignment.Justify); doc.Pages[0].Canvas.DrawString("PDF/UA was published as ISO Standard 14289-1 in August 2012" + " and is by far the first complete definition " + "of a set of requirements for universally accessible PDF documents.", font, brush, new Rectangle(40, 80, 450, 80), format); span1.EndMarkedContent(doc.Pages[0]); PdfStructureElement paragraph2 = article.AppendChildElement(PdfStandardStructTypes.Paragraph); paragraph2.BeginMarkedContent(doc.Pages[0]); doc.Pages[0].Canvas.DrawString("The PDF/UA has some definite requirements at its base that act as the essence of this standard.", font, brush, new Rectangle(40, 120, 450, 60), format); paragraph2.EndMarkedContent(doc.Pages[0]); PdfStructureElement figure1 = article.AppendChildElement(PdfStandardStructTypes.Figure); //Set Alternate text figure1.Alt = "replacement text1"; figure1.BeginMarkedContent(doc.Pages[0], null); PdfImage image = PdfImage.FromFile(@"logo.jpg"); doc.Pages[0].Canvas.DrawImage(image, new PointF(40, 200), new SizeF(100, 100)); figure1.EndMarkedContent(doc.Pages[0]); PdfStructureElement figure2 = article.AppendChildElement(PdfStandardStructTypes.Figure); //Set Alternate text figure2.Alt = "replacement text2"; figure2.BeginMarkedContent(doc.Pages[0], null); doc.Pages[0].Canvas.DrawRectangle(PdfPens.Black, new Rectangle(300, 200, 100, 100)); figure2.EndMarkedContent(doc.Pages[0]); //保存文档 doc.SaveToFile("CreatePDFUAFile_result.pdf"); System.Diagnostics.Process.Start("CreatePDFUAFile_result.pdf"); } } }
VB.NET
Imports Spire.Pdf Imports Spire.Pdf.Graphics Imports Spire.Pdf.Interchange.TaggedPdf Imports System.Drawing Namespace CreatePDFUAfile Class Program Private Shared Sub Main(args As String()) '创建PdfDocument类的对象 Dim doc As New PdfDocument() '添加一页 doc.Pages.Add() '设置tab order doc.Pages(0).SetTabOrder(TabOrder.[Structure]) '创建PdfTaggedContent类的对象 Dim taggedContent As New PdfTaggedContent(doc) taggedContent.SetLanguage("en-US") taggedContent.SetTitle("test") '设置PDF/UA1验证 taggedContent.SetPdfUA1Identification() '创建字体、画刷 Dim font As New PdfTrueTypeFont(New Font("Times New Roman", 10), True) Dim brush As New PdfSolidBrush(Color.Black) '添加要素 Dim article As PdfStructureElement = taggedContent.StructureTreeRoot.AppendChildElement(PdfStandardStructTypes.Document) Dim paragraph1 As PdfStructureElement = article.AppendChildElement(PdfStandardStructTypes.Paragraph) Dim span1 As PdfStructureElement = paragraph1.AppendChildElement(PdfStandardStructTypes.Span) span1.BeginMarkedContent(doc.Pages(0)) Dim format As New PdfStringFormat(PdfTextAlignment.Justify) doc.Pages(0).Canvas.DrawString("PDF/UA was published as ISO Standard 14289-1 in August 2012" + " and is by far the first complete definition " + "of a set of requirements for universally accessible PDF documents.", font, brush, New Rectangle(40, 80, 450, 80), format) span1.EndMarkedContent(doc.Pages(0)) Dim paragraph2 As PdfStructureElement = article.AppendChildElement(PdfStandardStructTypes.Paragraph) paragraph2.BeginMarkedContent(doc.Pages(0)) doc.Pages(0).Canvas.DrawString("The PDF/UA has some definite requirements at its base that act as the essence of this standard.", font, brush, New Rectangle(40, 120, 450, 60), format) paragraph2.EndMarkedContent(doc.Pages(0)) Dim figure1 As PdfStructureElement = article.AppendChildElement(PdfStandardStructTypes.Figure) 'Set Alternate text figure1.Alt = "replacement text1" figure1.BeginMarkedContent(doc.Pages(0), Nothing) Dim image As PdfImage = PdfImage.FromFile("logo.jpg") doc.Pages(0).Canvas.DrawImage(image, New PointF(40, 200), New SizeF(100, 100)) figure1.EndMarkedContent(doc.Pages(0)) Dim figure2 As PdfStructureElement = article.AppendChildElement(PdfStandardStructTypes.Figure) 'Set Alternate text figure2.Alt = "replacement text2" figure2.BeginMarkedContent(doc.Pages(0), Nothing) doc.Pages(0).Canvas.DrawRectangle(PdfPens.Black, New Rectangle(300, 200, 100, 100)) figure2.EndMarkedContent(doc.Pages(0)) '保存文档 doc.SaveToFile("CreatePDFUAFile_result.pdf") System.Diagnostics.Process.Start("CreatePDFUAFile_result.pdf") End Sub End Class End Namespace
—END—
相关阅读推荐:C# 创建标签PDF文件
转载自: https://www.cnblogs.com/Yesi/archive/2022/08/24/16618895.html