Thaks very much.

Yeah I got solution with following code,first get avdoc and then get pddoc and then save pddoc.

ino = pddoc.Open("C:\viral\vk2.pdf")
If ino <> -1 Then
ino = pddoc.Create()
End If

'--Get jso object
Dim doc As Object
jso = pddoc.GetJSObject
doc = jso.app.activedocs
jso.app.newdoc()

'--Add new page
'doc(0).newPage(0)

'jso.saveAs("C:\viral\vk1.pdf")
avDoc = acroapp.GetActiveDoc()
pddoc = avDoc.GetPDDoc
bok = pddoc.Save(1, "C:\viral\vk2.pdf")

jso.saveAs("C:\viral\testVk2.pdf")



pddoc.Close()
jso = Nothing
pddoc = Nothing

Viral