| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA скрипт! PDF в DWG! Нужно корректно поставить layout-ы в очередь на печать в PDFCreator-е

VBA скрипт! PDF в DWG! Нужно корректно поставить layout-ы в очередь на печать в PDFCreator-е

Ответ
Поиск в этой теме
Непрочитано 20.01.2012, 14:59 #1
VBA скрипт! PDF в DWG! Нужно корректно поставить layout-ы в очередь на печать в PDFCreator-е
OSIP
 
Тюмень
Регистрация: 21.12.2011
Сообщений: 39

Написал кусок кода в скрипте, который конвертирует 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
Просмотров: 4241
 
Автор темы   Непрочитано 23.01.2012, 09:40
#2
OSIP


 
Регистрация: 21.12.2011
Тюмень
Сообщений: 39
<phrase 1=


С layout-ами я разобрался, остался вопрос почему в PDFCreatore не работает функция .cPrinterStop = True, которая должна приостанавливать печать
OSIP вне форума  
 
Автор темы   Непрочитано 26.01.2012, 09:17
#3
OSIP


 
Регистрация: 21.12.2011
Тюмень
Сообщений: 39
<phrase 1=


Кто нибудь в PDFCreatore работал с постановкой в очередь листов (с реализацией на VBA) ???
Какой функцией всё таки можно приостановить печать???
OSIP вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA скрипт! PDF в DWG! Нужно корректно поставить layout-ы в очередь на печать в PDFCreator-е

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Документация Проектировщику на Torrents DEM Разное 262 24.02.2024 17:19
как узнать сколько layout в файле текущем DWG файле VBA sf Программирование 1 09.03.2005 12:36