Note: To be able to use the samples you must install novaPDF SDK as samples work only with it. Download it here: nova PDF SDK.
Source Code
' the novapiLib packages must be added as a COM reference
Const PRINTER_NAME As String = "novaPDF Pro v6"
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, "VB Word OLE", PROFILE_IS_PUBLIC
If Err.Number <> 0 Then
' ignore profile exists error
If NV_PROFILE_EXISTS <> Err.Number Then
Debug.Print "Profile VB Word OLE already exists"
Else
Return
End If
End If
On Error GoTo ErrorHandler:
' set the copy profile as active profile ...
pNova.SetActiveProfile2 "VB Word OLE", PROFILE_IS_PUBLIC
' and set some options
pNova.SetOptionString2 NOVAPDF_INFO_SUBJECT, "Word OLE document", "", PROFILE_IS_PUBLIC
' print word document
Dim objWord As Object
Dim objDoc As Object
pNova.InitializeOLEUsage "Word.Application"
Set objWord = CreateObject("Word.Application")
pNova.LicenseOLEServer
Set objDoc = objWord.Documents.Open("C:\Test.doc", False, True)
objDoc.PrintOut False
objDoc.Close False
objWord.Quit False
' Return to previous settings
pNova.SetActiveProfile2 activeProfile, bPublicProfile
pNova.DeleteProfile2 "VB Word OLE", PROFILE_IS_PUBLIC
Exit Sub
ErrorHandler:
Debug.Print Err.Number & ":" & Err.Description
End Sub
Comments