Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Печать четных и нечетных страниц - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Печать четных и нечетных страниц (Настройки Excel/Setup)
Печать четных и нечетных страниц
Надежда190280 Дата: Четверг, 30.06.2016, 21:01 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Как сделать, что бы печатались четные и нечетные страницы? Спасибо!


vfhnbyjdbx
 
Ответить
СообщениеКак сделать, что бы печатались четные и нечетные страницы? Спасибо!

Автор - Надежда190280
Дата добавления - 30.06.2016 в 21:01
a1703 Дата: Четверг, 30.06.2016, 22:20 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 6 ±
Замечаний: 0% ±

Excel 2007
Посмотрите здесь. Может найдете ответ. :)


Если долго, долго, чем то заниматься, постепенно начинаешь в этом разбираться :)
 
Ответить
СообщениеПосмотрите здесь. Может найдете ответ. :)

Автор - a1703
Дата добавления - 30.06.2016 в 22:20
Karataev Дата: Четверг, 30.06.2016, 22:26 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 837
Репутация: 312 ±
Замечаний: 0% ±

Excel
С помощью макросов:
[vba]
Код
Sub MyPrintOdd()
    'печать нечетных
    Dim i As Long
    For i = 1 To ActiveSheet.HPageBreaks.Count + 1 Step 2
        ActiveSheet.PrintOut From:=i, To:=i
    Next
End Sub
[/vba]
[vba]
Код
Sub MyPrintEven()
    'печать четных
    Dim i As Long
    For i = 2 To ActiveSheet.HPageBreaks.Count + 1 Step 2
        ActiveSheet.PrintOut From:=i, To:=i
    Next
End Sub
[/vba]


 
Ответить
СообщениеС помощью макросов:
[vba]
Код
Sub MyPrintOdd()
    'печать нечетных
    Dim i As Long
    For i = 1 To ActiveSheet.HPageBreaks.Count + 1 Step 2
        ActiveSheet.PrintOut From:=i, To:=i
    Next
End Sub
[/vba]
[vba]
Код
Sub MyPrintEven()
    'печать четных
    Dim i As Long
    For i = 2 To ActiveSheet.HPageBreaks.Count + 1 Step 2
        ActiveSheet.PrintOut From:=i, To:=i
    Next
End Sub
[/vba]

Автор - Karataev
Дата добавления - 30.06.2016 в 22:26
Надежда190280 Дата: Пятница, 01.07.2016, 18:18 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Karataev, спасибо, попробую. Пока еще не соображу, как макрос установить, но полажу в нете и может и что получится hands


vfhnbyjdbx
 
Ответить
СообщениеKarataev, спасибо, попробую. Пока еще не соображу, как макрос установить, но полажу в нете и может и что получится hands

Автор - Надежда190280
Дата добавления - 01.07.2016 в 18:18
Karataev Дата: Пятница, 01.07.2016, 19:55 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 837
Репутация: 312 ±
Замечаний: 0% ±

Excel
Найдите в интернете такую информацию:
1) как создать личную книгу макросов
2) как вставить макрос в личную книгу макросов
3) как сделать кнопку для макроса

В посте 3 два макроса, соответственно нужно будет сделать две кнопки для запуска макросов.


 
Ответить
СообщениеНайдите в интернете такую информацию:
1) как создать личную книгу макросов
2) как вставить макрос в личную книгу макросов
3) как сделать кнопку для макроса

В посте 3 два макроса, соответственно нужно будет сделать две кнопки для запуска макросов.

Автор - Karataev
Дата добавления - 01.07.2016 в 19:55
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Печать четных и нечетных страниц (Настройки Excel/Setup)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!