Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> VBA, Как узнать количество страниц в документ 
:(
    Опции темы
Ivan.
  Дата 31.8.2005, 10:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 291
Регистрация: 2.11.2004

Репутация: нет
Всего: 2



как в ворде узнать сколько в текущем документе страниц
и как отправить пустую страницу на принтер?


--------------------
Я могу ВСЁ, вопрос - сколько времени у меня это займет!
PM MAIL ICQ   Вверх
Ivan.
Дата 31.8.2005, 11:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 291
Регистрация: 2.11.2004

Репутация: нет
Всего: 2



как не выходя из макроса отпустить процесс, чтобы прошла печать, а то отправляю на печатьстраницы, выдаю сообщение "переверните страницы, а он не печатает, пока не выду из макроса"


--------------------
Я могу ВСЁ, вопрос - сколько времени у меня это займет!
PM MAIL ICQ   Вверх
Mephisto
Дата 31.8.2005, 15:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Волкъ
***


Профиль
Группа: Завсегдатай
Сообщений: 1818
Регистрация: 27.8.2003
Где: Питер

Репутация: нет
Всего: 34



Код
Public Sub Tratata ()
    MsgBox Sheets.Count
End Sub

Цитата
как не выходя из макроса отпустить процесс

Не понял. smile

Это сообщение отредактировал(а) Mephisto - 31.8.2005, 15:54
PM   Вверх
likhobory
Дата 31.8.2005, 20:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 466
Регистрация: 17.5.2005
Где: Москва

Репутация: 10
Всего: 20



Цитата
сколько в текущем документе страниц

думаю, удобней будет так (это все же не Excel):
Код

MsgBox ActiveDocument.ComputeStatistics(wdStatisticPages)

Цитата(Ivan @ 31.8.2005, 12:51)
выдаю сообщение "переверните страницы

Зачем, указывай при печати ManualDuplexPrint:=True

Это сообщение отредактировал(а) likhobory - 31.8.2005, 21:02


--------------------
PM MAIL   Вверх
Ivan.
Дата 1.9.2005, 10:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 291
Регистрация: 2.11.2004

Репутация: нет
Всего: 2



в том режиме, катором я печатаю нет двухсторонней печати.
как не выходя из макроса выполнить действие печати, а то он не выполняет такое действие, пока весь макрос не кончится.
и третье, как выдать на печать пустую страницу?


--------------------
Я могу ВСЁ, вопрос - сколько времени у меня это займет!
PM MAIL ICQ   Вверх
likhobory
Дата 6.9.2005, 11:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 466
Регистрация: 17.5.2005
Где: Москва

Репутация: 10
Всего: 20



Цитата(Ivan @ 1.9.2005, 11:38)
как не выходя из макроса выполнить действие печати

Код

ActiveDocument.PrintOut

Цитата(Ivan @ 1.9.2005, 11:38)
как выдать на печать пустую страницу?

либо создай новый док. и пусти его на печать либо приравняй цвет существующего контента к цвету фона и т.д...


--------------------
PM MAIL   Вверх
Alex_E
Дата 20.12.2005, 10:26 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











При печати отключи фоновую печать...
  Вверх
~FoX~
Дата 20.12.2005, 14:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 1
Всего: 68



Ivan.
DoEvents-ов понаставь везде.


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0820 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.