【发布时间】:2020-01-15 21:22:32
【问题描述】:
我正在尝试使用 .NET 中的 iText7 删除表格中单元格周围的边框。我在任何地方都尝试过 SetBorder(Border.NO_BORDER) ,但没有运气。请参阅下面的代码和pdf:
Dim writer As New PdfWriter(dest)
Dim pdf As New PdfDocument(writer)
Dim pdfdoc As New Document(pdf)
pdfdoc.SetMargins(5, 5, 5, 15)
Dim CLSHdr As New Table({100, 470, 370}) : CLSHdr.SetBorder(Border.NO_BORDER)
Dim AddTbl As New Table(1) : AddTbl.SetBorder(Border.NO_BORDER)
Dim pdfCell As New Cell : pdfCell.SetBorder(Border.NO_BORDER)
Dim logo As New Image(ImageDataFactory.Create("Image.jpg")) : logo.Scale(0.5, 0.5)
pdfCell.Add(logo)
CLSHdr.AddCell(pdfCell)
CLSHdr.SetBorder(Border.NO_BORDER)
CLSHdr.AddCell(New Cell().Add(New Paragraph(" "))).SetBorder(Border.NO_BORDER)
CLSHdr.SetBorder(Border.NO_BORDER)
pdfCell = New Cell().Add(New Paragraph("First Row"))
pdfCell.SetBorder(Border.NO_BORDER).SetMaxHeight(16)
AddTbl.AddCell(pdfCell)
pdfCell = New Cell().Add(New Paragraph("Second Row"))
pdfCell.SetBorder(Border.NO_BORDER).SetMaxHeight(16)
AddTbl.AddCell(pdfCell)
pdfCell = New Cell().Add(New Paragraph("Third Row"))
pdfCell.SetBorder(Border.NO_BORDER).SetMaxHeight(16)
AddTbl.AddCell(pdfCell)
pdfCell = New Cell().Add(New Paragraph("Fourth"))
pdfCell.SetBorder(Border.NO_BORDER).SetMaxHeight(16)
AddTbl.AddCell(pdfCell)
AddTbl.SetBorder(Border.NO_BORDER)
CLSHdr.SetBorder(Border.NO_BORDER)
CLSHdr.AddCell(AddTbl).SetWidth(500).SetBorder(Border.NO_BORDER)
pdfdoc.Add(CLSHdr).SetBorder(Border.NO_BORDER)
pdfdoc.Close()
生成的 pdf:
【问题讨论】: