PDF SDK	Home Features Download FAQ Tutorial Samples Order

MzPDF Toolkit VB.NET Tutorial:

1. Open visual studio 2005
 

2. Create new project (visual Basic , Windows application)
 

3. Open Form1.vb.

4. Add:
Imports MZDocument


5. Add the following inside Form1 class

Const page_height_inch As Double = 11
Const page_width_inch As Double = 8.5

6. Then add the following function
 

Public Sub GeneratePDF()

End Sub

7. Now, we will do some work inside this function. Define PdfOptions class and fill it with PDF options:

Dim pdfOptions As PdfOptions
pdfOptions = New PdfOptions()
pdfOptions.Title = "Rectangle docment"
pdfOptions.Subject = "Inch rectangle"
pdfOptions.Author = "Auther - me"
pdfOptions.Keywords = "Keywords ..."

pdfOptions.Pdfcompress = True
pdfOptions.Jpgcompress = True

pdfOptions.PdfGenerateImage = True
pdfOptions.PdfGenerateText = True
pdfOptions.PdfGenerateGraphics = True

pdfOptions.PdfShowToolbar = True
pdfOptions.PdfShowMenuBar = True
pdfOptions.PdfShowWindowUI = True

pdfOptions.PageNo = 2 'open PDF in page 2
pdfOptions.Version = PdfVersion.OneDotThree 'version 1.3
pdfOptions.Magnification = PdfMagnification.Custom
pdfOptions.CustomMag = 50
pdfOptions.PageMode = PdfPageMode.Thumbs
pdfOptions.PageLayout = PdfPageLayout.TwoLColumn


8. Now define MZDocument class as the following

Dim doc As MZDocument.Document = New Document()

9. Add progress function:

AddHandler doc.Progress, AddressOf Progress ' ProgressEventArgs

10. Now create the document

doc.CreateDocument()

' Create 3 pages so we need for loop

For i As Integer = 1 To 3

   ' Define PDF Info
   Dim pageInfo As MZDocument.PageInfo = New PageInfo()

   ' Start the page. with 8.5 by 11 inch.
   doc.StartPage(Document.LastPage, page_width_inch, page_height_inch, pageInfo, 0)

   ' Calculate 1 inch rectangle .
   Dim rectangle As Rectangle = New Rectangle(CInt(1 * pageInfo.xDPI), CInt(1 * pageInfo.yDPI), CInt(1 * pageInfo.xDPI), CInt(1 * pageInfo.yDPI))

   ' Create black pen
   Dim pen As Pen = New Pen(Color.Black)

   ' Draw the rectangle on the PDF DC
   pageInfo.PageGraphics.DrawRectangle(pen, rectangle)

   ' Close this page
   doc.EndCurrentPage()

   ' Repeat 3 times

Next i

' Close the document.
doc.CloseDocument()

' Generate PDF
doc.GeneratePDF("c:\\RetanglePDF.pdf", pdfOptions)

' After finish everything delete this document
doc.DeleteDocument()


11. Add progress event function

Public Sub Progress(ByVal sender As Object, ByVal e As ProgressEventArgs)
    Dim currentPage As Integer = e.CurrentPageProgress
    Dim totalPage As Integer = e.CurrentPage * 100 / e.TotalPage
    Dim str As String = String.Format("Page : {0} of {1} ", e.CurrentPage, e.TotalPage)
    Application.DoEvents()
    If (False) Then
        e.Cancel = True
    Else
        e.Cancel = False
    End If
End Sub


12. Go to project settings the to references and add MZDocument.dll for win32 or MZDocumentx.dll for x64


13. Add new menu item call generate PDF then double click on it to create its function, instead this function add the following code

GeneratePDF()

14. Run your application and click the menu item you created in step 13. Then go to C:\ drive you will find RetanglePDF.pdf document was created with the options that you've already chosen.



Note for x64 project, you need first to create new x64 project config from configuration manager
 

Full code is here
 

Imports MZDocument

Public Class Form1

    Const page_height_inch As Double = 11

    Const page_width_inch As Double = 8.5

    Public Sub Progress(ByVal sender As Object, ByVal e As ProgressEventArgs)

        Dim currentPage As Integer = e.CurrentPageProgress

        Dim totalPage As Integer = e.CurrentPage * 100 / e.TotalPage

        Dim str As String = String.Format("Page : {0} of {1} ", e.CurrentPage, e.TotalPage)

        If (False) Then

            e.Cancel = True

        Else

            e.Cancel = False

        End If

    End Sub

    Public Sub GeneratePDF()

        Dim pdfOptions As PdfOptions

        pdfOptions = New PdfOptions()

        pdfOptions.Title = "Rectangle docment"

        pdfOptions.Subject = "Inch rectangle"

        pdfOptions.Author = "Auther - me"

        pdfOptions.Keywords = "Keywords ..."

        pdfOptions.Pdfcompress = True

        pdfOptions.Jpgcompress = True

        pdfOptions.PdfGenerateImage = True

        pdfOptions.PdfGenerateText = True

        pdfOptions.PdfGenerateGraphics = True

        pdfOptions.PdfShowToolbar = True

        pdfOptions.PdfShowMenuBar = True

        pdfOptions.PdfShowWindowUI = True

        pdfOptions.PageNo = 2 'open PDF in page 2

        pdfOptions.Version = PdfVersion.OneDotThree 'version 1.3

        Try

            Dim doc As MZDocument.Document = New Document()

            AddHandler doc.Progress, AddressOf Progress ' ProgressEventArgs

            'create three pages

            For i As Integer = 1 To 3

                Dim pageInfo As MZDocument.PageInfo = New PageInfo()

                ' Start the page.

                        Dim pageRectangle As Rectangle = New Rectangle(0, 0, CInt(page_width_inch * pageInfo.xDPI + 0.5), CInt(page_height_inch * pageInfo.yDPI + 0.5))

                'OR (Same result)

                        'Rectangle = pageInfo.RectPage;

                'use page info DPI to calculate the drawing rectangle.

                        'Draw 1 inch rectangle.

                        Dim rectangle As Rectangle = New Rectangle(CInt(1 * pageInfo.xDPI), CInt(1 * pageInfo.yDPI), CInt(1 * pageInfo.xDPI), CInt(1 * pageInfo.yDPI))

                        Dim pen As Pen = New Pen(Color.Black)

                        'close current page

                    Next i

                    Try

                        doc.GeneratePDF("c:\\VBRetanglePDF.pdf", pdfOptions)

                        Catch documentException As DocumentException

                            MessageBox.Show(documentException.Descreption, "Error")

                    End Try

                    'delete document handle to clear

                    Catch documentException As DocumentException

                    MessageBox.Show(documentException.Descreption, "Error")

           End Try

    End Sub

    Private Sub GenereatePDFMenuItemToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GenereatePDFMenuItemToolStripMenuItem.Click

    End Sub

End Class

Download MzPDF Toolkit:

  The MzPDF toolkit (Evaluation version) can be downloaded from the downloads page.

Order MzPDF Toolkit:

  To order MzPDF toolkit, go to the order page.

Note: MzPDF Toolkit is royalty free.

Contact Us:

  If you have any notes or questions please drop us a line and we will be glad to help.

PDF SDK to generate PDF files quickly and easily

Home . PDF SDK . Contact Us . About Us

Copyright © 2011 - Mozon Software