Limited time promo

VBNet Sample - Hello World VBNet


This help topic applies only to novaPDF. If you don't have it yet, you must download it first.

Download now Buy licenses
Mar 29, 2022
novaPDF 11.x
We strive to keep our help as accurate as possible. If you notice any inconsistencies or outdated info please let us know.
Hello World VBNet sample is a simple Windows console application that prints one page with the "novaPDF says Hello World from VB.Net" text to the novaPDF SDK.
It demonstrates the basic use of the INovaPDFOptions interface. The printing job is made using the package "System.Drawing.Printing"
Basically the sample determines the active profile, makes a copy of it into a profile called "Test VBNet", sets the new profile as active, sets the subject of the generated PDF document, prints a page, and restores original printer settings. The location of the generated document depends on whatever the settings are for the current active profile.


Because of the specific exception based error handling in.NET, all calls to methods in the INovaPDFOptions interface must be nested within a try-catch block. Consider for example that we want to add a profile called "test", but the profile "test" already exists. Then the call pNova.AddProfile("test") will throw an "System.Runtime.InteropServices.COMException". with the ErrorCode property set to NV_PROFILE_EXISTS (0xD5DA0006).

Source code

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

Module Module1
    '    <summary>
    '    The    main entry point for the application.
    '    </summary>
    Const PRINTER_NAME As String = "novaPDF SDK 11"

    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()
            ' create the NovaPdfOptions object
            Dim pNova As NovaPdfOptions11
            pNova = New NovaPdfOptions11
            ' initialize the NovaPdfOptions object
            ' if you have an application license for novaPDF SDK, 
            ' mark start changing options
            ' get the active profile ...
            Dim activeProfile As String = ""
            Dim nActivePublic As Integer = 0
            Catch ex As System.Runtime.InteropServices.COMException
                ' ignore profile exists error
                If (NovaErrors.NV_NO_ACTIVE_PROFILE = ex.ErrorCode) Then
                    System.Console.WriteLine("The printer does not have an active profile")
                    'more   serious error, propagate it
                    Throw ex
                End If
            End Try

            Dim newProfileID As String = ""
                ' and make    a copy of it
                pNova.AddProfile(PROFILE_NAME, PROFILE_IS_PUBLIC, newProfileID)
            Catch e As System.Runtime.InteropServices.COMException
                ' ignore profile exists error
                If (NV_PROFILE_EXISTS = e.ErrorCode) Then
                    System.Console.WriteLine("Profile already exists")
                    ' more    serious    error, propagate it
                    Throw e
                End If
            End Try

            'load the new profile

            ' and set some  options
            ' uncomment the function calls for the options you wish to set
            ' change the options in the nova.cs unit

            'save the new added profile
            ' set the copy    profile    as active profile ...

        ' 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
            If ((activeProfile.Length > 0) And (activeProfile.CompareTo(PROFILE_NAME) <> 0)) Then
            End If
        Catch e As System.Runtime.InteropServices.COMException
        Catch e As Exception
        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