Тема: Смещение координат при печати(или переводе в ПДФ) программно!!! Где искать?

Есть код! Который автоматически переводит файл DWG в ПДФ. Особо механизм перевода описывать не буду но по просьбе желающих могу и выложить. Но проблема состоит в том, что при поиске самой рамки и получение её координат мы получаем их значение и при выводе на печать получаем либо чистый лист либо лист со смещением этой рамки. Вопрос: Как найти это смещение? Системы пользовательских координат уже все перепроверил относительно WCS, результата никакого! Ниже два чертежа: в 1 - ом смещение есть, во 2 - ом смещения нет! Может что подскажите где копать или что курить! smile

(1) Чертеж со смещенной рамкой
(2) Чертеж без смещения рамки

Re: Смещение координат при печати(или переводе в ПДФ) программно!!! Где искать?

Sub go_plot_ok()
Dim vp As AcadViewport
    Dim NewTarget(0 To 2) As Double
    Set vp = ThisDrawing.ActiveViewport
    vp.Target = NewTarget

    Dim NewDirection(0 To 2) As Double
    NewDirection(2) = 1
    vp.Direction = NewDirection
    
    ThisDrawing.ActiveViewport = vp
End Sub