[OSIP]

Написал кусок кода в скрипте, который конвертирует DWG в PDF через PDFCreator!
DWG файлы в которых содержится 1 layout всё нормально, а где их несколько никак не хочет!
Возникла идея, пройтись по всем layout и поставить их в очередь в PDFCreator, потом склеить их методом .cCombineAll и пустить на печать!
Но, что то с реализацией возникли проблемы


Вот кусок скрипта!

Код:

[Выделить все]

    Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
    pdfjob.cStart "/NoProcessingAtStartup"
    With pdfjob
	Dim lay As AcadLayout
	Dim isSpec As Boolean
	isSpec = True
	.cPrinterStop = True                    ' приостановление печати
    For Each lay In ThisDrawing.Layouts
        If lay.TabOrder > 0 And (Not VBA.IsNumeric(lay.Name)) Then
			ThisDrawing.Plot.PlotToDevice
			isSpec = False
            Exit For
		else
			.cOption("UseAutosave") = 1
			.cOption("UseAutosaveDirectory") = 1
			.cOption("AutosaveFormat") = 0          ' 0 = PDF

			ThisDrawing.Plot.PlotToDevice
			.cPrinterStop = True                    ' приостановление печати
        End If
    Next

	.cClearCache
        .cCombineAll                            ' склейка нескольких листов в один PDF
        .cPrinterStop = False                   ' возобновление печати
        .cOption("AutosaveDirectory") = FDir	' директория для сохранения файла
        .cOption("AutosaveFilename") = FName	' имя сохраняемого файла
    End With

[OSIP]

С layout-ами я разобрался, остался вопрос почему в PDFCreatore не работает функция .cPrinterStop = True, которая должна приостанавливать печать

[OSIP]

Кто нибудь в PDFCreatore работал с постановкой в очередь листов (с реализацией на VBA) ???
Какой функцией всё таки можно приостановить печать???