Hello World Visual Basic - SDK sample

' the novapiLib package must be added as a COM reference
Const PRINTER_NAME As String = "novaPDF Pro v5"
Const PROFILE_IS_PUBLIC As Long = 0 

' The main entry point for the application.
Public Sub Main()
  On Error GoTo ErrorHandler: 

  ' create the NovaPdfOptions object
  Dim pNova As 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.Initialize2 PRINTER_NAME, "<registration name>", "<license key>"
  pNova.Initialize2 PRINTER_NAME, "", "", ""
  ' get the active profile ...
  Dim activeProfile As String
  Dim bPublicProfile As Long 

  pNova.GetActiveProfile2 activeProfile, bPublicProfile
' and make a copy of it
  On Error Resume Next
  pNova.CopyProfile2 activeProfile, "Test VB", PROFILE_IS_PUBLIC
  If Err.Number <> 0 Then
      ' ignore profile exists error
      If NV_PROFILE_EXISTS = Err.Number Then
          Debug.Print "Profile Test VB already exists"
      Else
          Return
      End If
  End If

  On Error GoTo ErrorHandler:
  ' set the copy profile as active profile ...
  pNova.SetActiveProfile2 "Test VB", PROFILE_IS_PUBLIC
  ' and set some options
  pNova.SetOptionString2 NOVAPDF_INFO_SUBJECT, "VB Hello document", "", PROFILE_IS_PUBLIC 

  ' Print a test page
  Dim myPrinter As Printer 

  For Each myPrinter In Printers
      If myPrinter.DeviceName = PRINTER_NAME Then
          Set Printer = myPrinter
          Exit For
      End If
  Next 

  Printer.FontName = "Arial"
  Printer.FontSize = 16
  Printer.CurrentX = 20
  Printer.CurrentY = 20 

  Printer.Print "novaPDF says Hello World from VB"
  Printer.EndDoc 

  ' Return to previous settings
  pNova.SetActiveProfile2 activeProfile, bPublicProfile
  pNova.DeleteProfile2 "Test VB", PROFILE_IS_PUBLIC
  Exit Sub
ErrorHandler:
  Debug.Print Err.Number & ":" & Err.Description
End Sub