| Вопрос: пернос строк в Excel | Добавлено: 19.12.07 18:07 |
Автор вопроса:  masterNike
|
|
Подскажите плиз. Есть вот такой цикл
Sub OnRefreshAfterReports() Dim i As Integer Dim RowsCount As Integer RowsCount = ThisWorkbook.Names("Report1.Range").RefersToRange.Rows.Count For i = 1 To RowsCount Sheets("Layout").Range("A" + CStr(i + 37)).Value = Sheets("RawData").Range("A" + CStr(i)) Next Предположим, что i=150, строки выводяться на 3 листа в Excel. Как выводить на страницу заданное количество строк??? Например по 20. Зараннее благодарю за ответ. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  EUGY Вопросов: 0 Ответов: 454 |
Профиль | | #1 | Добавлено: 19.12.07 18:39 |
Sheets("Layout" .PageSetup.PrintArea = ...
|
||
|
Номер ответа: 2 Автор ответа: night-rollВопросов: 36 Ответов: 326 |
Профиль | | #2 | Добавлено: 26.12.07 23:11 |
| а выводить надо на принтер, да? | ||
|
Номер ответа: 3 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #3 | Добавлено: 29.12.07 08:16 |
| Хотя EUGY тебе уже ответил, если есть сомнения, то запиши макрос, в котором ты выделишь диапазон из 150 скажем строк и скольких-то столбцов, потом сделаешь команду Файл -> Область печати -> Задать | ||
Страница: 1 |