Code: Select all
local cActiveProfile, nActiveProfilePublic
cActiveProfile = ''
nActiveProfilePublic = 0
oPDF = createobject('novapi.NovaPdfOptions')
oPDF.Initialize2( my initialization parameters )
oPDF.GetActiveProfile2(@cActiveProfile, @nActiveProfilePublic)
oPDF.SetOptionLong2("Prompt Save Dialog", 0, cActiveProfile, 0)
oPDF.SetOptionLong2('File Conflict Strategy', 5, cActiveProfile, 0)
oPDF.SetOptionLong2('Save Advanced Strategy', 5, cActiveProfile, 0)
oPDF.SetOptionString2('Save Folder', 'C:\ProgramData\Siriusware\', cActiveProfile, 0)
oPDF.SetOptionString2('Save File', 'TestPrint123.pdf', cActiveProfile, 0)
oPDF.SetOptionLong2("Post Save Open", 0, cActiveProfile, 0)
oPDF.SetOptionLong2('SilentPrint', 0, cActiveProfile, 0)
oPDF.SetOptionLong2('Embed All Fonts', 1, cActiveProfile, 0)
oPDF.RegisterNovaEvent2('NOVAPDF_EVENT_FILE_SAVED')
oPDF.SetDefaultPrinter()
set printer to default
** perform my PDF printing here
oPDF.WaitForNovaEvent(20000, @lTimeout)
oPDF.RestoreDefaultPrinter()
Code: Select all
oPDF.GetActiveProfile2(@cActiveProfile, @nActiveProfilePublic)
oPDF.SetOptionLong2("Prompt Save Dialog", 0, 'Nonexistent profile name', 0)