Как печатать разные листы одного чертежа

[Garyn 0]

Garyn

А Вы не пробовали смотреть <noindex>тут</noindex> - есть несколько макросов для печати и там же обсуждение такого же вопроса....

Спасибо SERoz посмотрел сейчас и кое что нашел! надо попробовать. Воистину все новое-это хоршо забытое старое! А ведь казалось что там уже все просмотрено...

[ssv22 16]

Спасибо SERoz посмотрел сейчас и кое что нашел! надо попробовать. Воистину все новое-это хоршо забытое старое! А ведь казалось что там уже все просмотрено...

Ну и как результ? Проблема решена?

Вот кое-что от меня:

Это модификация макроса "Плоттер" (была тут где-то ссылка) только сделал в VB, поэтому exe-шник.

Печатает чертежи SW формата А3, А4 разной ориентации с "автоповором" на принтер по умолчанию.

Вернее должно печатать - сам опробовать не могу - чернила высохли.

Пробовал только на виртуальный PDFCreator - вроде работает. Интересно было бы опробовать на физическом принтере...

PS. подразумевается принтер А4 - форамт А3 масштабирует на бумагу А4!

[Garyn 0]

Ну и как результ? Проблема решена?

Вот кое-что от меня:

Это модификация макроса "Плоттер" (была тут где-то ссылка) только сделал в VB, поэтому exe-шник.

Печатает чертежи SW формата А3, А4 разной ориентации с "автоповором" на принтер по умолчанию.

Вернее должно печатать - сам опробовать не могу - чернила высохли.

Пробовал только на виртуальный PDFCreator - вроде работает. Интересно было бы опробовать на физическом принтере...

PS. подразумевается принтер А4 - форамт А3 масштабирует на бумагу А4!

ssv22

Пробовал Ваш макрос на Panasonic DP-1820E -печатает только 1й лист, 2-го не видно в задании на нечать. Дождусь сисадмина, мож.какие настройки слетели.

[ssv22 16]

ssv22

Пробовал Ваш макрос на Panasonic DP-1820E -печатает только 1й лист, 2-го не видно в задании на нечать. Дождусь сисадмина, мож.какие настройки слетели.

Чертеж SW имеет несколько листов? Все ли они выбраны - отображены в списке листов и подсвечены?

У него какой формат бумаги максимальный? А4 или А3?

Локальный или сетевой?

вот еще немного подправленная версия (с автоопределением принтера "по-умолчанию"):

[Garyn 0]

Чертеж SW имеет несколько листов? Все ли они выбраны - отображены в списке листов и подсвечены?

У него какой формат бумаги максимальный? А4 или А3?

Локальный или сетевой?

вот еще немного подправленная версия (с автоопределением принтера "по-умолчанию"):

Да все листы выбраны и подсвечены пробовал несколько раз результат одинаковый.

Принтер сетевой формат А3,А4. (в параметрах печати было установлено " в р-р страницы")

Попробую новую версию может попрет.

Хотя проблемы с этим принтером были, печатал с АКАДа и PDF,а Solid не всегда.

[ssv22 16]

Да все листы выбраны и подсвечены пробовал несколько раз результат одинаковый.

Принтер сетевой формат А3,А4. (в параметрах печати было установлено " в р-р страницы")

Попробую новую версию может попрет.

Хотя проблемы с этим принтером были, печатал с АКАДа и PDF,а Solid не всегда.

Вот насчет сетевого принтера я не уверен, будет ли правильно работать...

Параметр " в р-р страницы" - устанавливается самим макросом (т.е. программно) только для листов А3, т.е. они масштабируются до А4.

Я то имел ввиду печать именно на принтер А4.

Потом, в настройках принтера у меня стоят параметры:

"Использовать Очередь печати" и "Начинать речатать немедленно"

[Garyn 0]

Вот насчет сетевого принтера я не уверен, будет ли правильно работать...

Параметр " в р-р страницы" - устанавливается самим макросом (т.е. программно) только для листов А3, т.е. они масштабируются до А4.

Я то имел ввиду печать именно на принтер А4.

Потом, в настройках принтера у меня стоят параметры:

"Использовать Очередь печати" и "Начинать речатать немедленно"

