问题描述
你好，
我尝试使用iTextSharp创建一个PDF，该PDF从表单中读取值，然后从DATAGRIDVIEW中插入其中的值.
因此，在DATAGRIDVIEW的特定行数之后，我想创建一个新页面(PdfFile.NewPage).
这段代码将DATAGRIDVIEW写入Pdf:
Hello,
I try to create a PDF with iTextSharp which reads the values out of a form and wich are inserted from a DATAGRIDVIEW.
So, after a specific amount of lines of the DATAGRIDVIEW I want to create a new page(PdfFile.NewPage).
This code writes the DATAGRIDVIEW into a Pdf:
For i As Integer = 0 To DataGridView1.Rows.Count - 2
For j As Integer = 0 To DataGridView1.Columns.Count - 1
pdfcell = New PdfPCell(New Phrase(DataGridView1(j, i).Value.ToString(), pTable))
PdfTable.HorizontalAlignment = PdfPCell.ALIGN_LEFT
PdfTable.AddCell(pdfcell)
Next
Next
PdfFile.Add(PdfTable)
这样做的原因是因为DATAGRIDVIEW覆盖了页脚.
在20 DATAGRIDVIEW行之后，应跟随PdfFile.NewPage().在第二页上，应继续21 DATAGRIDVIEW行.
例如，在50行之后，出现一个新页面...
那是页脚的代码:
The reason for doing that is because the DATAGRIDVIEW overwrites the footer.
After 20 DATAGRIDVIEW lines a PdfFile.NewPage() should follow. On the second page it should continue with the 21 DATAGRIDVIEW line.
For example after 50 lines a new page...
That`s the code of the footer:
Inherits PdfPageEventHelper
Public Overrides Sub OnendPage(ByVal writer As iTextSharp.text.pdf.PdfWriter, ByVal document As iTextSharp.text.Document)
Dim bf As BaseFont = BaseFont.CreateFont(BaseFont.HELVETICA, BaseFont.CP1252, BaseFont.NOT_EMBEDDED)
Dim cb As PdfContentByte = writer.DirectContent
cb.BeginText()
cb.SetFontAndSize(bf, 12)
cb.SetTextMatrix(50, 30)
cb.ShowText("TEXTTEXT " & writer.PageNumber)
cb.EndText()
我已经尝试过了，它只是创建了下一页，但仍然覆盖了页脚:
I already tried this it just creating the next page but still overwrites the footer:
For i As Integer = 0 To DataGridView1.Rows.Count - 2
For j As Integer = 0 To DataGridView1.Columns.Count - 1
pdfcell = New PdfPCell(New Phrase(DataGridView1(j, i).Value.ToString(), pTable))
PdfTable.HorizontalAlignment = PdfPCell.ALIGN_LEFT
PdfTable.AddCell(pdfcell)
Next
Select Case i
Case 20, 30, 60, 99
PdfFile.NewPage()
End Select
Next
PdfFile.Add(PdfTable)
预先感谢您的帮助.
问候
GerryGras
Thanks in advance for your help.
Greetings
GerryGras
推荐答案
您可以使用任意多的列，在一定程度上但在我的示例中，我将Load事件中的代码设置为为每行添加5列的值.另外，我使用了一个特殊的子函数，将每个单元格添加到文档中. 进行设置时，您可以在创建每个单元格时控制其字体和文本的对齐方式.如果您希望页面上的不同单元格以不同的方式对齐，则非常方便.例如，标头文本居中，数据单元格 保持对齐，如下面的示例图片所示.
You can use however many columns you want, to an extent, but in my example i have the code in the Load event set up to add values for 5 columns for each row. Also, i used a special sub that i call to add each Cell to the document. It is set up so that you can control the font and alignment of the text in each cell as it is created. Kind of handy if you wanted different cells on the pages aligned differently. For example, the header text centered and the data cells left aligned as seen in my example image below.
页面上适合的列和行的数量将取决于A3之类的文档的大小， A4， A5，等等...这也将取决于您用于所有内容的字体大小.您可以 想要根据您的需求进行调整.
The amount of columns and rows that will fit on the page is of coarse going to depend on the size of the document like A3, A4, A5, and so on... It will also depend on the Font sizes you use for everything too. You may want to adjust all that to your needs.
Imports System.IO
Imports iTextSharp.text
Imports iTextSharp.text.pdf
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For i As Integer = 1 To 200
DataGridView1.Rows.Add(New Object() {"C1-R" & i.ToString, "C2-R" & i.ToString, "C3-R" & i.ToString, "C4-R" & i.ToString, "C5-R" & i.ToString})
Next
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim MyPdfFilePath As String = "C:\TestFolder\MyPdf.pdf"
Dim pSize As New Rectangle(PageSize.A4)
Dim PdfDoc As Document = New Document(pSize, 10, 10, 10, 10)
Using fs As New FileStream(MyPdfFilePath, FileMode.Create, FileAccess.Write, FileShare.None)
Using pdfWrite As PdfWriter = PdfWriter.GetInstance(PdfDoc, fs)
PdfDoc.Open()
Dim pTable As New PdfPTable(1)
pTable.AddCell(getCell("Page Title For This Document", Element.ALIGN_CENTER, Element.ALIGN_MIDDLE, FontFactory.GetFont("Arial", 20, FontStyle.Bold Or FontStyle.Underline, BaseColor.BLACK), False, BaseColor.WHITE, 15, 35, 3, 3))
PdfDoc.Add(pTable)
Dim cTable As New PdfPTable(DataGridView1.ColumnCount)
For Each col As DataGridViewColumn In DataGridView1.Columns
cTable.AddCell(getCell(col.HeaderText, Element.ALIGN_CENTER, Element.ALIGN_MIDDLE, FontFactory.GetFont("Arial", 12, BaseColor.WHITE), True, BaseColor.BLUE, 3, 3, 3, 3))
Next
Dim tblfont As Font = FontFactory.GetFont("Arial", 9, BaseColor.BLACK)
For i As Integer = 0 To DataGridView1.RowCount - 1
For Each c As DataGridViewCell In DataGridView1.Rows(i).Cells
cTable.AddCell(getCell(c.Value.ToString, Element.ALIGN_LEFT, Element.ALIGN_MIDDLE, tblfont, True, BaseColor.WHITE, 3, 3, 3, 3))
Next
Dim rcnt As Integer = i + 1
'We want to start a new page and put a page number at the bottom of the page if the row count meats one of the following conditions.
'(1) If we are at row 40 then it is the end of the first page. We only want 40 on the first page because it has a header that takes some page space.
'(2) If the row count is greater than 50 and is at an even increment of 50 (after the first 40 rows).
'(3) If it is the last row of the data but, does not meat the first two conditions.
If rcnt = 40 OrElse (rcnt > 50 AndAlso (rcnt - 40) Mod 50 = 0) OrElse rcnt = DataGridView1.RowCount Then
PdfDoc.Add(cTable) 'add the table to the pdf document
'put the page number at the bottom of the page
Dim PgSize As Rectangle = pdfWrite.PageSize
Dim ColText As New ColumnText(pdfWrite.DirectContent)
Dim PgFont As Font = FontFactory.GetFont("Arial", 9, FontStyle.Bold, BaseColor.BLACK)
Dim PgPhrase As New Phrase("Page " & pdfWrite.PageNumber.ToString, PgFont)
ColText.SetSimpleColumn(PgPhrase, PgSize.Bottom - 20, PgSize.Left + 20, PgSize.Right - 20, PgSize.Bottom - 50, 15, Element.ALIGN_CENTER)
ColText.Go()
PdfDoc.NewPage() 'start a new page
cTable = New PdfPTable(DataGridView1.ColumnCount) 'create a new table for the next 50
End If
Next
PdfDoc.Close()
End Using
End Using
PdfDoc.Dispose()
End Sub
''' <summary>Creates a new cell for the table.</summary>
''' <param name="Text">The text string for the cell.</param>
''' <param name="TextHorzAlign">Horizontal alighnment for the text.</param>
''' <param name="TextVertAlign">Vertical alighnment for the text.</param>
''' <param name="TextFont">The font for the text.</param>
''' <param name="ShowBorder">True to show the cell border. False to hide the cell border.</param>
''' <param name="CellBackClr">The background color of the cell.</param>
''' <param name="PadTop">The amount of padding on the top of the text string.</param>
''' <param name="PadBottom">The amount of padding on the bottom of the text string.</param>
''' <param name="PadLeft">The amount of padding on the left of the text string.</param>
''' <param name="PadRight">The amount of padding on the right of the text string.</param>
Public Function getCell(Text As String, TextHorzAlign As Integer, TextVertAlign As Integer, TextFont As Font, ShowBorder As Boolean, CellBackClr As BaseColor, PadTop As Single, PadBottom As Single, PadLeft As Single, PadRight As Single) As PdfPCell
Dim cell As New PdfPCell(New Phrase(Text, TextFont))
cell.BackgroundColor = CellBackClr
cell.PaddingLeft = PadLeft
cell.PaddingRight = PadRight
cell.PaddingTop = PadTop
cell.PaddingBottom = PadBottom
cell.HorizontalAlignment = TextHorzAlign
cell.VerticalAlignment = TextVertAlign
If Not ShowBorder Then cell.Border = PdfPCell.NO_BORDER
Return cell
End Function
End Class
这篇关于iTextSharp中的新页面的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！