如何用C#把网页转换成PDF文件,我下了程序,调不过去,朋友们能帮我一次吗?
我想要源码,最好有例子,谢了兄弟们!!
Function GetPdf(ByVal FileName As String, ByVal PageName As String) As Document
Dim HeaderText As String, FooterText
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