Hello World VBNet - SDK sample

Imports System
Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Windows.Forms
' the novapiLib package must be added as a COM reference
Imports novapiLib

Module Module1
  '    <summary>
  '    The    main entry point for the application.
  '    </summary>
  Const PRINTER_NAME As String = "novaPDF Pro v5"
  Const PROFILE_NAME As String = "Test VBNet"
  Const PROFILE_IS_PUBLIC As Integer = 0
  Const NOVAPDF_INFO_SUBJECT As String = "Document Subject"
  Const NV_PROFILE_EXISTS As Long = -707133434 

  Sub Main()
      Try
          ' create the NovaPdfOptions object
          Dim pNova As NovaPdfOptions
          pNova = New NovaPdfOptions
          ' initialize the NovaPdfOptions object
          ' if you have an application license for novaPDF SDK,
          ' pass both the registration name and the license key to the Initialize() function
          ' pNova.Initialize(PRINTER_NAME, "<registration name>", "<license key>");
          pNova.Initialize(PRINTER_NAME, "", "", "")
          ' get the active profile ...
          Dim activeProfile As String
           Dim nActivePublic As Integer
          pNova.GetActiveProfile(activeProfile, nActivePublic)
          Try
              ' and make    a copy of it
              pNova.CopyProfile(activeProfile, PROFILE_NAME, PROFILE_IS_PUBLIC)
          Catch e As System.Runtime.InteropServices.COMException
              ' ignore profile exists error
              If (NV_PROFILE_EXISTS = e.ErrorCode) Then
                  System.Console.WriteLine("Profile already exists")
              Else
                  ' more    serious    error, propagate it
                  Throw e
              End If
          End Try
          ' set the copy    profile    as active profile ...
          pNova.SetActiveProfile(PROFILE_NAME, PROFILE_IS_PUBLIC)
          ' and set some    options
          pNova.SetOptionString(NOVAPDF_INFO_SUBJECT, "VB.Net Hello document", PROFILE_NAME, PROFILE_IS_PUBLIC)
          ' print a test    page, using    the    previously set active profile settings
          Dim pd As PrintDocument = New PrintDocument
          pd.PrinterSettings.PrinterName = PRINTER_NAME
          AddHandler pd.PrintPage, AddressOf PrintPageFunction
          pd.Print()
          pNova.SetActiveProfile(activeProfile, nActivePublic)
          pNova.DeleteProfile(PROFILE_NAME, PROFILE_IS_PUBLIC)
      Catch e As System.Runtime.InteropServices.COMException
          MessageBox.Show(e.Message)
      Catch e As Exception
          MessageBox.Show(e.Message)
      End Try
  End Sub 

  ' and finally the function that actually prints the page
  Private Sub PrintPageFunction(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
      Dim str As String = "novaPDF says Hello World from VB.Net"
      Dim font As Font = New Font("Arial", 16)
      Dim brush As Brush = New SolidBrush(Color.Black)
      ev.Graphics.DrawString(Str, font, brush, 20.0!, 20.0!)
      ev.HasMorePages = False
  End Sub 

End Module