Вид для печати
Есть таблица в excel. Нужно, чтоб определенные данные печатались на каждой станице. Если с шапкой все понятно: с помощью параметры печати/лист/сквозных строк, то как быть в итоговой суммой столбца для каждой страницы?? Посоветуйте, как такое можно реализовать? Любые идеи.
Access не поможет?
Нее, мне не нравится в каком виде он отчеты делает. В екселе как-то аккуратнее получается.Цитата:
Сообщение от Wolodya
В Excel можно сделать всё, но недостаточно подробно освещена задача.
В колонтитулы никак не получилось...
Можно попробовать так (скорее всего, это будет правой рукой левое ухо, но, тем не менее):Цитата:
Сообщение от taplica
1. определяем, сколько строк из таблицы влезает на одну страницу
2. рисуем макрос, который через каждое это самое количество строк вставляет соответствующую суммирующую строку и рисует в ней формулы.
Еще можно так:
1. добавляем в таблицу еще один столбец и называем его, допустим "Код"
2. в этом столбце для всех строк, которые печатаются на одной странице ставим одно значение кода (например "100"), для тех, что на второй странице - другой код (например "101")
3. Сортируем по этому коду таблицу
4. п.меню Данные (Data) - > промежуточные итоги
5. по каждому коду подводим промежуточные итоги.
Неудобство будет в том, что при изменении количества строк в таблице надо будет перелопатить все коды. Кстати, после перелопачивания этот столбец можно вообще скрыть.
В принципе, этот алгоритм можно программно сделать - будем задавать количество строк на страницу, а дальше все будет само... %О)
Болше ничегошеньки в голову не идет.
Пытливый, Если можно сделать програмно - напишите как, народ будет благодарен.
Напечатать в нижнем (или в любом) колонтитуле каждой страницы одного листа значение какой-либо ячейки - одна строка макроса прицепленная к событию.
Напечатать в колонтитуле каждой страницы что-то из этой же страницы немного сложней.
Так что же надо-то? Задача недостаточно чётко поставлена...
Вот. Набросал на скору руку. Пояснения на листе и в теле макроса.
Успехов! :О)
Код впечатляет, а результат - полная ахинея!
Эй! А кто задачу поставит корректно и понятно?
ADSemenov.ru, насколькоя понял дело обстоит так.
Для ряда денежных документов требуется сумма по странице.
Именно это в Excell'е и пытается получить taplica,
Dracosha Andrew!
Давайте определим термины.
Есть лист Excel. Он состоит из страниц (потому что может быть большим). Страницы могут располагаться сверху вниз, либо слева направо.
Скажем, заполнили лист какими-то данными. Они расползлись по нескольким страницам.
Хочется иметь какой-то результат, основанный на данных только страницы? А где? Можно в колонтитуле этой страницы? Ваш ответ всё равно недостаточно полон.
Ещё раз скажу - в Excel можно всё, но надо точно поставить задачу.
Может быть taplica мне пришлёт лист с данными и скажет, что с ними надо делать, вот тогда всё станет ясно!
Согласен, ахинея! :О) Пытался продемонстрировать в работе описанный мною ранее алгоритм.Цитата:
Сообщение от ADSemenov.ru
ИМХО, если человек просит совета, надо ему предложить направление, "в которое" можно думать - пусть додумывает и делает, как ему надо сам. А делать за кого-то - занятие нудное и высокооплачиваемое. :yes:
ADSemenov.ru, насчёт того, что страницы могуть "вбок" я как-то забыл ;)
Попробую поставить задачу конкретнее.
Есть бланк строго определенной формы и куча данных которые нужно запихать в этот бланк. На каждой странице вверху должна быть шапка,а внизу в нескольких столбцах располагаться итоговая сумма (сумма по странице, а не по всему документу). Количество строк на разных страницах тоже будет разным - так как в некоторых столбцах данные приходится переносить по словам. Делать одинаковыми размеры строк (в высоту) таблицы не желательно, так как данных очень много, а бумаги ограниченное количество, а в длину делать столбцы больше тем более не получится - данные и так по ширине страницы впритык стоят.
Надеюсь так понятнее.
Всем большое спасибо за советы :)
taplica,
У Вашей задачи есть два пути решения.-
1. Перед печатью вставить необходимые строки в конце каждой страницы, но этот способ сопряжён с большими трудностями, потому что после каждой вставки разрывы страниц смещаются и может быть не на одну строку, так как высота строк разная. Каждый раз Excel надо "заставлять" пересчитывать горизонтальные PageBreak'и, по которым и находятся места вставок. А если потом будут внесены изменения в листе, то требуется программно уничтожать старые вставки перед вставкой новых.
2. Удовлетвориться печатью необходимой информации о текущей странице листа в нижнем колонтитуле. Примерно так. - Создаётся нижний колонтитул. Создаётся своя панель инструментов с кнопкой печати. Макрос при нажатии на кнопку должен распечатывать лист постранично и для каждой страницы вставлять свои данные в нижний колонтитул. Недостаток - нет связи с разметкой столбцов, но это можно восполнить поясняющим текстом.
Первый пример не берусь показать - мало времени. А вот второй, если устраивает, могу попробовать.
Попробую прикрепить файл. Всё работает. Или почти всё.. :)
CrazyBuh, Мне понравилось... Работает
Одно меня смущает... почему в Windows XP - Office XP в макросах так тормозит. В 98/ME все просто летает. Или просто у меня Office "не той системы"?
CrazyBuh, Может просто памяти маловато? Или на не интеловском чипсете фирминнные дровишки не загружены?
taplica,
для Вас ЗДЕСЬ ещё пример с добавлением строк на каждой странице. Для нормальной работы в первой ячейке первой строки данных для суммирования надо иметь примечание "begin". Формирование строк применимо к любому принтеру и отрабатывает по событию "перед печатью" или "предварительный просмотр". Удаляются строки перед новым формированием по признаку прмечания в первой ячеки "footer".
В win98 работает очень быстро. Для изменения текста суммирующей строки, положения и количества суммирующих ячеек необходимо подкорректировать подпрограмму setFooter(). Там совершенно нет ничего сложного - пара строк.
Можно ещё ввести признак конца суммирования...
CrazyBuh! Ваш пример просто грандиозен и потрясающ! Серьёзно, чувствуется многолетняя практика и хороший настрой (в отличие от Пытливого). Вы меня заставили вспомнить молодость...
ADSemenov.ru - простенько и со вкусом! Знал бы, что можно делать ТАК - это значительно упрощает задачу и многое можно было бы сделать по- другому. В завершении темы прикрепляю очередную версию программы. Работает с многострочными шаблонами и некоторые другие фичи. В качестве примера рассматривается формирование книги продаж.
CrazyBuh!
Спасибо. Есть ещё порох в пороховницах.
Хотелось бы получить нам от taplica доброе слово...
ADSemenov.ru
CrazyBuh
Баааальшой respect! Здорово сделано! Спасибо за науку! :О)
