• Andrey
  • Восстановленный участник
  • На форуме с 19 августа 2008г.
  • Сообщений: 2
  • Спасибо: 0

Тема: Помогите пожалуста с установкой размеров листа и границ печати.

Добрые люди помогите как устанавливать нестандартные размеры бумаги и менять границы печати, а то рамки форматов не вмещаются в граници печати.

  • Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Помогите пожалуста с установкой размеров листа и границ печати.

Если можешь покажи наработки.
Дело происходит в "Моделе" или "Листе".
У меня стоит похожая задача, печати кучи листов (форматок) на модели. Анализ найденных форматок. Подбор принтера, и его настройка на печатаемый формат. Пока так и не разобрался.
А то сто раз выделять рамкой область печати заколебаешся.

  • ssn
  • Активный участник
  • На форуме с 7 декабря 2003г.
  • Сообщений: 225
  • Спасибо: 1

Re: Помогите пожалуста с установкой размеров листа и границ печати.

посмотрите тут
http://dwg.ru/dnl/126
я писал для печати.
знание языка конечно хромает, но тем не менее, все работает

  • Andrey
  • Восстановленный участник
  • На форуме с 19 августа 2008г.
  • Сообщений: 2
  • Спасибо: 0

Re: Помогите пожалуста с установкой размеров листа и границ печати.

pName = "Gipro A0x1g"
    Formats = ThisDrawing.ActiveLayout.GetCanonicalMediaNames
    For Each Element In Formats
    name = ThisDrawing.ActiveLayout.GetLocaleMediaName(Element)
    If InStr(1, name, pName, vbTextCompare) = 1 Then
    ThisDrawing.ActiveLayout.CanonicalMediaName = Element
    End If
    Next Element
    ThisDrawing.PaperSpace.Layout.PaperUnits = acMillimeters
я так сделал но сдесь надо предварительно создать требуемый формат

  • ssn
  • Активный участник
  • На форуме с 7 декабря 2003г.
  • Сообщений: 225
  • Спасибо: 1

Re: Помогите пожалуста с установкой размеров листа и границ печати.

у меня тоже програмно создать этот самый CanonicalMediaName не вышло....