Export to plt

Доброго времени суток уважаемые ....вот уже который день мучусь над макросом для автоматического экспорта в формат plt и никак он коректно сохранять не желает .
Суть проблемы такова: есть некий чертёж на листе, при его экспорте в plt должно сохраняться растояние от краю листа к началу чертежа как по x так и по y. Если это делать в ручную с выставлением всех опций в диалоговых окнах (прикреплины ) , то сохраняет нормально, а при сохранении через макрос(приведён ниже) эти отступы не пляшут.

Sub saveplt()
Dim expflt As ExportFilter
Dim d As Page
Dim expopt As StructExportOptions
If ActiveDocument.FilePath = "" Then MsgBox " Збережіть документ спочатку"
If ActiveDocument.FilePath = "" Then Beep: Exit Sub
MsgBox ActivePage.Name
ActiveDocument.Unit = cdrMillimeter
Set expflt = ActiveDocument.ExportEx(ActiveDocument.FilePath & ActivePage.Name & ".plt", cdrPLT, cdrCurrentPage)
expflt.Finish
End Sub

Может кто подскажет, как указанные диалоговые окна прописать в VBA или как сделать чтоб plt сохранялось всегда с одинаковыми опциями в диалоговом окне .
Corel 14 , SP1.
Спасибо!