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

Вход

Регистрация

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

 

= Мир MS Excel/Как задать параметр Fit to 1 page wide by 1 tall для печати - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как задать параметр Fit to 1 page wide by 1 tall для печати (Макросы/Sub)
Как задать параметр Fit to 1 page wide by 1 tall для печати
taracan Дата: Понедельник, 13.02.2017, 23:37 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

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

Для печати/экспорта в pdf нужно ужать документ на один лист

ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1

И на 2007 офисе прекрасно работает, а на 2013 - нет
Т.е. в ландскеип поворачивает, ширину полей задает, а ужать на один печатный
лист - никак

Беда-печаль...
 
Ответить
СообщениеДобрый день

Для печати/экспорта в pdf нужно ужать документ на один лист

ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1

И на 2007 офисе прекрасно работает, а на 2013 - нет
Т.е. в ландскеип поворачивает, ширину полей задает, а ужать на один печатный
лист - никак

Беда-печаль...
Автор - taracan
Дата добавления - 13.02.2017 в 23:37
_Boroda_ Дата: Понедельник, 13.02.2017, 23:51 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17006
Репутация: 6667 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
У меня в 2013 работает так
[vba]
Код
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Application.PrintCommunication = True
[/vba]
Кстати, вот в справке по PrintCommunication написано
https://msdn.microsoft.com/en-us....5).aspx

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеУ меня в 2013 работает так
[vba]
Код
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Application.PrintCommunication = True
[/vba]
Кстати, вот в справке по PrintCommunication написано
https://msdn.microsoft.com/en-us....5).aspx
Автор - _Boroda_
Дата добавления - 13.02.2017 в 23:51
krosav4ig Дата: Вторник, 14.02.2017, 00:32 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а у мну вот так работает
[vba]
Код
    With ActiveSheet.PageSetup        
        .Zoom = False        
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
[/vba]
из справки
Цитата
PageSetup.Zoom Property
...
If this property is False, the FitToPagesWide and FitToPagesTall properties control how the worksheet is scaled.

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеа у мну вот так работает
[vba]
Код
    With ActiveSheet.PageSetup        
        .Zoom = False        
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
[/vba]
из справки
Цитата
PageSetup.Zoom Property
...
If this property is False, the FitToPagesWide and FitToPagesTall properties control how the worksheet is scaled.
Автор - krosav4ig
Дата добавления - 14.02.2017 в 00:32
_Boroda_ Дата: Вторник, 14.02.2017, 01:04 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 17006
Репутация: 6667 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
А у меня с зумом в 2013 не работает

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА у меня с зумом в 2013 не работает
Автор - _Boroda_
Дата добавления - 14.02.2017 в 01:04
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как задать параметр Fit to 1 page wide by 1 tall для печати (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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