Печать сквозных строк

Вход

Регистрация

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

= Мир MS Excel/Печать сквозных строк - Мир MS Excel

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

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

Печать сквозных строк (Формулы)

Печать сквозных строк

Ирина

Дата: Вторник, 12.11.2013, 12:48 | Сообщение № 1

Группа: Гости

Добрый день!
Помогите пожалуйста. Необходимо задать на печать сквозные строки, как это сделать на одном листе - понятно, а вот как задать на всю книгу?????
Нашла такой макрос, но он действует только на активный лист:(

[vba]

Код

With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$4"
.PrintTitleColumns = "$A:$C"
End With

[/vba]

Ответить

5tanislav

Дата: Вторник, 12.11.2013, 13:01 | Сообщение № 2

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

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

Сообщений: 4

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

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

Excel 2010

Ирина,
Добрый день!

[vba]

Код

Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets
     With sh.PageSetup
         .PrintTitleRows = "$1:$4"
         .PrintTitleColumns = "$A:$C"
     End With
Next

[/vba]

Ответить

Ирина

Дата: Вторник, 12.11.2013, 13:10 | Сообщение № 3

Группа: Гости

Все работает, огромное спасибо!!!

Ответить

Печать сквозных строк (Формулы)

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