kdacu.blogg.se

cOption("AutosaveFilename") = accountNumberShort Shell "taskkill /f /im PDFCreator.exe", vbHide If pdfjob.cStart("/NoProcessingAtStartup") = False Then 'Check if PDFCreator is already running and attempt to kill the process if so SPDFPath = ActiveWorkbook.Path & Application.PathSeparator

Set pdfjob = New PDFCreator.clsPDFCreator 'accountnumber minus one digit for the file nameĪccountNumber = letterPage.Range("F4").TextĪccountNumberShort = Mid(accountNumber, 1, 8) LetterPage.Range("B10").FormulaR1C1 = dataPage.Range("B" & therow) LetterPage.Range("F5").FormulaR1C1 = dataPage.Range("C" & therow) LetterPage.Range("F4").FormulaR1C1 = dataPage.Range("A" & therow) TotalAccounts = dataPage.Cells(Rows.Count, 1).End(xlUp).Row 'will iterate through the account numbers down I've also added a Do Until loop to wait for the print jobs to go down to zero with no success. I've also tried to add a manual delay with Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Īnd after the job enters the print queue Sleep 3000 I've tried this in both 20 with similar results (2003 will print 3 files and I've got 2007 to print up to 6 files) The error only occurs when there running the code, when stepping through the code there are no issues.

The code enters a Do While and the problem occures after the PDF is sent to the queue when the code continues the loop. I've written some code to take info from 3 columns on tab one (1000 rows of data) to populate data on the second tab ( to make a form letter based on account information address etc).