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

2

Re: макрос для печати

Помогите, пожалуйста, я хочу чтоб этот макрос у меня выполнял печать записей, но когда у меня наступает Var > Num он печатает последнюю страницу , пока его не остановишь. Как это исправить?!?!

3

Re: макрос для печати

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