Ленька замучила... Прайс в Excel

[MeMBus]

Не ругайтесь сильно, если что-то подобное уже было... Заранее извиняюсь...
Вопрос №1. При добавлении значения узнать, начался ли новый печатный лист или нет. Соответственно если да, добавлять на новый печ. лист шапку, если нет то нет...
P.S. На работе жара, голова туго соображает, руки не набирают код...
P.P.S. Ширина ячейки плавающая, соотв. фиксированное кол-во строк на листе не подходит...

[alibek]

Проще всего не изобретать велосипед, а воспользоваться фичей Excel в параметрах страницы "Сквозные строки". Другим путем -- только считать разрывы страницы.

[MeMBus]

Ну млин, жара видимо действует... Хотел топик создать в VB, засунул в VBA... Сейчас смотрю в VB, топика нет – подумал, что меня уже плющит... Через поиск нашел...
Итак к сути проблемы... Есть VB, из него делаем прайс... Открываем док, и начинаем формировать таблицу, так как в этом случае считать разрывы? Мне ж нужно чтоб при достижении конца печ. листа был переход с переносом шапки... Тобишь можно как-нить извратиться и написать что-нить типа:

Код: Выделить всё

For i=1 to 5000
If новый лист then
‘Делаем шапку
else
.Range(“A” & trim(str(i))).Value = name
…
End if
Next i

P.S. Как-то же народ делает это...

[MeMBus]

Другим путем - только считать разрывы страницы.

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

[alibek]

Пройтись циклом от текущей ячейки до первой и считать, сколько будет .PageBreak.

[MeMBus]

Тут то я испытал проблемы... Для того чтоб узнать кол-во страниц к примеру, ты должен заполнить структуру документа, соотв. и поимеешь те самые разрывы... А не заполнив структуру, можно посчитать кол-во страниц, разрывы и т.п.? Ведь Excel это может делать, тобишь если мы не заполняем структуру, он все равно показывает страницы, и разделители... И соответственно он переформатирует документ, к примеру когда мы к примеру раздвигаем ячейку...

[alibek]

В настройках можно задать автоматическую разметку страницы. Можно также выполнить предварительный просмотр, он тоже выполняет разметку страницы.

[MeMBus]

alibek спасибо тебе за инфу... некоторые моменты выяснил... жара спала, решил таки попробовать всю накопившуюся инфу на примере... ну и соответственно задать еще ОЧЕНЬ много вопросов

[MeMBus]

Вопрос №2. Есть ячейка в которой находится текст. Необходимо сделать так, что бы в случае если текст в ячейку, она изменяла ширину (либо объединяла ячейки).
Внимание! Когда мы делаем это в эксэле, у нас помещается в строке 36 символов, но при превью отображается 40 символов, можно как-нибудь обойти данную фичу?
Шрифт не фиксированный, подсчет символов проходит, но если я оставляю 36 символов, то получается достаточно много свободного места в ячейке (относительно размера ячейки). Понимаю, что тут работает таки драйвер принтера...
2) Есть ли варианты подсчета количества строк не фиксированной длины?
При условии, что мы видим в окне экселя, то же и получаем при превью (печати).

[GSerg]

36, 40...
Ты ещё масштаб отображения поизменяй, тебе многое откроется

[MeMBus]

Во-во... Да я вчера и так уже подумал «А не пойти ли мне в монастырь в Тибет», когда начал всячески издеваться над превью... Так ведь и с ума сойти можно...
1) Есть ли варианты реализации «что видим, то и получаем»?
2) Есть ли варианты выполнить правильный перенос строки?

[MeMBus]

Как можно определить длину строки в пикселях изходя из установок принтера и используемого шрифта?

[GSerg]

Дык у принтера есть hDC, поэтому GetTextExtentPoint32.
Правда, перед этим придётся установить принтеру тот самый шрифт, потом померять строку, потом воткнуть обратно

[MeMBus]

Можно конечно использовать еще TextWidth... Думаю еще

[alibek]

Можно конечно использовать еще TextWidth... Думаю еще

Неа, нельзя. В VBA нет объекта Printer.

[MeMBus]

To alibek
Так я же говорил что хотел тему создать в разделе VB, а от жары создал в VBA. Соответственно, про TextWight знаю...

Вот сейчас сижу и придумываю как извратиться, чтоб получилось более-менее красивее... Я то думал, может кто нить решал такую проблему, и ему есть чем поделиться...

[MeMBus]

alibek нужен совет... добился быстрой работы с данными... но вот с форматированием что-то догнать не могу более оптимального решения... Есть, к примеру, 100 ячеек, нужно выполнить определенное форматирование стиля к ячейкам 1,5,7,11,15 и так далее, к ячейкам 3,9,13,17 и т.д. нужно выполнить другое форматирование и т.д. Как ускорить процесс форматирования?
Сейчас использую селекшен для выделения определенных групп ячеек, после чего применяю нужное форматирование к данному селекшину...

[alibek]

Делай несмежное выделение нескольких ячеек и применяй форматирование сразу к ним всем.

[MeMBus]

Ты имеешь ввиду выделение всех ячеек (в группу), у которых будет одинаковый формат? Если да, то так и делаю... Если нет, то можно поподробнее что значит «несмежное»? Вот еще вопросец... К примеру в тех группах (см. выше) есть ячейки у которых определенное свойство одинаково (к примеру bold=true), но остальные свойства групп разные, какой вариант будет лучший, форматирование групп по font’у и далее форматирование каждой отдельной группы (выделение нужно перебивать на нужную группу) или форматирование каждых групп отдельно со своими свойствами?