嗨,大家好,我曾尝试过很多方法来制作这个(页面总数)页面的第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