Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.09.2010, 06:40   #1
DYm00n
Пользователь
 
Регистрация: 06.09.2010
Сообщений: 15
По умолчанию Макрос для сжатия страницы и печати

Нужен макрос, чтобы при его запуске страница подгонялась под размер одного листа и печаталась 1 копия, если документ и так размером в 1 лист, то без лишних вопросов шла бы печать
DYm00n вне форума Ответить с цитированием
Старый 16.09.2010, 13:07   #2
bdfy
Форумчанин
 
Регистрация: 12.11.2009
Сообщений: 258
По умолчанию

а сейчас как это происходит ? страница каких размеров ?
bdfy вне форума Ответить с цитированием
Старый 16.09.2010, 15:05   #3
Вождь
Форумчанин
 
Аватар для Вождь
 
Регистрация: 29.09.2008
Сообщений: 378
По умолчанию

Вжатие конца документа выступающего за страницу:
Код:
ActiveDocument.FitToPages
Макросы на заказ и готовый пакет - http://mtdmacro.ru/
Вождь вне форума Ответить с цитированием
Старый 16.09.2010, 18:51   #4
DYm00n
Пользователь
 
Регистрация: 06.09.2010
Сообщений: 15
По умолчанию

bdfy
документ может занимать и полторы страницы А4, просто мне нужно, чтобы при запуске макроса документ ужимался до А4 и печатался, а если он и так А4, то просто печатался и все
DYm00n вне форума Ответить с цитированием
Старый 17.09.2010, 23:10   #5
DYm00n
Пользователь
 
Регистрация: 06.09.2010
Сообщений: 15
По умолчанию

Вождь это не подходит, т.к. есть программа, которая генерирует вордовский файл, он может быть и меньше 1 страницы, а может чуть больше. В итоге есть меньше 1 страницы или ровно одна страница, тогда макрос вылетает с ошибкой. А мне нужно, чтобы вопросы не задавались - если документ можно сжать до 1 страницы, то сжимать и печатать, если нельзя сжать, то просто печатать
DYm00n вне форума Ответить с цитированием
Старый 19.09.2010, 19:20   #6
DYm00n
Пользователь
 
Регистрация: 06.09.2010
Сообщений: 15
По умолчанию

Неужели не кто не знает?
DYm00n вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна программа или макрос для печати шаблонов word с данными взятыми из таблицы EXCEL dimatz Microsoft Office Excel 3 05.03.2010 12:17
макрос для сжатия файлов doc caute Microsoft Office Word 11 31.12.2009 08:29
Макрос печати по списку Feniks18 Microsoft Office Excel 2 03.11.2009 07:20
Макрос для печати!!! Счетчик.. Miax Microsoft Office Excel 5 11.09.2009 17:33
Как сделать разрыв страницы печати по условию и узнать номер страницы Leanna Microsoft Office Excel 2 21.01.2008 06:59