Рамочка для документа

[odyccey]

Спасибо за участие в вопросе ))))
Может, что то и получится. Попробую реализовать.
Но :
- 1) я довольно поверхностно знаю VBA и написать цикл вставки данных с одного листа на другой по признаку количества строк - для меня довольн непростая задача (даже очень непростая)))
- 2) пару дней пока посвящу просто вставке данного материала-текста (клемных полей) в Word, т.к. с колонтитулами там все гораздо прозрачнее, а до выходных надо сделать хоть что то, что поможет конструкторам оформить результаты своей работы - в виде текста-таблиц (клемных полей) со специально разработанными рамочками (штампами).

Еще раз спасибо за внимание к моей теме.

[odyccey]

кстати - можно ли сделать колонтитул Excel видимым на страничке? для того чтобы в его поля можно было вставлять ссылочки ???

[Alkaline]

Похоже, ничего такого нельзя. Можно лишь задавать из VBA примерно так:

Worksheets("Sheet1").PageSetup.Left Header = "&D blah-blah-blah"

- одинаково для всех страниц.

Т.ч. я бы рекомендовал сосредоточиться на точном форматировании разбивки страниц (в т.ч. вычисления высоты либо количества ячеек и автомтической вставке разрыва страницы, где нужно) и эмулировании колонтитулов простыми ячейкми в стандартных местах...

[odyccey]

1. насчет разбивки страниц я согласен (осталось только сообразить - как)
2. вставке разрыва страниц - разве не сползет на другую страничку моя таблица-штамп?
3. эмулировать колонтитулы простыми ячейками к сожалению не получиться, т.к. структура штампа в рамочке довольно витееватая и размеры заданя жестко.
вот такие делы клллега )))

[Alkaline]

Слушай, я постараюсь точнее выразить свою мысль. Логика действий такая:

Определяешь (на глаз, простым подсчетом) n - количество строк на одной печатной странице.
Далее должна работать программа на VBA:
После каждых n строк автоматически вставляется разрыв с помощью функции вида Set ActiveSheet.vPageBreaks(1).Location = Range("H68") и т.д.
Далее выбирается ячейка новой страницы и автоматически вставляется некоторый рисунок - графический объект MSOffice - он может также автоматом копироваться с первого листа.
В свойствах рисунка добавляется текстовая строка (если такого нет, то нужно сгруппировать рисунок с текстовым блоком НАДПИСЬ или просто выводить надпись поверх рисунка. Эта текстовая строка должна содержать автоматически сгенерированный искусственный колонтитул.

Вот и все. Желательно предусмотреть переразбивку страниц: удаление всех рисунков, новая расстановка разделителей страниц, повторная расстановка псевдо-колонтитулов. Эту процедуру нужно делать перед печатью...

[Alkaline]

Почитай внимательно в справке про HPageBreaks, ту функцию я для примера привел. Поиграй с параметрами:

Set ActiveSheet.HPageBreaks(2).Location = Range("A127")