Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > VBA

Автор: Ivan. 31.8.2005, 10:47

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

Автор: Ivan. 31.8.2005, 11:51

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

Автор: Mephisto 31.8.2005, 15:51

Код

Public Sub Tratata ()
    MsgBox Sheets.Count
End Sub

Цитата

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

Не понял.

Автор: likhobory 31.8.2005, 20:53

Цитата

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

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

Код


MsgBox ActiveDocument.ComputeStatistics(wdStatisticPages)

Цитата(Ivan @ 31.8.2005, 12:51)

выдаю сообщение "переверните страницы

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

Автор: Ivan. 1.9.2005, 10:38

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

Автор: likhobory 6.9.2005, 11:56

Цитата(Ivan @ 1.9.2005, 11:38)

как не выходя из макроса выполнить действие печати

Код


ActiveDocument.PrintOut

Цитата(Ivan @ 1.9.2005, 11:38)

как выдать на печать пустую страницу?

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

Автор: Alex_E 20.12.2005, 10:26

При печати отключи фоновую печать...

Автор: ~FoX~ 20.12.2005, 14:07

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