Word OLE VBNet - SDK sample

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.

Imports System
Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Windows.Forms
Imports novapiLib80


Module Module1
	'    <summary>
	'    The    main entry point for the application.
	'    </summary>
	Const PRINTER_NAME As String = "novaPDF SDK 8"
	Const PROFILE_NAME As String = "Word OLE VBNet"
	Const PROFILE_IS_PUBLIC As Integer = 0
	Const NOVAPDF_INFO_SUBJECT As Integer = 68

	Sub Main()

		' create the NovaPdfOptions80 object
		Dim pNova As NovaPdfOptions80
		pNova = New NovaPdfOptions80
		Dim activeProfile As String = ""
		Dim newProfileID As String = String.Empty

		' initialize the NovaPdfOptions80 object
		' if you have an application license for novaPDF SDK, 
		pNova.Initialize(PRINTER_NAME, "")
		' save old active profile id
		pNova.GetActiveProfile(activeProfile)
		' create new profile
		pNova.AddProfile(PROFILE_NAME, PROFILE_IS_PUBLIC, newProfileID)
		'load the new profile
		pNova.LoadProfile(newProfileID)
		'and set some  options
		pNova.SetOptionString(NOVAPDF_INFO_SUBJECT, "C# Word OLE document")
		pNova.SaveProfile()
		'set the copy  profile as active profile ...
		pNova.SetActiveProfile(newProfileID)
		'set nova default printer
		pNova.SetDefaultPrinter()
		' print word document
		Dim objWord As Object
		Dim objDoc As Object
		pNova.InitializeOLEUsage("Word.Application")
		objWord = CreateObject("Word.Application")
		pNova.LicenseOLEServer()
		objDoc = objWord.Documents.Open("C:\temp\test.docx", False, True)
		objDoc.PrintOut(False)
		objDoc.Close(False)
		objWord.Quit(False)

		' restore active profile
		If activeProfile.Length > 0 AndAlso activeProfile.CompareTo(PROFILE_NAME) <> 0 Then
			pNova.SetActiveProfile(activeProfile)
			pNova.DeleteProfile(newProfileID)
		End If

		' restore default printer
		pNova.RestoreDefaultPrinter()
	End Sub
End Module