\'定义要保存的文件名
Dim file As String = "c:\\Demo.pdf"
\'创建 PDF 文档
Dim dc As new iTextSharp.text.Document()
\'创建实例,PDF 文件将会保存到这里
iTextSharp.text.pdf.PdfWriter.GetInstance(dc,new System.IO.FileStream(file,System.IO.FileMode.Create))
\'打开文档
dc.Open()
\'定义一个字体
Dim f As iTextSharp.text.pdf.BaseFont = iTextSharp.text.pdf.BaseFont.CreateFont("C:\\WINDOWS\\Fonts\\SIMYOU.TTF", iTextSharp.text.pdf.BaseFont.IDENTITY_H, iTextSharp.text.pdf.BaseFont.NOT_EMBEDDED)
\'写入一个段落
Dim ft As new iTextSharp.text.Font(f,12)
Dim p As new iTextSharp.text.Paragraph("你好, 这是用Foxtable创建的PDF文档 !",ft)
dc.add(p)
dc.Close()
\'打开生成的文件
If FileSys.FileExists(file) Then
    Dim Proc As New Process \'定义一个新的Process
    Proc.File = file \'指定要打开的文件
    Proc.Start()
End If

don兄,以上代码win7系统测试通过。