powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel
9 сообщений из 9, страница 1 из 1
Excel
    #36672965
Marfu6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Подскажите пожалуйста, как узнать количество строк, которое вмещается на листе при печати в Excel (какая переменная отвечает за это)?
Это необходимо для того, чтобы при переносе таблицы на след. лист снова впихнуть шапку таблицы в первые строки листа.
...
Рейтинг: 0 / 0
Excel
    #36673486
_Boroda_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Marfu6a,

А чем не нравится в параметрах страницы вкладка лист сквозные строки?
...
Рейтинг: 0 / 0
Excel
    #36673683
Marfu6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
_Boroda_, спасибо за совет, но последний лист у меня не должен содержать шапку, а определенный кусочек текста. А при использовании вашего совета текст разрывается вставляется в первые строки шапка и далее продолжается не таблица(которая уже закончилась ранее), а тот текст который мне необходим!!! :-(
Поэтому прошу помощи у всех, подскажите как можно узнать какое количество строк помещается на листе при печати в Excel???????????????????????????????
...
Рейтинг: 0 / 0
Excel
    #36673884
ua3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ua3
Гость
Marfu6aПодскажите пожалуйста, как узнать количество строк, которое вмещается на листе при печати в Excel (какая переменная отвечает за это)?
Это необходимо для того, чтобы при переносе таблицы на след. лист снова впихнуть шапку таблицы в первые строки листа.
Может быть я не понял сущности вопроса, но ... Предлагаю Вам посмотреть на картинку РАБОЧЕЙ программы
1. кол-во строк на печатном (бумажном) листе зависит не от переменной , а непосредственно от желаний автора .
2. на картинке прекрасно видно, что ширина 1-ой (синей) строки и 9-ой (красной ) отличаются примерно в 2 раза.
Это значит что на одном и том же листе 9-ых строчек поместится в 2 раза меньше чем 1-ых
3. Формат печати бывает альбомный и книжный.
4. Разный размер бумаги ( можно печатать на календарном листе, а можно на чертежном ватмане
5. Шрифт печатного текста
6. Кто Вам мешает топнуть 2 раза мышкой: ФАЙЛ->ПРЕДВАРИТЕЛЬНЫЙ ПРОСМОТР
...
Рейтинг: 0 / 0
Excel
    #36673970
_Boroda_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Marfu6a,

В принципе, можно заморочиться макросом, но гораздо проще сделать так: этот "определенный кусочек текста" поместить на другой лист этой книги, для печати всего сразу - выделить (через Контрл) эти 2 листа, файл, печать (или кнопкой "Быстрая печать")
...
Рейтинг: 0 / 0
Excel
    #36674065
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Marfu6a,

Код: plaintext
1.
2.
3.
Dim pb As HPageBreak, lngHBRow As Long
For Each pb In Me.HPageBreaks
    lngHBRow = pb.Location.Cells.Row
Next

Подскажите пожалуйста, как узнать количество строк, которое вмещается на листе при печати в Excel

Это колво строк будет равно lngHBRow -1
...
Рейтинг: 0 / 0
Excel
    #36674084
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vlthЭто колво строк будет равно lngHBRow -1

Для первого элемента коллекции HPageBreaks раб. листа, конечно.

(Пример набрал в модуле листа, поэтому вместо конструкции Workbooks(Index).Worksheets(Index2) фигурирует 'Me'.
...
Рейтинг: 0 / 0
Excel
    #36675697
Marfu6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
vlthMarfu6a,

Код: plaintext
1.
2.
3.
Dim pb As HPageBreak, lngHBRow As Long
For Each pb In Me.HPageBreaks
    lngHBRow = pb.Location.Cells.Row
Next

Подскажите пожалуйста, как узнать количество строк, которое вмещается на листе при печати в Excel

Это колво строк будет равно lngHBRow -1

спасибо за инфу!!!!!!!

Подскажите в чем проблема:
пишу код

loSheetApp=CreateObject("Excel.Application")
XLApp = loSheetApp.Application
XLSheet = XLApp.ActiveSheet
XlApp.ActiveWindow.View = xlPageBreakPreview
MESSAGEBOX(XLSheet.HPageBreaks.Count)

Выводит 0
Вопрос: Че за бредд?
...
Рейтинг: 0 / 0
Excel
    #36676149
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
loSheetApp=CreateObject("Excel.Application")
XLApp = loSheetApp.Application
XLSheet = XLApp.ActiveSheet
XlApp.ActiveWindow.View = xlPageBreakPreview
MESSAGEBOX(XLSheet.HPageBreaks.Count)

Выводит 0
Вопрос: Че за бредд?

1. Вы в какой среде программируете?
(Объектным переменным в VBA(VB)ссылки присваиваются через Set
Set XLApp=CreateObject("Excel.Application"), MESSAGEBOX() ???)

2. А какой результат можно получить для новой книги?
Сначала, наверное, нужно задать область печати?


3. В прошлый раз я лишнего написал. Компактнее будет:
Код: plaintext
lngHBRow = pb.Location.Row
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]