我想要源码,最好有例子,谢了兄弟们!!!
解决方案 »
- javascript如何取得showModalDialog的返回值returnValue?
- 在vs2008 用B/S做一个播放器
- Iframe刷新问题
- 急!Datalist编辑状态下Dropdownlist的联动问题?
- 为什么在.NET2003中浏览一点问题也没有,在IE中运行,有的安钮就不起用了.
- 请大家讨论一下:SqlServer2000/2005 通用分页(不用存储过程)的写法有那些,性能如何???
- 简单的字符串打印问题在线等
- 新手发问:数据库读取问题
- 为什么把TextBox中的数据[汉字]插入到SQL Server中后变成了'??'?[通宵在线等待]
- 急急急急急!!!?帮忙啊?
- 菜鸟提问,请高手回答。在datagrid编辑模式下如何能控制单元格宽度?
- asp.net中,使用using msxml2;报错,系统提示没有命名空间。
Dim split As String() = PageName.Split(New [Char]() {"|"})
Dim Title As String
Title = split(0) + vbCrLf + split(1) Dim pdf As New Document(PageSize.A4, 10, 10, 25, 20)
Dim writer As PdfWriter = PdfWriter.getInstance(pdf, New FileStream(Server.MapPath("../Pdf/") & FileName & ".pdf", FileMode.Create))
writer.setEncryption(PdfWriter.STRENGTH40BITS, "", "myadmin", 6) 'Dim writer As PdfWriter = PdfWriter.getInstance(pdf, New FileStream(Server.MapPath(FileName & ".pdf"), FileMode.Create))
'add pdf file summary
pdf.addProducer("wxy PDF")
pdf.addCreationDate()
pdf.addTitle(split(0))
pdf.addSubject("PDF Report")
pdf.addCreator("Mothers and Babies Information System version 1.0")
pdf.addAuthor("Admin")
pdf.addHeader("Expires", "0") 'add pdf header Dim pdfHeader As HeaderFooter = New HeaderFooter(New Phrase(15, Title, FontFactory.getFont(FontFactory.TIMES_NEW_ROMAN, 13, Font.BOLD)), False)
pdfHeader.Border = Rectangle.BOX pdfHeader.BorderWidth = 0.5
pdfHeader.BackgroundColor = New Color(192, 192, 192)
pdfHeader.Alignment = Element.ALIGN_CENTER
pdf.Header = pdfHeader 'add pdf footer
' Dim p As New Paragraph 'Dim Nursing_info As String
'Nursing_info = " " & NursingHome
'Nursing_info = Nursing_info & " Tel: " & tel & " Fax: " & fax & vbCrLf
'Nursing_info = Nursing_info & " Email: " & email
'Nursing_info = Nursing_info & " Address: " & address & vbCrLf
'Nursing_info = Nursing_info & " Page: "
Dim print_info As String = "Mothers & Babies Information System 1.0 page:" Dim pdfFooter As HeaderFooter = New HeaderFooter(New Phrase(10, print_info, FontFactory.getFont(FontFactory.TIMES_NEW_ROMAN, 8, Font.ITALIC)), True)
pdfFooter.Border = Rectangle.BOX
pdfFooter.BorderWidth = 0.5
pdfFooter.BackgroundColor = New Color(192, 192, 192)
pdfFooter.Alignment = Element.ALIGN_CENTER
pdf.Footer = pdfFooter Return pdf
End Function
http://www.developerfusion.com/show/4266/
http://www.codeproject.com/aspnet/HTML2PDF.asp