[motor-serg]

Закидайте меня ссылками,но в поиске не нашел.
Задача такая: создается документ с кучей листов, с одними настройками, и тут ломается стандартный принтер-иду в центр по печати. А они каждый листик запускают по отдельности на печать

Ну и пусть запускают по отдельности, им платят за это

[AlexV]

По идее, такая процедурка должна менять установленный принтер для всех листов на указанный.. Вот еще бы кто подсказал, как на VBA выцепить список всех доступных принтеров/плоттеров?

Код:

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

Sub main()
On Error Resume Next
Dim Layouts As AcadLayouts
Set Layouts = ThisDrawing.Layouts
Dim i As Integer
For i = 1 To Layouts.Count - 1
 Layouts(i).ConfigName = "имя принтера" 'например, "DWG TO PDF.pc3"
Next i
End Sub

[motor-serg]

Сообщение от palexxvlad Ну и пусть запускают по отдельности, им платят за это

Долго ,представьте минмимум листов 40 каждый выделяет и делает настройки-а стоит то скоростная техника. Я им огооворился что наработе двумя кнопками обхожусь -не поверили.

AlexV, мда кто мне разрешит перепргорамировать что то тогда проще ждать

Сообщение от motor-serg Долго ,представьте минмимум листов 40 каждый выделяет и делает настройки-а стоит то скоростная техника. Я им огооворился что наработе двумя кнопками обхожусь -не поверили.

Зачем делать настройки для каждого листа? Просто при печати нового выбираем "предыдущая печать" и все параметры предыдущей печати применяются автоматически к нужному чертежу. Таким образом первоначальную настройку печати нужно сделать только тем листам, у которых разные форматы.

[AlexV]

Сообщение от motor-serg AlexV, мда кто мне разрешит перепргорамировать что то тогда проще ждать

А чего там перепрограммировать то..
А вообще, чего проще, - создать многолистовой dwf или pdf файл, из него уже на принтер можно одним движением руки..

Сообщение от AlexV А чего там перепрограммировать то.. А вообще, чего проще, - создать многолистовой dwf или pdf файл, из него уже на принтер можно одним движением руки..

Всё гениальное просто

[motor-serg]

Сообщение от AlexV А чего там перепрограммировать то.. А вообще, чего проще, - создать многолистовой dwf или pdf файл, из него уже на принтер можно одним движением руки..

что- то про пдф я и забыл совсем

[PL]

А мы никогда кад фаилы не посылаем для печати в "центре по печати" . Только TIFF, цены совершенно разные, напечатать кад фаил значительно дороже (TIFF дешевле чем PDF ). Проверьте, может и у Вас так?

[motor-serg]

PL, а там без разницы что выводить-все зависит от формата и все)

[Krieger]

У нас труд бесплатный, а вот бумага с тонером денег стоит.