Печать чётных/нечётных страниц в Excel 2003

[Vlad1 0]

Нужно распечатать один документ - 112 страниц.

Двухсторонняя печать.

 

Сначала распечатать одну сторону, потом перевернуть и вторую.

В Word 2003 проблемы нет, там это есть в опциях печати.

 

А как быть в Excel 2003?

Вот сижу, нажимаю Ctrl+P, задаю страницу "от 1 до 1", "от 3 до 3" ....и боюсь ошибиться в спешке....
 

Добавил

Чтобы не было путаницы в ответах, дополню, печатаю сначала всё нечетные страницы. Пачку перекладываю, затем печатаю "чётные" - "от 2 до 2", "от 4 до 4"....

Добавил:   Если это есть в 2007 версии и выше, можете сказать, но жедательно для 2003 версии, т.к. комп на работе, переустанавливать офис, как бы, не совсем хорошо будет...
 

Добавил:

Что то не сконцентировал главный вопрос, нужно чтобы можно было как то задать опцию "Печатать нечётные страницы" и "Печатать чётных страницы" - как в Word

[kmscom 2005]

http://automatz.livejournal.com/4108.html#

http://vsobolev.com/kak-raspechatat-v-excel/

Изменено 13 декабря, 2013 пользователем kmscom

[Vlad1 0]

1-ая ссылка у меня не открылась, видимо провайдер блокирует, т.к. у нас и фейсбук, например, закрыт доступ.
2-ая ссылка очень неудобно конвертировать в PDF, кое что теряется по дороге....да и это для 2007 версии, как минимум.

Дополнил, у меня файл не на русском языке, в PDF кое что неверно перешло, некоторые нац. символы неверно сконвертировались.

[kmscom 2005]

1-ая ссылка у меня не открылась, видимо провайдер блокирует, т.к. у нас и фейсбук, например, закрыт доступ.

 

Печать четных и нечетных страниц Excel (макрос)

 

В меню Сервис -Макрос Начать запись -ОК.

Сервис-Макрос-Остановить запись.

Сервис-Макрос-Макросы -Макрос1-Изменить

Вставляю код:

 

 

Sub Print_Odd_Even()

Dim Totalpages As Long

Dim StartPage As Long

Dim Page As Integer

StartPage = 1 ' Задайте 1 = для Нечетных или 2 - для Четных

' Или используйте диалог для ввода

'StartPage = InputBox("Ввведите 1 для печати нечетных страниц, 2 - для четных")

Totalpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")

For Page = StartPage To Totalpages Step 2

ActiveSheet.PrintOut from:=Page, To:=Page

Next

End Sub

 

Сохраняю макрос. Он доступен будет только в текущей книге.

Захожу в многостраничный Excel файл

Сервис-макрос-макросы (выбираю созданный макрос)- выполнить

Печатаются нечентные страницы

Меняю в коде с 1 на 2 печатаются четные страницы

[Vlad1 0]

некоторые нац. символы неверное сконвертировались.

Сообщение отредактировал Kapral: минуту назад 

Орфография

 

Ничего не поправили по орфографии, между прочим, я просил слово "неверное" заменить на "неверно"...

kmscom

 

Спасибо, пока проверить нет возможности, тот комп на другой работе.

Завтра отпишусь, что и как, помогло ли...

Дополнил:

 

можно поинтересоваться, а возможность корректировать сообщения есть на этом форуме?

как то не хочется за исправление одного символа напрягать модератора.

[kmscom 2005]

можно поинтересоваться, а возможность корректировать сообщения есть на этом форуме?

хотя у Новичка может иначе

Изменено 13 декабря, 2013 пользователем kmscom

[Vlad1 0]

 

можно поинтересоваться, а возможность корректировать сообщения есть на этом форуме?

 

у меня вот так

[kmscom 2005]

хотя у Новичка может иначе

теперь вы Участник

[Vlad1 0]

 

хотя у Новичка может иначе

теперь вы Участник

 

 

И что?

[kmscom 2005]

И что?

ссылка Изменить должна появится

[Vlad1 0]

я пока не вижу её

[kmscom 2005]

я пока не вижу её

попробуйте перезайти на форум

[Kapral 1487]

vlad1 , шо тебе не нравится? в посте http://forum.kasperskyclub.ru/index.php?showtopic=42118&do=findComment&comment=605492

там написано неверно, поставь нормальный браузер, который правильно кэширует и не дури всем голову

[Vlad1 0]

vlad1 , шо тебе не нравится? в посте http://forum.kasperskyclub.ru/index.php?showtopic=42118&do=findComment&comment=605492

там написано неверно, поставь нормальный браузер, который правильно кэширует и не дури всем голову

 

да вот только что скрин сделал, у кого по другому?

если у всех не так, скажите, может в самом деле у меня Хром ненормальный....

Добавлено: там 2 раза слово "неверно" - первое и в оригинале было написано правильно, нужно было исправить в конце предложения, о чём я и попросил, а там без изменения "неверное".

Я не уверен вобще то что у меня браузер барахлит...

[Kapral 1487]

 

 

да вот только что скрин сделал, у кого по другому?

1е слово "неверное" я заменил на "неверно"

А если вы постоянно допускает ошибки - то ставьте браузер со встроенной проверкой грамотности

а во вторых у вас должна была появится правка своих постов