K
Karl Castellanos
I have code to print a document from a module. But I want
to have the document print 2 sided. I am not sure what
code to add. Please see my current code.
Sub Test()
Dim AVDoc As Acrobat.CAcroAVDoc
Dim PDDoc As Acrobat.CAcroPDDoc
Set AVDoc = CreateObject("AcroExch.AVDoc")
Dim iNumPages As Integer
AVDoc.Open "C:\Data\Adobe\010664202g2.pdf", ""
Set PDDoc = AVDoc.GetPDDoc
iNumPages = PDDoc.GetNumPages
AVDoc.PrintPages 0, iNumPages - 1, 1, True, False
Set AVDoc = Nothing
Set PDDoc = Nothing
End Sub
to have the document print 2 sided. I am not sure what
code to add. Please see my current code.
Sub Test()
Dim AVDoc As Acrobat.CAcroAVDoc
Dim PDDoc As Acrobat.CAcroPDDoc
Set AVDoc = CreateObject("AcroExch.AVDoc")
Dim iNumPages As Integer
AVDoc.Open "C:\Data\Adobe\010664202g2.pdf", ""
Set PDDoc = AVDoc.GetPDDoc
iNumPages = PDDoc.GetNumPages
AVDoc.PrintPages 0, iNumPages - 1, 1, True, False
Set AVDoc = Nothing
Set PDDoc = Nothing
End Sub