Этот принтер капризничал с форматом А3 из солида (тот лист который не встал на печать как раз в А3 похоже это старая головная боль.

Надо попробовать на другом HP LaserJet 1020 (формат только А4),но он тоже сетевой,хотя думаю это не на что не влияет.

вот еще немного подправленная версия (с автоопределением принтера "по-умолчанию"):

Попробовал на HP LaserJet 1020 -Все О"КЕЙ и вписал и повернул как надо.

Спасибо!!! Теперь с выводом на А4 можно отдохнуть.

[ssv22 16]

...

Попробовал на HP LaserJet 1020 -Все О"КЕЙ и вписал и повернул как надо.

Спасибо!!! Теперь с выводом на А4 можно отдохнуть.

Я рад :-)

Подождем еще отзывов...

PS.

Вот для полной уверенности надо бы проверить так: в чертеже SW сделать 4 листа форматом А4 и А3 книжной и альбомной ориентации каждый...

[Garyn 0]

Я рад :-)

Подождем еще отзывов...

PS.

Вот для полной уверенности надо бы проверить так: в чертеже SW сделать 4 листа форматом А4 и А3 книжной и альбомной ориентации каждый...

Я почти так и пробовал 1й А4 книжный,2й А3 альб,осталось попробовать повернет ли А3 книжный...Попробую завтра.

[ILL 241]

А с какими версиями солида работает? И только формат А3? А если А2, А1 или А0?

У меня пишет:

Run-time error '380':

Could not set the ListIndex property. Invalid property value

[ssv22 16]

А с какими версиями солида работает? И только формат А3? А если А2, А1 или А0?

У меня пишет:

Run-time error '380':

Could not set the ListIndex property. Invalid property value

SW2009.

Пока эксgериментирую с форматами А4 и А3. Для остальных - это потом. Да и имеет ли смысл, допустим А1/А0 выводить на бумагу А4?

Будет ли там что-то видно? Ну А2 еще может и можно...

Да и тут еще вот ошибки вылезают...

В какой ситуации возникает ошибка:

- сколько листов в чертеже?

- какого формата?

- ориентация?

- порядок листов: какой формат идет первым А4 или А3. Их ориентация?

- какой принтер А4 или А3? Локальный или сетевой?

PS. какую версию "AutoRotPrn" используете - я там две выкладывал. В первой были ошибки.

[elteom 0]

У меня нормально попечаталос.

Чертеж имеет

- Горизонтальный A3

- Вертикальный A4

Пустил чертеж на принтер формата А4.

Получил то, что и надо. Подогнанный под А4 горизонтальный А3.

И повернутый на горизонт А4.

Офегенно ящетаю, спасибо!

******************************************************

Принтер из сети. ОКИ какойто. (гадость кошмарная между нами)

Вот еще вопрос. Раньше стоял другой принтер.

Я его обозвал "Printer A4"

На своей машине я его видел как "Printer A4"

В шаблонах автокада он прописан так же "Printer A4"

Потом было много каих перестановок, потм купили ОКИ этот

Я его по старинке обозвал на машине- хозяйке "Printer A4'

Но когда я посылаю на него, то он теперь обозван как "\\Имя\Printer A4'

Где Имя- имя компа, где он стоит.

Все чертежи потребовали переназначить принтер на "\\Имя\Printer A4'

Но я хочу как раньше. (у меня дома принтер так же назван, теперь приходится полчаса только перебивать название принтера)

[ssv22 16]

...

Принтер из сети. ОКИ какойто. (гадость кошмарная между нами)

Вот еще вопрос. Раньше стоял другой принтер.

Я его обозвал "Printer A4"

На своей машине я его видел как "Printer A4"

В шаблонах автокада он прописан так же "Printer A4"

Потом было много каих перестановок, потм купили ОКИ этот

Я его по старинке обозвал на машине- хозяйке "Printer A4'

Но когда я посылаю на него, то он теперь обозван как "\\Имя\Printer A4'

Где Имя- имя компа, где он стоит.

Все чертежи потребовали переназначить принтер на "\\Имя\Printer A4'

Но я хочу как раньше. (у меня дома принтер так же назван, теперь приходится полчаса только перебивать название принтера)

В моей проге для определения "принтера по умолчанию" использутется функция WIN API:

Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long

Public Function GetDefaultPrinter() As String Dim Default_Printer_Name As String

Default_Printer_Name = String(1024, Chr(0))

GetProfileString "Windows", "Device", "", Default_Printer_Name, Len(Default_Printer_Name)

Default_Printer_Name = Replace(Default_Printer_Name, Chr(0), "")

If Len(Default_Printer_Name) > 0 Then Default_Printer_Name = Left(Default_Printer_Name, InStr(1, Default_Printer_Name, ",") - 1)

GetDefaultPrinter = Default_Printer_Name

End Function

Т.е. задействована Библиотека клиента Windows NT BASE API - "C:\WINDOWS\system32\kernel32.dll"

