Vers 3.03 asking in Excel to save after 3rd worksheet

The Amyuni PDF Converter is our Printer Driver that enables you to convert any documents to PDF format. If you have any questions about installing and using the Amyuni PDF Converter please post them here.
Post Reply
MJEPO
Posts: 1
Joined: Fri Mar 04 2011

Vers 3.03 asking in Excel to save after 3rd worksheet

Post by MJEPO »

HI, we are using Amyuni PDF Converter 3.03 currently and faced with the following problem:

When doing a print in MS Excel 2003 for the entire workbook (Overwrite Option is set to Append to existing file), i will be asked to save the file after every 3rd sheet in excel
Is there a way to prevent this so that the entire workbook with for e.g. 8 sheets will be printed to PDF without asking me to save after every 3rd sheet? Thx
Devteam
Posts: 119
Joined: Fri Oct 14 2005
Location: Montreal
Contact:

Re: Vers 3.03 asking in Excel to save after 3rd worksheet

Post by Devteam »

Microsoft Excel sometimes splits a printout into multiple print jobs which prompts the PDF printer to ask for a file name for every print job.

One solution around this is to create a VBA macro in Excel to print the document rather than going through File-->Print. Here a sample Macro:

Code: Select all

Sub PrintToPDF()

    Dim PdfFileName As String
    Dim PrinterName As String
    
    ' This should be modified to reflect the real PDF file name
    PrinterName = "Amyuni PDF Converter"

    ' Prompt for the output PDF
    PdfFileName = Application.GetSaveAsFilename(FileFilter:="PDF files (*.pdf),*.pdf", Title:="Enter the destination file name")
    
    ' Delete the existing PDF if any (skip this step if you want to append to an existing PDF)
    Set fs = CreateObject("Scripting.FileSystemObject")
    If fs.FileExists(PdfFileName) Then
        fs.DeleteFile PdfFileName
    End If
    Set fs = Nothing

    Dim cdi As Object
    ' Create the PDF Converter ActiveX, the version number depends on the version installed
    Set cdi = CreateObject("CDIntfEx.CDIntfEx") ' CDIntfEx.CDIntfEx.4.5 for version 4.5
    cdi.DriverInit PrinterName                  ' Attach to the printer
    cdi.FileNameOptions = 1 + 2 + 4             ' NoPrompt + UseFileName + Append
    cdi.DefaultFileName = PdfFileName           ' Set the output file name
    
    Application.ActiveWorkbook.PrintOut ActivePrinter:=PrinterName
                                                ' Print active Workbook
    
    cdi.FileNameOptions = 0                     ' Reset printer parameters in order not to overwrite existing PDFs
    cdi.DefaultFileName = ""
    
    Set cdi = Nothing
    
End Sub

Amyuni Development Team

Efficient and accurate conversion to PDF, XPS, PDF/A and more. Free trials at - https://www.amyuni.com
Post Reply