![pdf bullzip pdf bullzip](https://pagehalffull.files.wordpress.com/2012/11/bullzipsettings.png)
![pdf bullzip pdf bullzip](https://www.snapfiles.com/screenfiles/bullzippdf.png)
Pdf bullzip 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.
![pdf bullzip pdf bullzip](https://allpcworld.com/wp-content/uploads/2020/10/Bullzip-PDF-Printer-12.0-One-Click-Download.jpg)
Pdf bullzip 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. 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.