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

Вход

Регистрация

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

 

= Мир MS Excel/Готовые решения

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 35740
Главная » Готовые решения » VBA » Процедуры

Печать активной страницы
07.09.2013, 23:37
[ Файл-пример (259.5Kb) ]
Макрос печатает страницу, на которой в момент запуска макроса находится активная (выделенная) ячейка
Sub PrintActivePage()
Sub PrintActivePage()
 Dim wks As Worksheet
 Set wks = ActiveSheet

 Dim i As Integer, x As Integer, y As Integer, n As Integer

 For i = 1 To wks.HPageBreaks.Count
 If wks.HPageBreaks(i).Location.Row > ActiveCell.Row Then
 y = i
 Exit For
 End If
 Next i
 If y = 0 Then y = wks.HPageBreaks.Count + 1

 For i = 1 To wks.VPageBreaks.Count
 If wks.VPageBreaks(i).Location.Column > ActiveCell.Column Then
 x = i
 Exit For
 End If
 Next i
 If x = 0 Then x = wks.VPageBreaks.Count + 1
 
 If wks.PageSetup.Order = xlDownThenOver Then
 n = (x - 1) * (wks.HPageBreaks.Count + 1) + y
 Else
 n = (y - 1) * (wks.VPageBreaks.Count + 1) + x
 End If
 
 wks.PrintOut n, n
End Sub
Добавил: Саня | | Теги: VBA, печать, active page, print active page, print, ВБА, активная страница
Просмотров: 2667 | Рейтинг: 0.0/0
Всего комментариев: 4
0   Спам
1    bumnik   (05.07.2015 16:00)
   как же долго я тебя искал. спасибо разработчику!!!

0   Спам
2    bumnik   (08.12.2015 11:33)
   можно ли изменить, чтобы печать происходила с 1 страницы по активную страницу?

0   Спам
3    bumnik   (08.12.2015 11:42)
   wks.PrintOut From:=1, To:=y так?

0  
4    Serge_007   (08.12.2015 19:01)
   bumnik, а самому попробовать? ;)

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!