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

类库引入及代码思路
代码示例

C#
vb.net

条码的应用已深入生活和工作的方方面面。在处理条码时，常需要和各种文档格式相结合。当需要在文档中插入、编辑或者删除条码时，可借助于一些专业的类库工具来实现。本文，以操作PDF文件为例，介绍如何在编辑表格时，向单元格中插入条形码。
【C#/VB.NET|C#/VB.NET 实现在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 = "https://www.it610.com/article/产品编号"; row1.Cells[1].Value = "https://www.it610.com/article/条码"; row2.Cells[0].Value = "https://www.it610.com/article/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 = https://www.it610.com/article/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.PdfImports Spire.Pdf.BarcodeImports Spire.Pdf.GraphicsImports Spire.Pdf.GridImports System.DrawingNamespace AddBarcodeToTableClass ProgramPrivate 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.Columnscolumn.Width = 150FNext'在单元格中写入数据 row1.Cells(0).Value = "https://www.it610.com/article/产品编号"row1.Cells(1).Value = "https://www.it610.com/article/条码"row2.Cells(0).Value = "https://www.it610.com/article/B0215"'创建条码Dim barcode1 As New PdfCodabarBarcode("00:12-3456/7890")barcode1.BarcodeToTextGapHeight = 1Fbarcode1.EnableCheckDigit = Truebarcode1.ShowCheckDigit = Truebarcode1.TextDisplayLocation = TextLocation.Bottombarcode1.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 = imageSizecontent.Image = PdfImage.FromFile(imgpath)contentList.List.Add(content)row2.Cells(1).Value = https://www.it610.com/article/contentList'绘制表格到页面指定位置grid.Draw(page, New PointF(0, 40))'保存PDF文档pdf.SaveToFile("AddBarcodeToTable.pdf", FileFormat.PDF)System.Diagnostics.Process.Start("AddBarcodeToTable.pdf")End SubEnd ClassEnd Namespace

文档效果：