Limited time promo

VBNet Converter - SDK sample

English en

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

Download now Buy licenses
Sep 17, 2019
novaPDF SDK 10, 9, 8
We strive to keep our articles as accurate as possible. If you notice any inconsistencies or outdated info please let us know.
This SDK sample shows how to convert an existing file to PDF by using the ShellExecute function in Visual Basic.
The VBNet Converter sample demonstrates how to convert an existing file by printing it to novaPDF Printer using the ShellExecute function. It also demonstrates how to set different options and manage profiles. The same approach should be used if you print using a Print() method from another object (like an internet browser or a report control). Just replace the ShellExecute call with the call of your Print method.
Note: To be able to use the samples you must install novaPDF SDK as samples work only with it. Download it here: novaPDF SDK.


When the application starts, it creates a few profiles and makes different settings in the profiles. Then it shows a dialog from where the user can select the active profile and change its settings using the controls from the dialog. After that a document can be selected from the harddisk and printed to novaPDF Printer using the ShellExecute function call.
When using this technique to convert a file to PDF, you have to take care of the fact that ShellExecute prints to the default printer. This function returns immediately and does not wait until the print is finished (it may return before the printing is actually started).
Therefore you have to set the default printer to novaPDF Printer before calling ShellExecute (using the SetDefaultPrinter method), wait the process to be started (using WaitForExit()), restore the default printer (with the RestoreDefaultPrinter method). This way you made sure that the default printer was restored and your document is printed to novaPDF Printer.
Source Code Snippets
'1. Declare INovaPdfOptions variable
Private mobjNovaOptios As NovaPdfOptions80Class

'2. Initialize INovaPdfOptions
mobjNovaOptios = New NovaPdfOptions80Class

' initialize the NovaPdfOptions object
mobjNovaOptios.Initialize(PRINTER_NAME)

AddSmallProfile()
AddFullProfile()

'3. Set <%SDK_SAMPLE_PRINTER%> Options
Try
	Dim newSmallSizeProfileId As String = ""
	' add new profile
	mobjNovaOptios.AddProfile(SMALL_SIZE_PROFILE, PROFILE_IS_PUBLIC, newSmallSizeProfileId)

	'load the new profile
	mobjNovaOptios.LoadProfile(newSmallSizeProfileId)

	' Set some options to this profile
	' disable the "Save PDF file as" prompt
	mobjNovaOptios.SetOptionLong(NovaOptions.NOVAPDF_SAVE_PROMPT_TYPE, 0)
	' set generated Pdf files destination folder  "c:\"
	mobjNovaOptios.SetOptionString(NovaOptions.NOVAPDF_SAVE_FOLDER, "c:\\")

	// .....

Catch ComException As System.Runtime.InteropServices.COMException
	MessageBox.Show("Error creating Small Size Profile:" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + ComException.Message)
	System.Diagnostics.Debug.WriteLine(ComException.Message)
End Try

'4. Start a Print job
Private Sub btnStartPrinting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStartPrinting.Click

	mobjNovaOptios.SetActiveProfile(CType((cmbProfiles.SelectedItem), String))
	mobjNovaOptios.SetDefaultPrinter()
	mobjNovaOptios.LicenseShellExecuteFile(txtFileToConvert.Text)
	Dim myProcess As Process = New Process
	Try
		myProcess.StartInfo.FileName = txtFileToConvert.Text
		myProcess.StartInfo.Verb = "Print"
		myProcess.StartInfo.CreateNoWindow = True
		myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
		myProcess.Start()
	Catch ex As Win32Exception
		If ex.NativeErrorCode = ERROR_FILE_NOT_FOUND Then
			Console.WriteLine(ex.Message + ". Check the path and filename")
		Else
			' Note that if your word processor might generate exceptions
			' such as this, which are handled first.
			If ex.NativeErrorCode = ERROR_ACCESS_DENIED Then
				Console.WriteLine(ex.Message + ". You do not have permission to print this file.")
			End If
		End If
	End Try
	myProcess.WaitForExit(10000)
	myProcess.Close()
	mobjNovaOptios.RestoreDefaultPrinter()
End Sub