我想要源码,最好有例子,谢了兄弟们!!!

解决方案 »

  1.   

    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
      

  2.   

    参考--How to create PDF files from ASP.NET pages:
    http://www.developerfusion.com/show/4266/
      

  3.   

    这个应该更适合你--Generate PDF documents from a HTML page using ASP.NET:
    http://www.codeproject.com/aspnet/HTML2PDF.asp