Excel

← →
User_OKA (2004-04-26 09:36) [0]

Как в Excel распечатать четные и нечетные страницы

← →
Nikolay M. © (2004-04-26 10:06) [1]

Четные + нечетные страницы = все страницы.
Print all.

← →
User_OKA (2004-04-26 10:16) [2]

ха ха ха очень смешно.

← →
Anatoly Podgoretsky © (2004-04-26 10:25) [3]

Так не задавай глупых вопросов, задавай правильные, или ты не над Nikolay M. смеешься?

← →
User_OKA (2004-04-26 12:17) [4]

Необходимо распечатать прайс. Сначало необходимо распечатать не четные страницы, а затем четные.

← →
Undert © (2004-04-26 12:19) [5]

У меня например во вкладке HP есть такая весщ - печать книг :-)

← →
Real © (2004-04-26 13:45) [6]

Макросом.

"Для нечетных
for i=1 to Sheets.Count step 2 Sheets(x).Select "здесь вызов печати листа next i

"Для четных
for i=2 to Sheets.Count step 2 Sheets(x).Select "здесь вызов печати листа next i

← →
Real © (2004-04-26 13:47) [7]

вместо Х - i (это я думаю и так ясно).

← →
User_OKA (2004-04-26 14:49) [8]

for i=2 to Sheets.Count step 2 // перебираем листы
next i

Sheets(x).Select // выделяем лист

PrintOut // выводим на печать

Что это дает?

А как же "Сначало необходимо распечатать не четные страницы, а затем четные".

Видать я чего то не понял?

← →
Real © (2004-04-26 19:56) [9]

Да, не понял - васик учить пора :)
STEP 2 - цикл будет идти с шагом 2, т.е. если начали с 1 - пойдут нечетные листы. Надеюсь теперь-то все ясно?

← →
User_OKA (2004-04-27 06:41) [10]

Sheets.Count возвращает количество листов в книге.
А мне надо распечатать первый лист, печатая четные и не четные страницы этого листа.

User_OKA, ты сам из Excelя это сделать можешь? Если можешь, то сначала запусти макрос на запись, потом сделай что хочешь и можешь, потом останови запись макроса и посмотри как он (макрос) внутри устроен. Перетащи его в delphi и все.

Не понимаю - вы что прикалываетесь? Повторю еще раз:
ЕСЛИ, НА НАЧАЛО ЦИКЛА, ИТЕРАТОР РАВЕН 1, А ЦИКЛ ИДЕТ С ШАГОМ 2, ТО ЭТО И ЕСТЬ НЕЧЕТНЫЕ СТРАНИЦЫ: 1,3,5,7,9...
ЕСЛИ ЖЕ НАЧАЛЬНОЕ ЗНАЧЕНИЕ 2 И ШАГ 2 - ТО ПОЙДУТ ЧЕТНЫЕ: 2,4,6,8,10...

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

for j=1 to 2
for i=j to Sheets.Count step 2
Sheets(i).Select
PrintOut
next i
next j

[12] Real © (27.04.04 09:34)
а как быть когда в одной "шитс(и)" дофига листов? :))

короче, нада делать как [11] YurikGl © (27.04.04 09:31) сказал :))

Excel Найти похожие ветки