'*********************
Sub ImportPDF()
Dim fltr As ImportFilter
Dim sOptn As New StructImportOptions
sOptn.MaintainLayers = True
Set fltr =
ActiveDocument.ActivePage.ActiveLayer.ImportEx("C:\MyPdf.pdf", cdrPDF,
sOptn)
fltr.Finish
End Sub
'*********************
Thanks in advance.
Sub Test()
Dim d As Document
Dim I As ImportFilter
Set d = CreateDocument
Set I = d.ActiveLayer.ImportEx("d:\test.pdf", cdrPDF)
I.Reset
I.Finish
End Sub
HTH
Peter
Your soluting is working fine but only with single page PDF documents.
In my case each PDF file has 4 pages.
When we normaly import a PDF file with more than 1 page CorelDraw displays a
dialog to
select pages to Import. Probabely this dialog is causing problem. If we
could able to
provide it the page number to import, it may work.
Any suggestions..
I have solved the prob.
Thanks
On Sun, 25 Apr 2004 00:59:53 +0530, "San" <gupta...@hotmail.com>
wrote:
--
______________________________
Thank you, Sean
Artist/Production Manager
Please visit us at www.oatesflag.com
502-267-8200
502-267-8246 fax
"San" <gupta...@hotmail.com> wrote in message news:408abd38_3@cnews...
> So what was your solution. I would like to know the solution for this as
> well.
>
Actually i have figured out that it was the problem with the PDF files. Each
file has only one page but it displays 4 pages in import dialog. Thats why
coreldraw is facing problem. These PDF files are exported from Mathematica.
I have just patched PDF files and now CorelDraw feels happy.