Авто вставка № договора и печать документа

[550953]

Здравствуйте. Нужно автоинкриментно(+1) вставлять номер договора и пускать на печать, 50 копий в 2 экземплярах. Скажите пожалуйста, как такое сделать?
Шапку прикрепил.

[viter.alex]

А почему 50 копий в 2-х экземплярах, а не 100 копий?
Смотрите пример. Номер будет увеличиваться при каждой отправке на печать. Печатать будет 100 копий с одним и тем же номером. Я немного изменил форматирование, чтобы место, которое вы сделали подчеркнутым для номера, таким и осталось.
Как сделано: на место номера, который должен меняться, я поставил поле последовательной нумерации { SEQ AutoIncrement \r 1}, которое начинает нумерацию с числа, стоящего после ключа \r. Затем макрос, который вызывается при печати, увеличивает это поле на 1 и печатает документ. Вот код макроса:

Sub FilePrint()
  With ActiveDocument
    With .Fields(1)
      .Code.Text = Mid(.Code.Text, 1, InStr(.Code.Text, "\r") + 2) & Val(Trim(Mid(.Code.Text, InStr(.Code.Text, "\r") + 2))) + 1
      .Update
    End With
    .PrintOut Copies:=100
  End With
End Sub

Идентификатор, который стоит после SEQ, я выбрал сам, он может быть совершенно произвольным в данном случае.
Обращаю внимание, что макрос будет срабатывать только в случае выбора команды «Печать…» в меню, или при сочетании клавиш Ctrl+P. Если вы нажмете кнопку «Быстрая печать», то документ напечатается в одном экземпляре и номер увеличиваться не будет.

[550953]

Можно 100, как параметр, главное что бы на автомате выполнялась задача.

[viter.alex]

А можно еще сделать закладкой, текст которой нужно увеличивать на единицу
А можно сделать через переменные документа
А можно просто колбасить каждый раз новый документ с новым номером.
Вариантов масса.

[550953]

Алекс, вы не правильно поняли задачу. Нужно по 2 копии каждого номера. Например сейчас напечатался 2 номер 2 раза, затем должен инкрементироватся номер договора и с номером 3 напечататься 2 копии, потом с номером 4 две копии, с №5 две копии, и так до заданого номера договора.

[viter.alex]

Ясно. Тогда делаем так:

Sub FilePrint()
  Dim CopiesCount As Long
  Dim sInputStr As String
  While Not IsNumeric(sInputStr)
    sInputStr = InputBox("До какого номера договора печатать?", "Распечатка копий договора", sInputStr)
    If Len(sInputStr) = 0 Then Exit Sub
  Wend
  For CopiesCount = 1 To Val(sInputStr)
    With ActiveDocument
      .PrintOut Copies:=2
      With .Fields(1)
        .Code.Text = Mid(.Code.Text, 1, InStr(.Code.Text, "\r") + 2) & Val(Trim(Mid(.Code.Text, InStr(.Code.Text, "\r") + 2))) + 1
        .Update
      End With
    End With
  Next
End Sub

Окно с запросом на ввод будет появляться до тех пор, пока не введешь число или не нажмешь «Отмена»

[550953]

Супер! Спасибо вам большое! Скажите пожалуйста как решить проблемму с выходом за поля печати? Руководствовался описанием данным вами раньше http://programmersforum.ru/archive/i...p/t-38557.html
но выскакиевает ошибка в нормалдоте.

Эта строка подсвечивается красным:
Private Sub myApplication_DocumentBeforePrint(B yVal Doc As Document, Cancel As Boolean)

Скриншот ошибки приложил

[viter.alex]

После имени макроса поставь
Application.DisplayAlerts = wdAlertsNone
А в конце макроса
Application.DisplayAlerts = wdAlertsAll

А ошибка из-за того, что ByVal пишется слитно

[550953]

Не пойму куда вставлять. пробовал по всякому.

В этой процедуре переставлял 2 строки. предупреждения выскакивали

Sub FilePrint()
Application.DisplayAlerts = wdAlertsNone

Dim CopiesCount As Long
Dim sInputStr As String
While Not IsNumeric(sInputStr)
sInputStr = InputBox("До какого номера договора печатать?", "Распечатка копий договора", sInputStr)
If Len(sInputStr) = 0 Then Exit Sub
Wend
For CopiesCount = 1 To Val(sInputStr)
With ActiveDocument
.PrintOut Copies:=2
With .Fields(1)
.Code.Text = Mid(.Code.Text, 1, InStr(.Code.Text, "\r") + 2) & Val(Trim(Mid(.Code.Text, InStr(.Code.Text, "\r") + 2))) + 1
.Update
End With
End With
Next
Application.DisplayAlerts = wdAlertsAll
End Sub



И в этой функции переставлял 2 строки. Продолжают ошибки выскакивать
Application.DisplayAlerts = wdAlertsNone
Public WithEvents myApplication As Word.Application
Private Sub myApplication_DocumentBeforePrint(B yVal Doc As Document, Cancel As Boolean)

If Doc.Name Like "Имя_твоего_документа" Then
Application.DisplayAlerts = wdAlertsNone
Cancel = False
End If
Application.DisplayAlerts = wdAlertsAll
End Sub