Hi. I'd like to add a progress bar to this macro so I know it worked or is processing. Any help out there?
Dim dn As String, ps As PDFVBASettings
Set ps = ActiveDocument.PDFSettings
If ActiveDocument.Dirty Then ActiveDocument.Save
On Error GoTo ErrHandler
dn = Left$(ActiveDocument.FullFileName, Len(ActiveDocument.FullFileName) - 4) & ".pdf"
MsgBox "Error occured: " & Err.Description & Err.Number
Public Sub RunTask() Implements ICUIBackgroundTask.RunTask
Running = True
Protected Sub SavePDF()
Catch ex As Exception
What about something using this ------^
PublishToPDF is an internal procedure, performed by background process,so I think you will not be able to use the progress bar.It can only be used in user cycles with counter. But you can check size of yourpdf-file or try to open it. If opens then pdf export is completed
Would you be willing to share a simple VBA example that uses the CorelDRAW progress bar?
I have tried to use it, but without success.
Thanks Shark. I noticed that the Publish to Pdf in the menu utilizes the background task function but publishing a PDF thru this macro does not so I was just wondering why not and if I could somehow invoke the background task function with a macro.