C#/VB.NET 实现在PDF表格中添加条形码

条码的应用已深入生活和工作的方方面面。在处理条码时，常需要和各种文档格式相结合。当需要在文档中插入、编辑或者删除条码时，可借助于一些专业的类库工具来实现。本文，以操作PDF文件为例，介绍如何在编辑表格时，向单元格中插入条形码。

类库引入及代码思路

本次功能测试中，使用 Free Spire.PDF for .NET。

实现功能的大致思路：生成条形码，将条形码保存为图片，然后在PDF中的表格单元格中插入条码图片。

Spire.PDF for .NET 中的Spire.Pdf.Barcode namespace提供了多种Barcode类型，用于满足创建不同类型barcode的需求，如图：

Spire.Pdf.dll文件的引入方法如下：

方法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

代码示例

C#

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

namespace AddBarcodeToTable
{
   class Program
   {
       static void Main(string[] args)
       {
           //创建PDF文档
           PdfDocument pdf = new PdfDocument();
           PdfPageBase page = pdf.Pages.Add();  

//创建PdfGrid类的表格对象
           PdfGrid grid = new PdfGrid();
           grid.Style.CellPadding = new PdfPaddings(1, 1, 1, 1);
           grid.Style.Font = new PdfTrueTypeFont(new Font("Arial Unicode MS", 9f), true);

//添加2行2列到表格
           PdfGridRow row1 = grid.Rows.Add();
           PdfGridRow row2 = grid.Rows.Add();      
           grid.Columns.Add(2);

//设置列宽
           foreach (PdfGridColumn column in grid.Columns)
           {
               column.Width = 150f;
           }

//在单元格中写入数据
           row1.Cells[0].Value = "产品编号";
           row1.Cells[1].Value = "条码";
           row2.Cells[0].Value = "B0215";

//创建条码
           PdfCodabarBarcode barcode1 = new PdfCodabarBarcode("00:12-3456/7890");
           barcode1.BarcodeToTextGapHeight = 1f;
           barcode1.EnableCheckDigit = true;
           barcode1.ShowCheckDigit = true;          
           barcode1.TextDisplayLocation = TextLocation.Bottom;
           barcode1.TextColor = Color.Blue;          

//将条码保存为图片到指定路径
           Image image =barcode1.ToImage();          
           image.Save(@"F:/VS2017Project/DrawTable_PDF/AddBarcodeToTable/bin/Debug/BarcodeImage.png");

//将条码图片添加到表格单元格
           string imgpath = "F:/VS2017Project/DrawTable_PDF/AddBarcodeToTable/bin/Debug/BarcodeImage.png";          
           PdfGridCellContentList contentList = new PdfGridCellContentList();
           PdfGridCellContent content = new PdfGridCellContent();
           SizeF imageSize = new SizeF(120, 80);
           content.ImageSize = imageSize;
           content.Image = PdfImage.FromFile(imgpath);          
           contentList.List.Add(content);
           row2.Cells[1].Value = contentList;          

//绘制表格到页面指定位置
           grid.Draw(page, new PointF(0, 40));

//保存PDF文档
           pdf.SaveToFile("AddBarcodeToTable.pdf",FileFormat.PDF);
           System.Diagnostics.Process.Start("AddBarcodeToTable.pdf");
       }
   }
}

vb.net

Imports Spire.Pdf
Imports Spire.Pdf.Barcode
Imports Spire.Pdf.Graphics
Imports Spire.Pdf.Grid
Imports System.Drawing

Namespace AddBarcodeToTable
   Class Program
       Private Shared Sub Main(args As String())
           '创建PDF文档
           Dim pdf As New PdfDocument()
           Dim page As PdfPageBase = pdf.Pages.Add()

'创建PdfGrid类的表格对象
           Dim grid As New PdfGrid()
           grid.Style.CellPadding = New PdfPaddings(1, 1, 1, 1)
           grid.Style.Font = New PdfTrueTypeFont(New Font("Arial Unicode MS", 9F), True)

'添加2行2列到表格
           Dim row1 As PdfGridRow = grid.Rows.Add()
           Dim row2 As PdfGridRow = grid.Rows.Add()
           grid.Columns.Add(2)

'设置列宽
           For Each column As PdfGridColumn In grid.Columns
               column.Width = 150F
           Next

'在单元格中写入数据
           row1.Cells(0).Value = "产品编号"
           row1.Cells(1).Value = "条码"
           row2.Cells(0).Value = "B0215"

'创建条码
           Dim barcode1 As New PdfCodabarBarcode("00:12-3456/7890")
           barcode1.BarcodeToTextGapHeight = 1F
           barcode1.EnableCheckDigit = True
           barcode1.ShowCheckDigit = True
           barcode1.TextDisplayLocation = TextLocation.Bottom
           barcode1.TextColor = Color.Blue

'将条码保存为图片到指定路径
           Dim image As Image = barcode1.ToImage()
           image.Save("F:/VS2017Project/DrawTable_PDF/AddBarcodeToTable/bin/Debug/BarcodeImage.png")

'将条码图片添加到表格单元格
           Dim imgpath As String = "F:/VS2017Project/DrawTable_PDF/AddBarcodeToTable/bin/Debug/BarcodeImage.png"
           Dim contentList As New PdfGridCellContentList()
           Dim content As New PdfGridCellContent()
           Dim imageSize As New SizeF(120, 80)
           content.ImageSize = imageSize
           content.Image = PdfImage.FromFile(imgpath)
           contentList.List.Add(content)
           row2.Cells(1).Value = contentList

'绘制表格到页面指定位置
           grid.Draw(page, New PointF(0, 40))

'保存PDF文档
           pdf.SaveToFile("AddBarcodeToTable.pdf", FileFormat.PDF)
           System.Diagnostics.Process.Start("AddBarcodeToTable.pdf")
       End Sub
   End Class
End Namespace

文档效果：

来源：https://www.cnblogs.com/Yesi/p/16336850.html