Word OLE Visual Basic - SDK sample

Word OLE VB sample is a simple Windows console application that converts a MS Word document (C:\Test.doc) to PDF using Word OLE automation. This sample demonstrates how to convert the existing Test.doc sample by printing it to novaPDF SDK Printer.

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

Attribute VB_Name = "Module1" Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ' the novapiLib and novapiLibDemo packages must be added as a COM reference Const PRINTER_NAME As String = "novaPDF SDK 8" Const PROFILE_NAME As String = "VB Word OLE" 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 NovaPdfOptions80 Dim sOldActiveProfileID As String Dim sNewProfileID As String ' initialize the NovaPdfOptions object to use with a printer licensed for SDK pNova.Initialize2 (PRINTER_NAME, "") pNova.GetActiveProfile2 (sOldActiveProfileID) ' create new profile On Error Resume Next pNova.AddProfile2 PROFILE_NAME, PROFILE_IS_PUBLIC, sNewProfileID pNova.LoadProfile2 (sNewProfileID) ' and set some options pNova.SetOptionString2 NOVAPDF_DOCINFO_SUBJECT, "Test OLE document" 'save profile changes pNova.SaveProfile 'set as active profile for printer pNova.SetActiveProfile (sNewProfileID) ' set nova default printer pNova.SetDefaultPrinter ' 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 ' restore default printer pNova.RestoreDefaultPrinter 'restore default profile If Len(sOldActiveProfileID) > 0 Then pNova.SetActiveProfile2 (sOldActiveProfileID) End If 'delete newly created profile pNova.DeleteProfile2 (sNewProfileID) Exit Sub ErrorHandler: Debug.Print Err.Number & ":" & Err.Description End Sub 


NEW: novaPDF 8.6.942