Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 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
Чтобы отправить ответ, вы должны войти или зарегистрироваться