Печать первых страниц каждого листа в книге

Дата: Понедельник, 28.07.2014, 12:54 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Доброго времени суток. Возникла проблема на решение которой уходит не первый день. Заполняем акты по форме в Excel. Создается книга, в ней листы. Каждый лист-отдельный акт на 2 страницах. Листов очень много получается больше 50-ти обычно, вручную очень долго печатать. Задача: вывод на печать все первые страницы с каждого листа (Лист 1 - первая страница, Лист 2 - первая страница и тд). Затем так же печать вторых страниц опять каждого листа во всей книге. Т.е. каждый двухсторонний. Пыталась макрос создать, ничего толкового не вышло. Подскажите, что можно с этим сделать?

Дата: Понедельник, 28.07.2014, 13:02 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19402

Репутация: 4554 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
В параметрах печати поставить Печатать всю книгу и Нечетные номера страниц. Нет?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Дата: Понедельник, 28.07.2014, 13:19 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Цитата Pelena, 28.07.2014 в 13:02, в сообщении № 2

Здравствуйте.
В параметрах печати поставить Печатать всю книгу и Нечетные номера страниц. Нет?

Я не нашла где там можно ставить четные/нечетные страницы. Только печать с __ по __ страницу :'(

Дата: Понедельник, 28.07.2014, 13:33 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Написала я примерно такой макрос для первых страниц, но неудобство в том, что при его написании приходиться вручную вводить имя листа, поскольку все они названы по разному

[vba]

Код

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("ВД1 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("ВД2 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("ВД3 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("ВД4 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("П1 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("П2 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("П3 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("П4 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("П5 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("П6 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("П7 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("П8 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("П9 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("П10 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("П11 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("В1 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("В2 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("В3 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("В4 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("В5 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("В6 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("В7 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("В8 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("В9 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("В10 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("В11 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("В12 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("В13 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("В14 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("В15 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("В16 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("В17 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("ПД1 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("ПД2 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("ПД3 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("ПД4 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("ПД5 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("ПД6 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("ПД7 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("ПД8 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("ПД9 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("ПД10 №").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("ПД11 №").Select
End Sub

[/vba]

Код

[/vba]daria-ekt

СообщениеНаписала я примерно такой макрос для первых страниц, но неудобство в том, что при его написании приходиться вручную вводить имя листа, поскольку все они названы по разному

[vba]

Код

[/vba]

Автор - daria-ekt
Дата добавления - 28.07.2014 в 13:33

шураООТиЗ

Дата: Понедельник, 28.07.2014, 13:46 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 52

Репутация: 9 ±

Замечаний: 0% ±

Excel 2007

Посмотрите.

Шура

Дата: Понедельник, 28.07.2014, 13:53 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 19402

Репутация: 4554 ±

Замечаний: ±

Excel 365 & Mac Excel

А если макрос немного сократить

[vba]

Код

Public Sub prn()
     Dim sh As Worksheet
     For Each sh In ThisWorkbook.Sheets
         sh.PrintOut From:=1, To:=1, Copies:=1
     Next
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Дата: Понедельник, 28.07.2014, 14:14 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Цитата Pelena, 28.07.2014 в 13:53, в сообщении № 6

А если макрос немного сократить

Это гениально! все работает! спасибо огромное! clap

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

Дата: Понедельник, 28.07.2014, 16:12 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 19402

Репутация: 4554 ±

Замечаний: ±

Excel 365 & Mac Excel

Для обратного порядка придумалось так
[vba]

Код

Public Sub prn()
     Dim i&
     For i = ThisWorkbook.Sheets.Count To 1 Step -1
         Worksheets(i).PrintOut From:=1, to:=1, Copies:=1
     Next
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Дата: Вторник, 29.07.2014, 06:12 | Сообщение № 9

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Pelena, печать первой страницы почему-то только производиться.

Дата: Вторник, 29.07.2014, 22:21 | Сообщение № 10

Группа: Админы

Ранг: Местный житель

Сообщений: 19402

Репутация: 4554 ±

Замечаний: ±

Excel 365 & Mac Excel

Для второй страницы поставьте
[vba]

Код

From:=2, to:=2,

[/vba]
или я не поняла вопрос

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

ilias-arh

Дата: Вторник, 02.06.2015, 10:27 | Сообщение № 11

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

спасибо за скрипт, все работает.
подскажите, как его дополнить, чтобы он печатал еще и последнюю страницу листа Excel?

т.е. у меня задача распечатать с каждого листа книги первую и последнюю страницу.
[moder]Читайте Правила форума.
Создавайте свою тему, в которой дайте ссылку на эту.
Эта тема закрыта.

Сообщение отредактировал _Boroda_ - Вторник, 02.06.2015, 11:00