Good Day,
Any help would be greatly appreciated.
Current Production Model: Windows 2003 server, Lotus Notes 8.5.3 and PDFCreator .9 (everything works flawlessly and has for years)
Development Environment Model: Windows 2012 (64 bit), Lotus Notes 9 and PDFCreator 1.7.3 (server or standard install yield same result - failure)
We are in the process of upgrading our servers (development environment) and we are having issues on 1 line of code (posted below). Is there an issue with the cPrintFile call?
Again, any help would be greatly appreciated and thank you for your time.
Option Public
Option Declare
Use "OpenLogFunctions"
Sub Initialize
Dim PDFCreator, PDFForge
Dim rtfFileName As String
On Error GoTo errorHandler
Call LogEvent(“Start - Print to PDFCreator”, SEVERITY_MEDIUM, Nothing)
Call LogEvent(“Initializing PDFCreator…”, SEVERITY_MEDIUM, Nothing)
Set PDFCreator = CreateObject(“PDFCreator.clsPDFCreator”)
With PDFCreator
Sleep 10 'apparently this is needed to make sure we give PDFCreator enough time to load up before PDFForge does
End With
Call LogEvent(“Initializing PDFForge…”, SEVERITY_MEDIUM, Nothing)
Set PDFForge = CreateObject(“pdfforge.pdf.pdf”)
rtfFileName = “D:\otes\data\apps\general\mctsx\contractgeneration\prod\contracts\TestDocument.rtf”
Call LogEvent(“Begin Print to PDFCreator”, SEVERITY_MEDIUM, Nothing)
With PDFCreator
.cStart “/NoProcessingAtStartup”, True
.cOption(“UseAutosave”) = 1
.cOption(“UseAutosaveDirectory”) = 1
.cOption(“AutosaveFormat”) = 0
.cDefaultprinter = “PDFCreator”
.cClearcache
.cOption(“AutosaveDirectory”) = “D:\otes\data\apps\general\mctsx\contractgeneration\prod\contracts”
.cOption(“AutosaveFilename”) = “TestDocument”
.cPrintfile CStr(rtfFileName)
.cPrinterStop = False
'.cClose
End With
'Close PDFCreator and PDFForge
Call LogEvent(“Closing PDFCreator and PDFForge”, SEVERITY_MEDIUM, Nothing)
Set PDFCreator = Nothing
Set PDFForge = Nothing
Call LogEvent(“Finish - Print to PDFCreator”, SEVERITY_MEDIUM, Nothing)
Exit Sub
errorHandler:
Call LogError()
'Close PDFCreator and PDFForge
Call LogEvent(“Closing PDFCreator and PDFForge”, SEVERITY_MEDIUM, Nothing)
Set PDFCreator = Nothing
Set PDFForge = Nothing
Call LogEvent(“Finish - Print to PDFCreator”, SEVERITY_MEDIUM, Nothing)
End Sub