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

Вход

Регистрация

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

 

= Мир MS Excel/печать определенной области листа сю макроса - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » печать определенной области листа сю макроса (Макросы/Sub)
печать определенной области листа сю макроса
Nik57 Дата: Среда, 31.10.2018, 13:57 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 96
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день!

Помоги с вопросом, это бы облегчило немного работу в документом.
Есть диапазон листа А1:Y41
Было бы приятно, если с помощью макроса, данный диапазон выходил бы на печать (PDF)

Реально такое вообще сделать или нет?
Заранее благодарю!
К сообщению приложен файл: 7168578.xlsm (12.0 Kb)
 
Ответить
СообщениеДобрый день!

Помоги с вопросом, это бы облегчило немного работу в документом.
Есть диапазон листа А1:Y41
Было бы приятно, если с помощью макроса, данный диапазон выходил бы на печать (PDF)

Реально такое вообще сделать или нет?
Заранее благодарю!

Автор - Nik57
Дата добавления - 31.10.2018 в 13:57
sboy Дата: Среда, 31.10.2018, 14:45 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
непонятно зачем тут макрос? Сделайте подгонку по листу, задайте область печати и печатайте


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
непонятно зачем тут макрос? Сделайте подгонку по листу, задайте область печати и печатайте

Автор - sboy
Дата добавления - 31.10.2018 в 14:45
Nik57 Дата: Среда, 31.10.2018, 16:04 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 96
Репутация: 0 ±
Замечаний: 0% ±

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

Вообще это возможно?
 
Ответить
СообщениеПодряд бывает порой необходимо изменить сорок раз данные, которые выходят из области печати, и было бы удобно менять данные, нажимать кнопку макросу и пускать печать...

Вообще это возможно?

Автор - Nik57
Дата добавления - 31.10.2018 в 16:04
sboy Дата: Среда, 31.10.2018, 16:05 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Но область печати у Вас же не меняется? все время?


Яндекс: 410016850021169
 
Ответить
СообщениеНо область печати у Вас же не меняется? все время?

Автор - sboy
Дата добавления - 31.10.2018 в 16:05
Nik57 Дата: Среда, 31.10.2018, 16:32 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 96
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Для разных листов своя, а так постоянна
 
Ответить
СообщениеДля разных листов своя, а так постоянна

Автор - Nik57
Дата добавления - 31.10.2018 в 16:32
InExSu Дата: Пятница, 02.11.2018, 21:38 | Сообщение № 6
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010, 365
Привет!

[vba]
Код
Sub ПОдгон_на_1_Страцницу_()
    
    With Application
        .PrintCommunication = False
        With ActiveSheet.PageSetup
            .FitToPagesWide = 1
            .FitToPagesTall = 1
        End With
        .PrintCommunication = True
    End With
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                    ThisWorkbook.Name & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
                    True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
[/vba]


Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
 
Ответить
СообщениеПривет!

[vba]
Код
Sub ПОдгон_на_1_Страцницу_()
    
    With Application
        .PrintCommunication = False
        With ActiveSheet.PageSetup
            .FitToPagesWide = 1
            .FitToPagesTall = 1
        End With
        .PrintCommunication = True
    End With
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                    ThisWorkbook.Name & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
                    True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
[/vba]

Автор - InExSu
Дата добавления - 02.11.2018 в 21:38
Shylo Дата: Вторник, 20.11.2018, 10:50 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 155
Репутация: 7 ±
Замечаний: 0% ±

Excel-2003; 2010
Такую задачу для себя решил так, в стандартный модуль вставил код
[vba]
Код
Sub Автофигура1_Щелкнуть()
    Sheets("Лист1").Range("А1:Y41").PrintOut Copies:=1, Collate:=True
End Sub
[/vba]
На "Лист1" поместил кнопку и назначил ей код из модуля. Код выше поправил под Ваш пример.


Сообщение отредактировал Shylo - Вторник, 20.11.2018, 10:53
 
Ответить
СообщениеТакую задачу для себя решил так, в стандартный модуль вставил код
[vba]
Код
Sub Автофигура1_Щелкнуть()
    Sheets("Лист1").Range("А1:Y41").PrintOut Copies:=1, Collate:=True
End Sub
[/vba]
На "Лист1" поместил кнопку и назначил ей код из модуля. Код выше поправил под Ваш пример.

Автор - Shylo
Дата добавления - 20.11.2018 в 10:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » печать определенной области листа сю макроса (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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