C#/VB.NET 合并PDF页面 cba_VisualBasic_编程语言

C#/VB.NET 合并PDF页面 cba

2023-02-09 学习力0

核心提示：本文以C#及vb.net代码为例介绍如何来实现合并PDF页面内容。本文中的合并并非将两个文档简单合并为一个文档，而是将多个页面内容合并到一个页面，目的是减少页面上的空白区域，使页面布局更为紧凑、合理。下面，将分别从两个示例来展示合并，即：从两个PDF文档

本文以C#及vb.net代码为例介绍如何来实现合并PDF页面内容。本文中的合并并非将两个文档简单合并为一个文档，而是将多个页面内容合并到一个页面，目的是减少页面上的空白区域，使页面布局更为紧凑、合理。下面，将分别从两个示例来展示合并，即：

从两个PDF文档页面实现页面合并
在同一个PDF文档实现页面合并

【程序环境】

方法1

在程序中引入Spire.Pdf.dll文件；将 Free Spire.PDF for .NET下载到本地，解压，安装。安装完成后，找到安装路径下BIN文件夹中的Spire.Pdf.dll。然后在Visual Studio中打开“解决方案资源管理器”，鼠标右键点击“引用”，“添加引用”，将本地路径BIN文件夹下的dll文件添加引用至程序。

方法2

通过 NuGet 安装。可通过以下2种方法安装：

1. 可以在Visual Studio中打开“解决方案资源管理器”，鼠标右键点击“引用”，“管理NuGet包”，然后搜索“ Free Spire.PDF ”，点击“安装”。等待程序安装完成。

2. 将以下内容复制到PM控制台安装：

Install-Package FreeSpire.PDF -Version 8.2.0

【代码示例】

1.从两个PDF文档页面实现页面合并

（合并前）需要将文件1的内容合并到文件2的第二页空白处：

using Spire.Pdf;
using Spire.Pdf.Graphics;
using System.Drawing;

namespace MergePages
{
    class Program
    {
        static void Main(string[] args)
        {
            //加载两个PDF文档
            PdfDocument pdf1 = new PdfDocument();
            pdf1.LoadFromFile("test1.pdf");
            PdfDocument pdf2 = new PdfDocument();
            pdf2.LoadFromFile("test2.pdf");

            //创建模板
            PdfTemplate template = pdf1.Pages[0].CreateTemplate();

            //获取文档2中的第2页
            PdfPageBase page2 = pdf2.Pages[1];
            //设置透明度
            page2.Canvas.SetTransparency(1f, 1f, PdfBlendMode.Overlay);
            //在页面指定位置绘制模板
            page2.Canvas.DrawTemplate(template, new PointF(0, 300));  

            //保存文档
            pdf2.SaveToFile("mergepages.pdf");
        }
    }
}

合并后的效果：

VB.NET

Imports Spire.Pdf
Imports Spire.Pdf.Graphics
Imports System.Drawing

Namespace MergePages
    Class Program
        Private Shared Sub Main(args As String())
            '加载两个PDF文档
            Dim pdf1 As New PdfDocument()
            pdf1.LoadFromFile("test1.pdf")
            Dim pdf2 As New PdfDocument()
            pdf2.LoadFromFile("test2.pdf")

            '创建模板
            Dim template As PdfTemplate = pdf1.Pages(0).CreateTemplate()

            '获取文档2中的第2页
            Dim page2 As PdfPageBase = pdf2.Pages(1)
            '设置透明度
            page2.Canvas.SetTransparency(1F, 1F, PdfBlendMode.Overlay)
            '在页面指定位置绘制模板
            page2.Canvas.DrawTemplate(template, New PointF(0, 300))

            '保存文档
            pdf2.SaveToFile("mergepages.pdf")
        End Sub
    End Class
End Namespace

2.在同一个PDF文档实现页面合并

（合并前）将同一个文档中，第2页中的内容绘制到第1页空白处，并删掉多余的空白页：

using Spire.Pdf;
using Spire.Pdf.Graphics;
using System.Drawing;

namespace MergePage2
{
    class Program
    {
        static void Main(string[] args)
        {
            //加载PDF文档
            PdfDocument pdf = new PdfDocument("sample.pdf");

            //创建模板
            PdfTemplate template = pdf.Pages[1].CreateTemplate();

            //获取第一个页面
            PdfPageBase page1 = pdf.Pages[0];

            //获取第二个页面
            PdfPageBase page2 = pdf.Pages[1];

            //设置透明度和重叠样式 
            page2.Canvas.SetTransparency(1f, 1f, PdfBlendMode.Overlay);

            //将第二页中的内容绘制到第一页指定位置
            page1.Canvas.DrawTemplate(template, new PointF(0, 240));

            //删除第二页`
            pdf.Pages.RemoveAt(1);

            //保存文档
            pdf.SaveToFile("MergePage2.pdf",FileFormat.PDF);
        }
    }
}

合并后的效果：

VB.NET

Imports Spire.Pdf
Imports Spire.Pdf.Graphics
Imports System.Drawing

Namespace MergePage2
    Class Program
        Private Shared Sub Main(args As String())
            '加载PDF文档
            Dim pdf As New PdfDocument("sample.pdf")

            '创建模板
            Dim template As PdfTemplate = pdf.Pages(1).CreateTemplate()

            '获取第一个页面
            Dim page1 As PdfPageBase = pdf.Pages(0)

            '获取第二个页面
            Dim page2 As PdfPageBase = pdf.Pages(1)

            '设置透明度和重叠样式 
            page2.Canvas.SetTransparency(1F, 1F, PdfBlendMode.Overlay)

            '将第二页中的内容绘制到第一页指定位置
            page1.Canvas.DrawTemplate(template, New PointF(0, 240))

            '删除第二页`
            pdf.Pages.RemoveAt(1)

            '保存文档
            pdf.SaveToFile("MergePage2.pdf", FileFormat.PDF)
        End Sub
    End Class
End Namespace

另推荐阅读：

—END—

免责声明：本文仅代表作者个人观点，与乐学笔记（本网）无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
本网站有部分内容均转载自其它媒体，转载目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责，若因作品内容、知识产权、版权和其他问题，请及时提供相关证明等材料并与我们留言联系，本网站将在规定时间内给予删除等相关处理.