print booklet format

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