Так, что в какой прогамме(SW, ACAD) как текущий принтер называется - не имеет значени. ИМХО.

2 `ILL`

В справке VB по объекту Printer в описании большинства его параметров, вижу такую приписку:

"ЗамечаниеДействие свойств объекта Printer зависит от драйвера, поставляемого изготовителем принтера. Некоторые установки свойств могут не оказать никакого действия, или несколько различных установок свойств могут дать одинаковый эффект. Установки, если их значения лежат за пределами принятого диапазона, могут вызывать, а могут и не вызывать ошибок. Подробности см. в документации изготовителя драйвера."

[ILL 241]

SW2009.

Пока эксgериментирую с форматами А4 и А3. Для остальных - это потом. Да и имеет ли смысл, допустим А1/А0 выводить на бумагу А4?

Будет ли там что-то видно? Ну А2 еще может и можно...

Да и тут еще вот ошибки вылезают...

В какой ситуации возникает ошибка:

- сколько листов в чертеже?

- какого формата?

- ориентация?

- порядок листов: какой формат идет первым А4 или А3. Их ориентация?

- какой принтер А4 или А3? Локальный или сетевой?

PS. какую версию "AutoRotPrn" используете - я там две выкладывал. В первой были ошибки.

Версия "подправленная", принтер А4 сетевой, открыл в солиде чертеж (2 листа А1 вертикальных), солид 2007..

ЗЫ. Поэтому и спросил про форматы и версию солида..

[ssv22 16]

Версия "подправленная", принтер А4 сетевой, открыл в солиде чертеж (2 листа А1 вертикальных), солид 2007..

ЗЫ. Поэтому и спросил про форматы и версию солида..

Нет-нет : "Пока экспериментирую только с форматами А4 и А3"

[elteom 0]

Так, что в какой прогамме(SW, ACAD) как текущий принтер называется - не имеет значени. ИМХО.

Да я н про вашу программу, к ней у меня лично вопросов икаких нету пока что.

Когда я написал пр автокад, я имел в видунастройку листов. Когда один шаблон например А3 использует соответственно принтер А3 .

То название принтера прописано в шаблоне заранее.

Ты добавляешь лист и он уже заточен на свой принтер.

Раньше сетевой принтер виделся без пути к нему, теперь с путем.

Все старые чертежи уже не могут печататься без переназвания принтера.

[ssv22 16]

Да я н про вашу программу, к ней у меня лично вопросов икаких нету пока что.

Когда я написал пр автокад, я имел в видунастройку листов. Когда один шаблон например А3 использует соответственно принтер А3 .

То название принтера прописано в шаблоне заранее.

Ты добавляешь лист и он уже заточен на свой принтер.

Раньше сетевой принтер виделся без пути к нему, теперь с путем.

Все старые чертежи уже не могут печататься без переназвания принтера.

Ну, по данному вопросу - я пас - давно в АКАДе не печатал ничего...

[ssv22 16]

Вот была такая тема и что-то меня зантересовал объект "Priner" в VB:

<noindex>http://fsapr2000.ru/index.php?showtopic=32...mp;#entry291433</noindex>

Привет. В чертеже есть несколко листов. А3 и А4

А4- вертикальные. Сжимаются по высоте и печатаются вертикально на горионтальной форматке.

Можно ли настроить листы по разному?

Чота не бросилось в глаза.

Вот я несколько модернизировал существующий макрос. А потом задумался: а нужен-ли он?

Вроде на мой макрос были только положительные "рецензии". Кое-что добавил. Вот начал делать задумался...

Хотелось-бы посоветоваться. С кем угодно.

Прилагаю "пустышку" (т.е. нерабочую прогу - можно только кнопки потыкать)

Все листы, всех чертежей, всех форматов будут смаштабмрованы до указанного и "автопровернуты"...

Это, так сказать, эскиз...

PS. делал под SW2010, запускать: "Печать чертежей SW.EXE"

PPS. если оно кому нужно.

[ssv22 16]

Вот была такая тема и что-то меня зантересовал объект "Priner" в VB:

...

Забыл файл прикрепить :-)

[SERoz 201]

ssv22

Честно говоря не понял проблем с печатью разных листов разных форматов в Солиде????

Поставьте галку - "Индивидуальные настройки листов" (или как-то так) и без проблем можно печатать из одного файла разные листы и А4, и А3 и т.п...

Как раз сейчас так и делаю - сборка, ВС и ВП на А3_гориз., специи на А4_вертик (всё ОК)....