печать нескольких файлов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » печать нескольких файлов (Формулы/Formulas)

patinkton

Дата: Пятница, 24.02.2017, 12:43 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 12

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

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

Excel 2013

Добрый день, подскажите, есть около 200 файлов в которых нужно распечатать только первый и второй лист......есть макрос который печатает во всех файлах только первые листы

К сообщению приложен файл: -__1.xls (28.0 Kb)

Ответить

Wasilich

Дата: Пятница, 24.02.2017, 12:50 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

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

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

2003

Цитата patinkton, 24.02.2017 в 12:43, в сообщении № 1 ()

подскажите

Подсказываю! Подскажите что подсказать!

Ответить

patinkton

Дата: Пятница, 24.02.2017, 12:52 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 12

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

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

Excel 2013

Wasilich, что нужно сделать чтобы печатал первый и второй листы из файлов , а не только первый

Ответить

AlexM

Дата: Пятница, 24.02.2017, 14:24 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4480

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

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

Excel 2003

Пробуйте вместо [vba]

Код

Worksheets(1).PrintOut 1, 1, 1, False, printtofile:=False

[/vba]вставить
[vba]

Код

Sheets(Array(1, 2)).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

[/vba]

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Wasilich

Дата: Пятница, 24.02.2017, 23:44 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

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

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

2003

А если по очереди отправлять на печать
[vba]

Код

Worksheets(1).PrintOut Copies:=1
Worksheets(2).PrintOut Copies:=1

[/vba]Ну или
[vba]

Код

Sheets("Лист1").PrintOut Copies:=1
Sheets("Лист2").PrintOut Copies:=1

[/vba]Не проверял, нет принтера.

Сообщение отредактировал Wasilich - Пятница, 24.02.2017, 23:45

Ответить

patinkton

Дата: Суббота, 25.02.2017, 00:53 | Сообщение № 6

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

Ранг: Новичок

Сообщений: 12

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

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

Excel 2013

AlexM, спасибо друган...помогло.... а если например нужны листы 5 и 7 : Sheets(Array(1, 2)).Select , то вместо 1,2 ставлю 5,7 ??

Ответить

AlexM

Дата: Суббота, 25.02.2017, 08:47 | Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4480

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

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

Excel 2003

Команда Sheets(Array(1, 2)).Select делает тоже, что и вручную при нажатом Ctrl кликаете по ярлычкам листов. Так выделить можно любое количество и любую комбинацию листов.
[offtop]

Цитата patinkton, 25.02.2017 в 00:53, в сообщении № 6 ()

друган

можно было без этого, ну в крайнем случае друг.
Обратите внимание, что я и Wasilich к вам обращаются на ВЫ

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » печать нескольких файлов (Формулы/Formulas)

Страница 1 из 1
1