Скачать: CL | DM;

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 возвращает количество листов в книге.
А мне надо распечатать первый лист, печатая четные и не четные страницы этого листа.

---

← →
YurikGl ©   (2004-04-27 09:31) [11]

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

---

← →
Real ©   (2004-04-27 09:34) [12]

Не понимаю - вы что прикалываетесь? Повторю еще раз:
ЕСЛИ, НА НАЧАЛО ЦИКЛА, ИТЕРАТОР РАВЕН 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

---

← →
Danilka ©   (2004-04-27 11:54) [13]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.021 c