0 Replies Latest reply on Feb 21, 2013 5:00 AM by sven_vdk88

    print booklet format

    sven_vdk88

      Hi,

       

      I'm using a code that I found to print particular pdfs. This code works fine, but I want to print the pdfs in booklet format (now it is just printed as normal). this code is just a part of the total code, but I think it is enough to answer my question .

       

       

       

      if InStr(f1.name, strCaseID) then
            Set acroXapp = CreateObject("AcroExch.App")
                        Set avDoc = CreateObject("AcroExch.AVDoc")
            bOK = avDoc.Open(f1.path, "Acrobat")
                          Set pdDoc = avDoc.GetPDDoc
                          Set jsObj = pdDoc.GetJSObject
                          avDoc.PrintPages 0, jsobj.numPages-1, 0, False, True
                          pdDoc.Close
            avDoc.Close (True)
            Set avDoc = Nothing
            acroXapp.CloseAllDocs
            acroXapp.Exit
            acroXapp.Hide
            Set acroXapp = Nothing
          end if

       

       

       

      thnx!

       

      Sven