WriteSettings (True) 'writes the settings in a runonce.ini that is immediately deleted after being used. SetValue "AllowModifyAnnotations", "True". SetValue "AllowDegradedPrinting", "True". SetValue "EncryptionType", "Standard128bit" ' AES 128 bit and AES 256 bit encryption are supported but you must purchase a license to use it. SetValue "Output", sDirectory & sFileName.
HOW DOES BULLZIP WORK PDF
Option Explicit Public Declare Function SetDefaultPrinter Lib "winspool.drv" _ Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long Function PrintReportAsPDFwithBullZip(ByVal rptName As String, _ Optional sFilterCriteria As String = "", _ Optional sDirectory As String = "", _ Optional sFileName As String = "") _ As Boolean On Error GoTo err_Error Dim oBullzipPDF As Object, oBullzipUtil As Object Dim strSavePath As String, strFileName As String Dim strDefaultPrinter As String Dim blnPrinterChanged As Boolean Set oBullzipPDF = CreateObject("Bullzip.PDFPrinterSettings") 'Initialize the PDF class 'set the success flag to true here but it will be set to 'false if the function fails at any point PrintReportAsPDFwithBullZip = True If sDirectory = "" Then sDirectory = ActiveDocument.Path & "\" Else sDirectory = sDirectory End If If sFileName = "" Then sFileName = Split(ActiveDocument.Path, "\")(UBound(Split(ActiveDocument.Path, "\"))) Else sFileName = sFileName End If If LCase(Right(sFileName, 4)) ".pdf" Then sFileName = sFileName & ".pdf" End If With oBullzipPDF. Item(3).Value End With sFullPath = sFilePath & sFirmPathName DocResult.SaveAs sFullPath & ".docx", wdFormatXMLDocument DocResult.Close False Call PrintReportAsPDFwithBullZip(sFirmPathName) End If End Sub Execute Next End With MsgBox "Merge Finished" End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) Dim sFilePath As String, sFullPath As String sFilePath = "C:\Temp" If bCustomProcessing = True Then With sFirmPathName =. ShowSendToCustom = "Custom Letter Processing" End If End With End Sub Private Sub wdapp_MailMergeWizardSendToCustom(ByVal Doc As Document) bCustomProcessing = True = wdSendToNewDocument With Doc.MailMerge For rec = 1 To.
HOW DOES BULLZIP WORK HOW TO
Does anyone have a suggestion to how to get it done? If I have to, I can output the PDF's and manually add the password.ĭim WithEvents wdapp As Application Dim bCustomProcessing As Boolean 'Sub MergeDocs() Private Sub Document_Open() Set wdapp = Application bCustomProcessing = False = 1 1 With ActiveDocument.MailMerge If.
HOW DOES BULLZIP WORK CODE
I have VBA code that is supposed to accomplish the task but its not working.
I have a distribution list in Excel linked to a Word mailmerge document, and need to save 500 merged letters as Password Protected PDF's.
0 kommentar(er)
