Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Var = 0
Num = InputBox("Введите количество записей в базе", "Окно ввода текста")
If Num = "" Then GoTo Label2
'ERec = wdLastRecord
Label1:
If Var <= Num Then
ActiveDocument.MailMerge.DataSource.ActiveRecord = Var
'ActiveDocument.PrintOut
Var = Var + 65
GoTo Label1
Else:
GoTo Label2
End If
Label2:
End Sub
Помогите, пожалуйста, я хочу чтоб этот макрос у меня выполнял печать записей, но когда у меня наступает Var > Num он печатает последнюю страницу , пока его не остановишь. Как это исправить?!?!
1. строку 3 замените на If Num = "" Then Exit Sub
2. Строку 4-5 убрать
3. Цикл
Do While Var<=Num
If Var<=Num Then
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdLastRecord
ActiveDocument.PrintOut
Var=Var+65
Else
Exit Sub
End If
Loop
End Sub
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
макрос для печати
Наверное, одна из самых востребованных программ пакета Microsoft – это редактор Microsoft Word, очень удобное мощное приложение с множеством функций. На портале о Microsoft Office Word вы узнаете про: а есть быстрый способ конвертирования формул из старого редактора microsoft equation 3.0 в новый, тот что в word 2007?. Практически каждый владелец компьютера, хотя бы раз, но работал в этой программе. И, естественно, у новичков - возникает множество вопросов по работе с приложением, а у опытных пользователей - есть свой опыт и свои секреты по этой же работе. На портале о Microsoft Office Word вы узнаете про: скрыть примечанияв word 2003. Одним нужны ответы и советы, а другие – могут ответить и посоветовать. Для таких случаев и создан сайт Ворд Эксперт. Наш сайт о Microsoft Office Word даст ответ про: как переворачивать слова мир перевернулся.
Cайт Ворд Эксперт предоставит вам всевозможную информацию по приложению Microsoft Word. В основном разделе сайта можно найти практически все - и общую информацию, и список рекомендуемой литературы, и ответы на более конкретные вопросы - по макросам и форматированию, по работе с текстом и картинкой, по редактированию и копированию, и т.п. Наш сайт о Microsoft Office Word даст ответ про: колонтитулы в картинках.
На случай, если вы совершенный новичок или же возникают серьезные затруднения в работе с приложением – вы всегда можете обратиться в раздел заказов. На портале о Microsoft Office Word вы узнаете про: преобразовать на текстовый документ. Вам напишут макросы, разработают шаблоны, или сделают иную работу в редакторе. Все, что вам нужно – это просто оставить заявку в разделе. На портале о Microsoft Office Word вы узнаете про: штамп чертежа с помощью колонтитулов word.
Без сомнения, и новичкам, и опытным пользователям будет интересно и полезно зайти на форум сайта, где можно пообщаться, поделиться мнениями и впечатлениями и о программе, и о самом сайте. На портале о Microsoft Office Word вы узнаете про: в ворде подчеркнуть текст.