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

Вход

Регистрация

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

 

= Мир MS Excel/Как узнать масштаб листа при печати - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как узнать масштаб листа при печати (в режиме ограничения по числу листов)
Как узнать масштаб листа при печати
Формуляр Дата: Понедельник, 16.04.2012, 18:08 | Сообщение № 1
Группа: Друзья
Ранг: Ветеран
Сообщений: 832
Репутация: 255 ±
Замечаний: 0% ±

Excel 2003, 2013
Всем доброго!
Кто подскажет, как в VBA получить вычисляемый коэф-т масштабирования листа при печати, когда выставлено ограничение по числу листов в длину/ширину?
При этом PageSetup.Zoom = FALSE


Excel 2003 EN, 2013 EN

Сообщение отредактировал Формуляр - Понедельник, 16.04.2012, 18:09
 
Ответить
СообщениеВсем доброго!
Кто подскажет, как в VBA получить вычисляемый коэф-т масштабирования листа при печати, когда выставлено ограничение по числу листов в длину/ширину?
При этом PageSetup.Zoom = FALSE

Автор - Формуляр
Дата добавления - 16.04.2012 в 18:08
Jhonson Дата: Понедельник, 16.04.2012, 21:33 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
Репутация: 169 ±
Замечаний: 0% ±

Возможно так:
[vba]
Code
Sub aaa()
Application.ExecuteExcel4Macro "PAGE.SETUP(,,,,,,,,,,,,{1,#N/A})" 'здесь меняем {ширину, длину}
Application.ExecuteExcel4Macro "PAGE.SETUP(,,,,,,,,,,,,{#N/A,#N/A})"
MsgBox "Масштаб листа при печати: " & ActiveSheet.PageSetup.Zoom
End Sub
[/vba]


"Ничто не приносит людям столько неприятностей, как разум."

Сообщение отредактировал Jhonson - Понедельник, 16.04.2012, 21:45
 
Ответить
СообщениеВозможно так:
[vba]
Code
Sub aaa()
Application.ExecuteExcel4Macro "PAGE.SETUP(,,,,,,,,,,,,{1,#N/A})" 'здесь меняем {ширину, длину}
Application.ExecuteExcel4Macro "PAGE.SETUP(,,,,,,,,,,,,{#N/A,#N/A})"
MsgBox "Масштаб листа при печати: " & ActiveSheet.PageSetup.Zoom
End Sub
[/vba]

Автор - Jhonson
Дата добавления - 16.04.2012 в 21:33
Serge_007 Дата: Понедельник, 16.04.2012, 21:57 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Жень, ExecuteExcel4Macro вроде только для 2007/2010, а у Саши 2003


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЖень, ExecuteExcel4Macro вроде только для 2007/2010, а у Саши 2003

Автор - Serge_007
Дата добавления - 16.04.2012 в 21:57
Jhonson Дата: Понедельник, 16.04.2012, 22:07 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
Репутация: 169 ±
Замечаний: 0% ±

В 2003 проверял - работает.


"Ничто не приносит людям столько неприятностей, как разум."
 
Ответить
СообщениеВ 2003 проверял - работает.

Автор - Jhonson
Дата добавления - 16.04.2012 в 22:07
Формуляр Дата: Понедельник, 16.04.2012, 22:31 | Сообщение № 5
Группа: Друзья
Ранг: Ветеран
Сообщений: 832
Репутация: 255 ±
Замечаний: 0% ±

Excel 2003, 2013
Прикольный вариант...
И действительно - работает в 2003.
Спасибо!
Правда, изменённые настройки потом восстанавливать придётся, но это уже проще.


Excel 2003 EN, 2013 EN
 
Ответить
СообщениеПрикольный вариант...
И действительно - работает в 2003.
Спасибо!
Правда, изменённые настройки потом восстанавливать придётся, но это уже проще.

Автор - Формуляр
Дата добавления - 16.04.2012 в 22:31
Nibiru Дата: Четверг, 07.06.2012, 12:27 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Вопрос почти в тему:
при задании масштаба печати при помощи ограничения на количество листов в ширину и длину наткнулся на глюк (2003 Офис) - страницы не хотят масштабироваться по ширине, даже если убран запрет на длину, или установлено "не более 100 листов"
Масштаб все равно остается 100%. Если ужимаю по длине - масштаб уменьшается.
Но мне нужно чтобы документ распечатывался на всю ширину страницы. И крутить zoom вручную каждый раз не хотелось бы.
Настройки масштаба пробовал менять и с помощью VBA и вручную на свежесозданном документе.

а запустив скрипт из второго поста этой темы я увидел сообщение - "Масштаб листа при печати: 100"

Вообще подозрение именно на офис, но может кто-то подскажет где покопаться?
На всякий - у меня в Excel указана версия 11.5612.5606

PS. Подозрение, что масштаб таким способом изменяется в сторону меньше 100%. А как же быть, если мне нужно немного более 100%?


Сообщение отредактировал Nibiru - Четверг, 07.06.2012, 12:36
 
Ответить
СообщениеВопрос почти в тему:
при задании масштаба печати при помощи ограничения на количество листов в ширину и длину наткнулся на глюк (2003 Офис) - страницы не хотят масштабироваться по ширине, даже если убран запрет на длину, или установлено "не более 100 листов"
Масштаб все равно остается 100%. Если ужимаю по длине - масштаб уменьшается.
Но мне нужно чтобы документ распечатывался на всю ширину страницы. И крутить zoom вручную каждый раз не хотелось бы.
Настройки масштаба пробовал менять и с помощью VBA и вручную на свежесозданном документе.

а запустив скрипт из второго поста этой темы я увидел сообщение - "Масштаб листа при печати: 100"

Вообще подозрение именно на офис, но может кто-то подскажет где покопаться?
На всякий - у меня в Excel указана версия 11.5612.5606

PS. Подозрение, что масштаб таким способом изменяется в сторону меньше 100%. А как же быть, если мне нужно немного более 100%?

Автор - Nibiru
Дата добавления - 07.06.2012 в 12:27
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как узнать масштаб листа при печати (в режиме ограничения по числу листов)
  • Страница 1 из 1
  • 1
Поиск:

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