首页 > 编程语言> 文章详细

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

2022-06-02 10:33:16 阅读：172 来源： 互联网

标签：Dim VB C# Spire grid Pdf PDF barcode1

条码的应用已深入生活和工作的方方面面。在处理条码时，常需要和各种文档格式相结合。当需要在文档中插入、编辑或者删除条码时，可借助于一些专业的类库工具来实现。本文，以操作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

【代码示例】

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

文档效果：

—END—

标签：Dim,VB,C#,Spire,grid,Pdf,PDF,barcode1
来源： https://www.cnblogs.com/Yesi/p/16336850.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

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

【类库引入及代码思路】

【代码示例】