C#/VB.NET怎么创建PDF/UA文件

发布时间:2022-08-24 13:53:34 作者:iii
来源:亿速云 阅读:169

这篇文章主要介绍“C#/VB.NET怎么创建PDF/UA文件”,在日常操作中,相信很多人在C#/VB.NET怎么创建PDF/UA文件问题上存在疑惑,小编查阅了各式资料,整理出简单好用的操作方法,希望对大家解答”C#/VB.NET怎么创建PDF/UA文件”的疑惑有所帮助!接下来,请跟着小编一起来学习吧!

1.什么是PDF/UA文件

PDF/UA,即Universally Accessible PDF,该格式的PDF文件是于2012年8月以ISO标准14289-1发布的、具有普遍可访问的PDF文档标准。为带标签的PDF文档(Tagged PDF Document)和表单的开发人员和作者设定了明确的规则。(PDF/UA-1是作为PDF/UA标准的第一部分,PDF/UA-2作为PDF/UA标准的第二部分)

2.文件格式要求

PDF/UA在其基础上有着明确的要求,即该标准都是基于PDF标签,所有PDF/UA文档都必须以PDF标签来正确标记,并且,要求标签在语义上适当,并按逻辑顺序排列。

3.如何创建PDF/UA文件

PDF/UA文件作为PDF文件的一种标准格式,要创建该标准的的PDF文档,可使用调用PDF API的方法来创建。下面,是以Spire.PDF for .NET来创建的方法。

可在Visual Studio 中通过NuGet搜索“Spire.PDF”安装dll到程序中;

或者下载包(hotfix版本)到本地,手动添加本地路径下的Spire.Pdf.dll文件到程序。

C#

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 paragraph2 = article.AppendChildElement(PdfStandardStructTypes.Paragraph);
            PdfStructureElement span1 = paragraph2.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 paragraph3 = article.AppendChildElement(PdfStandardStructTypes.Paragraph);
            paragraph3.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);
            paragraph3.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 paragraph2 As PdfStructureElement = article.AppendChildElement(PdfStandardStructTypes.Paragraph)
            Dim span1 As PdfStructureElement = paragraph2.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 paragraph3 As PdfStructureElement = article.AppendChildElement(PdfStandardStructTypes.Paragraph)
            paragraph3.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)
            paragraph3.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

C#/VB.NET怎么创建PDF/UA文件

到此,关于“C#/VB.NET怎么创建PDF/UA文件”的学习就结束了,希望能够解决大家的疑惑。理论与实践的搭配能更好的帮助大家学习,快去试试吧!若想继续学习更多相关知识,请继续关注亿速云网站,小编会继续努力为大家带来更多实用的文章!

推荐阅读:
  1. 如何使用C#或VB.NET给Word文档添加/撤销书签
  2. vb和vb.net的有什么区别

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

vb.net

上一篇:Redis处理接口幂等性的方案有哪些

下一篇:Vue怎么实现图片裁剪功能

相关阅读

您好,登录后才能下订单哦!

密码登录
登录注册
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》