田草博客

互联网田草博客


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件 | ID
-随机-|-分布-
-博客论坛-|-﨣﨤﨧﨨-
-网站导航-|-规范下载-
-BelovedFLash欣赏-

用户登陆
用户:
密码:
 

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新评论



iTextSharp 给PDF加图片水印 VB6 ComboBox 记录打开文件历史记录
未知 iTextSharp_PDF加文字   [ 日期:2014-05-12 ]   [ 来自:本站原创 ]  HTML
Imports System.IO
Imports System.Text
Imports iTextSharp.text
Imports iTextSharp.text.pdf
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim PdfReader As New iTextSharp.text.pdf.PdfReader("C:\Old.PDF")
            Dim NumberOfPages As Integer = PdfReader.NumberOfPages
            Dim PageSize As Rectangle = PdfReader.GetPageSize(1)
            Dim PageSizeW As Single = PageSize.Width
            Dim PageSizeH As Single = PageSize.Height
            Dim OutputStream As New FileStream("C:\New.PDF", FileMode.Create)
            Dim PdfStamper As New iTextSharp.text.pdf.PdfStamper(PdfReader, OutputStream)
            Dim PC As iTextSharp.text.pdf.PdfContentByte = Nothing
            Dim BF As BaseFont = BaseFont.CreateFont("c:\\windows\\fonts\\simkai.ttf", BaseFont.IDENTITY_H, BaseFont.NOT_EMBEDDED)
            Dim BC As BaseColor = New BaseColor(0, 0, 0)
            Dim i As Integer = 1
            While i <= NumberOfPages
                PC = PdfStamper.GetUnderContent(i)
                PC.BeginText()
                PC.SetFontAndSize(BF, 9)
                PC.SetColorFill(BC)
                PC.SetTextMatrix(PC.PdfDocument.Left, PC.PdfDocument.Top)
                'PC.ShowText(Me.TextBox1.Text)
                PC.ShowTextAligned(Element.ALIGN_CENTER, Me.TextBox1.Text, (PC.PdfDocument.Right + PC.PdfDocument.Left) / 2, PC.PdfDocument.Top, 0)
                PC.SetTextMatrix(PC.PdfDocument.Right, PC.PdfDocument.Top)
                PC.ShowTextAligned(Element.ALIGN_RIGHT, "第" & i & "页/共" & NumberOfPages & "页", PC.PdfDocument.Right, PC.PdfDocument.Top, 0)
                PC.SetTextMatrix(PC.PdfDocument.Right, PC.PdfDocument.Bottom)
                PC.ShowTextAligned(Element.ALIGN_RIGHT, Me.TextBox2.Text & "  第" & i & "页/共" & NumberOfPages & "页", PC.PdfDocument.Right, PC.PdfDocument.Bottom, 0)
                PC.EndText()
                '画线 
                PC.SetLineWidth(0)
                PC.SetColorStroke(BaseColor.BLACK)
                PC.MoveTo(PC.PdfDocument.Left, PC.PdfDocument.Top - 2)
                PC.LineTo(PC.PdfDocument.Right, PC.PdfDocument.Top - 2)
                PC.Stroke()
                '画线 
                PC.SetColorStroke(BaseColor.BLACK)
                PC.MoveTo(PC.PdfDocument.Left, PC.PdfDocument.Bottom + 10)
                PC.LineTo(PC.PdfDocument.Right, PC.PdfDocument.Bottom + 10)
                PC.Stroke()
                System.Math.Max(System.Threading.Interlocked.Increment(i), i - 1)
            End While
            PdfStamper.Close()
            PdfReader.Close()
        Catch generatedExceptionName As Exception
        End Try
    End Sub

End Class

【iTextSharp_PDF加文字.zip】点击下载此文件



暂时没有评论
发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:   注册? 验证:  防止恶意留言请输入问题答案:1*6=?  
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字

字体样式 文字大小 文字颜色
插入粗体文本 插入斜体文本 插入下划线
左对齐 居中对齐 右对齐
插入超级链接 插入邮件地址 插入图像
插入 Flash 插入代码 插入引用
插入列表 插入音频文件 插入视频文件
插入缩进符合
点击下载按钮 下标 上标
水平线 简介分割标记
表  情
 
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©