ItextSharp VB的Y页

时间:2014-09-01 02:24:08

标签: vb.net itextsharp

嗨,大家好,我曾尝试过很多方法来制作这个(页面总数)页面的第x页。

请帮助,因为那里没有很多vb文章的指导,我做的是我试图调用document.PageNumber和

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

    Dim pageNumber As Integer = writer.PageNumber

    cb.BeginText()
    cb.SetFontAndSize(bf, 12)
    cb.SetTextMatrix(1000, 30)
    cb.ShowText("Footer Text Here" + "or" + CStr(pageNumber))
    cb.EndText()

End Sub

但无论我如何尝试,我只获得该页面的PageNumber。 我试着做一个pageNumber

0 个答案:

没有答案