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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.05.2015, 15:26   #1
s-alf
Новичок
Джуниор
 
Регистрация: 25.05.2015
Сообщений: 1
По умолчанию Двусторонняя печать из макроса на принтер с дуплексом

Нужна помощь в написании макроса. Этот код
Код:
Sub AutoDuplex()
	Dim oSection As Section
	Dim oRng As Range
	Dim oFld As Field
	Dim strDuplex As String
		strDuplex = "27""&l1S"""
	        For Each oSection In ActiveDocument.Sections
		With oSection.PageSetup
			.FirstPageTray = LetterHeadedTrayNo
			.OtherPagesTray = PrePrintedTrayNo
		End With
	Set oRng = oSection.Range
	For Each oFld In oRng.Paragraphs(1).Range.Fields
		If oFld.Type = wdFieldPrint Then
		oFld.Delete
		End If
	Next oFld
		oRng.End = oRng.Start
		ActiveDocument.Fields.Add oRng, wdFieldPrint, strDuplex, False
		ActiveWindow.View.ShowFieldCodes = False
		Next oSection
		ActiveDocument.PrintOut
	End Sub
выводит на печать документ без колонтитулов правильно. При наличии колонтитула (с номерами страниц на 2-х страничном документе) первая страница выходит без текста (распечатывается только первый номер страницы), вторая с текстом на первой/второй стороне и 2-ым номером страницы. Всего два листа, а надо 1. Кто-нибудь победил?

Последний раз редактировалось s-alf; 25.05.2015 в 15:59. Причина: ошибки
s-alf вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Печать файла на принтер john ___________ Общие вопросы Delphi 2 10.05.2012 17:04
Печать на принтер nikcpp Общие вопросы Delphi 1 11.04.2011 09:06
Печать на принтер(USB) kisser_san Общие вопросы Delphi 4 25.04.2008 16:18
печать на принтер в делфи! zetrix БД в Delphi 0 30.10.2006 12:53