Автоматизация печати документов Компас

[Михаил.Болгов]

Добрый день,

Я пишу программу для автоматической печати файлов с помощью АПИ программы Компас. Мой вопрос: как центрировать чертёж на листе бумаги? В настройках печати программы я такие настройки вижу (см вложенный скриншот), но в АПИ я их не нашёл.

Моя функция печати выглядит так:
---
   

Код Выделить Развернуть

Function PrintKompasFile(sFile As String, sPrinter As String) As Boolean
        Dim Kompas As KompasAPI7.IApplication = CreateObject("Kompas.Application.7")
        If IsNothing(Kompas) Then
            Return False
        End If

        Dim bResult = False
        Kompas.Visible = False
        Dim pj = Kompas.PrintJob

        Dim op As IPrintJob_OutputParameters = pj
        op.Color = Kompas6Constants.ksOutputColorTypeEnum.ksPJ_OCByView
        op.CollateCopies = True
        op.AutoScale = True
        op.NumberOfCopies = 1
        op.PlotToFile = False

        Const ksAllSheets = 0
        Dim doc As KompasAPI7.IKompasDocument = Kompas.Documents.Open(sFile, True)

        If pj.AddSheets(doc.Name, Nothing, ksAllSheets) Then
            Dim wPage, hPage, wSheet, hSheet As Double

            If pj.GetPageGabarites(wPage, hPage) Then
                For i = 0 To pj.SheetsCount() - 1
                    If pj.Sheet(i).GetGabarites(wSheet, hSheet) Then
                        If (wPage > hPage) <> (wSheet > hSheet) Then
                            pj.Sheet(i).Orientation = Kompas6Constants.ksAngleEnum.ksAngle90
                        Else
                            pj.Sheet(i).Orientation = Kompas6Constants.ksAngleEnum.ksAngle0
                        End If
                    End If
                Next
            End If

            bResult = pj.Execute(sPrinter)
        End If

        doc.Close(Kompas6Constants.DocumentCloseOptions.kdDoNotSaveChanges)
        Kompas.Quit()

        Return bResult
    End Function