'定义字体
Dim bs As iTextSharp.text.pdf.BaseFont = iTextSharp.text.pdf.BaseFont.CreateFont("C:\WINDOWS\Fonts\方正小标宋简体.TTF", _
iTextSharp.text.pdf.BaseFont.IDENTITY_H, iTextSharp.text.pdf.BaseFont.NOT_EMBEDDED)
Dim yh As iTextSharp.text.pdf.BaseFont = iTextSharp.text.pdf.BaseFont.CreateFont("C:\WINDOWS\Fonts\msyh.TTF", _
iTextSharp.text.pdf.BaseFont.IDENTITY_H, iTextSharp.text.pdf.BaseFont.NOT_EMBEDDED) '雅黑
'定义要保存的文件名及路径
Dim file As String = ProjectPath & "PDF\Demo.pdf"
'创建 PDF 文档
Dim dc As new iTextSharp.text.Document()
dc = new iTextSharp.text.Document(iTextSharp.text.PageSize.A4,27,27,37,0) 'A4紙,左右上下邊距
'创建实例,PDF 文件将会保存到这里
iTextSharp.text.pdf.PdfWriter.GetInstance(dc,new System.IO.FileStream(file,System.IO.FileMode.Create))
'打开文档,开始写入
dc.Open()
Dim str As String
With Tables("生成_table1")
For Each Currow As Row In .GetCheckedRows
'写入第一个段落
Dim tm As new iTextSharp.text.Font(bs,48)
str = Currow("题目")
Dim p As new iTextSharp.text.Paragraph(str,tm)
p.Alignment = 1 '对齐方式(1为居中,0为居左,2为居右)
p.SpacingAfter = 1 '段后空行数(0为默认值)
dc.add(p)
'写入第二个段落
Dim zw As new iTextSharp.text.Font(fss,36)
str = Currow("正文")
p = new iTextSharp.text.Paragraph(" " & str,zw) '怎样缩进2个字符
p.SpacingBefore = 1 '段前空行数(0为默认值)
p.MultipliedLeading = 2 '行间距(0为默认值)
dc.add(p)
dc.newpage '换页
Next
End With
dc.Close() '写入完成
web.address = file
加好友 
发短信
Post By：2019/5/12 11:10:00 [只看该作者]
