Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Закрыть режим .PrintPreview - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закрыть режим .PrintPreview (Макросы/Sub)
Закрыть режим .PrintPreview
Glen Дата: Пятница, 30.09.2022, 07:59 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 92
Репутация: 10 ±
Замечаний: 0% ±

Excel 2010-16
Всем доброго дня.
Прошу помочь в проблеме подсчета числа страниц в файле Excel.
В файле 2 страницы.
Файл выгружается из сметной программы. Файл еще ни кем не открывался.
При попытке подсчета
PageSetup.Pages.Count=1
PageBreaks не определены и =0
После применения метода Worksheets(1).PrintPreview все становится на свои места: PageSetup.Pages.Count=2 и HPageBreaks =1
Вопросы:
1. Не получается выйти из режима .PrintPreview, подскажите как?
2. может быть есть другой метод предварительного просмотра?
проверяю так
[vba]
Код
Sub nn()
   vv = (Sheets(1).HPageBreaks.Count + 1) * (Sheets(1).VPageBreaks.Count + 1)
   dd = Sheets(1).PageSetup.Pages.Count
End Sub
[/vba]
К сообщению приложен файл: 3650186.xlsx(16.0 Kb)


Пехаль киндриков куравь, пехаль киндриков лузнись.

Сообщение отредактировал Glen - Пятница, 30.09.2022, 08:04
 
Ответить
СообщениеВсем доброго дня.
Прошу помочь в проблеме подсчета числа страниц в файле Excel.
В файле 2 страницы.
Файл выгружается из сметной программы. Файл еще ни кем не открывался.
При попытке подсчета
PageSetup.Pages.Count=1
PageBreaks не определены и =0
После применения метода Worksheets(1).PrintPreview все становится на свои места: PageSetup.Pages.Count=2 и HPageBreaks =1
Вопросы:
1. Не получается выйти из режима .PrintPreview, подскажите как?
2. может быть есть другой метод предварительного просмотра?
проверяю так
[vba]
Код
Sub nn()
   vv = (Sheets(1).HPageBreaks.Count + 1) * (Sheets(1).VPageBreaks.Count + 1)
   dd = Sheets(1).PageSetup.Pages.Count
End Sub
[/vba]

Автор - Glen
Дата добавления - 30.09.2022 в 07:59
Pelena Дата: Пятница, 30.09.2022, 08:37 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 18611
Репутация: 4220 ±
Замечаний: ±

Excel 2016 & Mac Excel
Здравствуйте.
может быть есть другой метод

вариант
[vba]
Код
Sub nn()
    vv = (Sheets(1).HPageBreaks.Count + 1) * (Sheets(1).VPageBreaks.Count + 1)
    dd = Sheets(1).PageSetup.Pages.Count
    ActiveWindow.View = xlPageBreakPreview
    vv = (Sheets(1).HPageBreaks.Count + 1) * (Sheets(1).VPageBreaks.Count + 1)
    dd = Sheets(1).PageSetup.Pages.Count
    ActiveWindow.View = xlNormalView
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
может быть есть другой метод

вариант
[vba]
Код
Sub nn()
    vv = (Sheets(1).HPageBreaks.Count + 1) * (Sheets(1).VPageBreaks.Count + 1)
    dd = Sheets(1).PageSetup.Pages.Count
    ActiveWindow.View = xlPageBreakPreview
    vv = (Sheets(1).HPageBreaks.Count + 1) * (Sheets(1).VPageBreaks.Count + 1)
    dd = Sheets(1).PageSetup.Pages.Count
    ActiveWindow.View = xlNormalView
End Sub
[/vba]

Автор - Pelena
Дата добавления - 30.09.2022 в 08:37
Glen Дата: Пятница, 30.09.2022, 08:59 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 92
Репутация: 10 ±
Замечаний: 0% ±

Excel 2010-16
Pelena, точно!!
В 100млн. -ый раз СПАСИБО, дорогая


Пехаль киндриков куравь, пехаль киндриков лузнись.
 
Ответить
СообщениеPelena, точно!!
В 100млн. -ый раз СПАСИБО, дорогая

Автор - Glen
Дата добавления - 30.09.2022 в 08:59
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закрыть режим .PrintPreview (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!