Перейти к содержанию

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


Рекомендуемые сообщения

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

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

 

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

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

 

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

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


Добавил

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


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


Добавил:

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

Ссылка на сообщение
Поделиться на другие сайты

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

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

Изменено пользователем kmscom
Ссылка на сообщение
Поделиться на другие сайты

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


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

Ссылка на сообщение
Поделиться на другие сайты

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 печатаются четные страницы

Ссылка на сообщение
Поделиться на другие сайты

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

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

Орфография

 

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

kmscom

 

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

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

Дополнил:

 

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

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

Ссылка на сообщение
Поделиться на другие сайты

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

post-27870-0-34943900-1386928341_thumb.jpg

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

Изменено пользователем kmscom
Ссылка на сообщение
Поделиться на другие сайты

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

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

Ссылка на сообщение
Поделиться на другие сайты

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

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

 

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

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

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

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

post-30145-0-95557700-1386930618_thumb.png

Ссылка на сообщение
Поделиться на другие сайты

 

 


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

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

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


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

Ссылка на сообщение
Поделиться на другие сайты

Присоединяйтесь к обсуждению

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

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Похожий контент

    • От Kristy
      Вопрос для тех, кто приезжает в Москву 18-ого, идет в офис и планировал жить в отеле.
       
      нужно общее ваше решенеие! т.к. рейс нам перенесли на 6:45, то в аэропорту мы должны быть как минимум в 4:45
      т.е. из Москвы в сторону аэропорта мы поедем последним экспрессом  в 00:00
       
      после офиса 18-ого,  унас будет ужин.
       
      ВОПРОС: оставлять ли мне бронь в гостиннице? просто логически подумать, в офисе мы будем с 2 до 6, потом ужин... еще время доехать до Киевской. вы до нее так и не доберетесь.
       
      Давайте общим голосование решим - оставлять ли ее или нет? 
       

      Редактирование от Kapral Голоса за "Гостиница не нужна"
      Тетя Евдокия #17 overman #3 Pomka. #11 Oleg777 #16  
      Голоса которым лень читать все, несмотря на предупреждения 3х модераторов
      neotrance #30 Голоса за "Хочу в гостиницу"
       
       
      ЗЫ. Остальные голосовали оценками к этому посту
       

      Строгое предупреждение от модератора Elly Посты не писать. Голосовать оценками к этому сообщению.
×
×
  • Создать...