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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир 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
Группа: Друзья
Ранг: Старожил
Сообщений: 2198
Репутация: 624 ±
Замечаний: 0% ±

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

Автор - 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
Группа: Друзья
Ранг: Старожил
Сообщений: 2198
Репутация: 624 ±
Замечаний: 0% ±

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

Автор - 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
Группа: Проверенные
Ранг: Обитатель
Сообщений: 423
Репутация: 51 ±
Замечаний: 20% ±

Excel 2010
Привет!

[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]


На сохранение второго закона термодинамики: яндекс.кошелёк 410012113235839
 
Ответить
СообщениеПривет!

[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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 128
Репутация: 6 ±
Замечаний: 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-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!