Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Потрепаться";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.065 c
1-1083078572
td
2004-04-27 19:09
2004.05.16
Как сделать событие на щелчок правой кнопкой мыши?


1-1083482796
Tishaishy
2004-05-02 11:26
2004.05.16
Синхронизация потоков , нужна помощь


1-1083651731
$tranger
2004-05-04 10:22
2004.05.16
Запуск с параметрами


1-1083727629
Bulanov
2004-05-05 07:27
2004.05.16
Процедура.


1-1082631258
Mim1
2004-04-22 14:54
2004.05.16
Unicode





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский