Номерные бланки в word

dubatovka

1

Автоматическое изменение номеров при печати

12.01.2012, 20:31. Показов 40814. Ответов 31

13.01.2012, 05:28

2

dubatovka
Можно использовать механизм слияния для создания бланка писем при рассылке:
— создать источник данных (к примеру в Excel’е) с требующимися номерами договоров;
— в основном документе вставить поля слияния;
— завершить и распечатать (печать именно из рассылки).

0

13.01.2012, 16:36

3

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

Sub Печать_N_док()
 Dim Nachalo As Long, Konec As Long, i As Long, MemStart As Long, MemEnd As Long, myRange As Range
 Konec = InputBox("Введите номер последнего распечатываемого документа")
 Nachalo = ActiveDocument.Bookmarks("DocumentNumber").Range + 1
 For i = Nachalo To Konec
    MemStart = ActiveDocument.Bookmarks("DocumentNumber").Range.Start
    MemEnd = ActiveDocument.Bookmarks("DocumentNumber").Range.End
    ActiveDocument.Bookmarks("DocumentNumber").Range = Format(i, "0000")
    Set myRange = ActiveDocument.Range(Start:=MemStart, End:=MemEnd)
    With ActiveDocument.Bookmarks
        .Add Range:=myRange, Name:="DocumentNumber"
        .DefaultSorting = wdSortByLocation
        .ShowHidden = False
    End With
    ActiveDocument.Fields.Update
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
 Next i
End Sub

Вложения

Печать_смена_номера.doc (45.5 Кб, 1011 просмотров)

4

18.04.2016, 21:47

4

KoGG
Спасибо Вам, очень помогли

0

19.04.2017, 13:22

5

Добрый день!
использовала ваш макрос (за него большое спасибо, очень облегчил мою работу) для распечатки бланков с автоматической нумерацией (в частности, бланк доверенности).
в чем у меня возник вопрос. Делаю по 2 бланка на 1 листе. Для этого вручную переворачиваю бумагу. Распечатала 10 бланков, перевернула и еще 10 распечатала. Таким образом на 1 листе у меня по 2 бланка с различной нумерацией.
пробовала изменить макрос (range+2), создав 2 страничку, номер через закладку прописала DocumentNumber2. в 1случае нумерация происходила только 1стр., вторая не менялась. во 2случае поправила в макрос строки, стал нумеровать обе странички, со сдвигом.в итоге поняла, что проще попросить о помощи специалистов)
задача — печатать 1 бланк (документ состоит из 1 страницы в WORD) с автоматической нумерацией в кол-ве два бланка на 1 листе формата А4. То есть на 1 листе — № 0101 и № 0102, на 2 листе № 0103 и № 0104 и т.д.
Глубочайше буду благодарна за оказанную помощь в редактировании текущего макроса.

0

19.04.2017, 19:48

6

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

Sub Печать_N_док2()
 Dim Nachalo As Long, Konec As Long, i As Long, MemStart As Long, MemEnd As Long, myRange As Range
 Konec = InputBox("Введите номер последнего распечатываемого документа")
 Nachalo = ActiveDocument.Bookmarks("DocumentNumber2").Range + 1
 For i = Nachalo To Konec Step 2
    MemStart = ActiveDocument.Bookmarks("DocumentNumber").Range.Start
    MemEnd = ActiveDocument.Bookmarks("DocumentNumber").Range.End
    ActiveDocument.Bookmarks("DocumentNumber").Range = Format(i, "0000")
    Set myRange = ActiveDocument.Range(Start:=MemStart, End:=MemEnd)
    With ActiveDocument.Bookmarks
        .Add Range:=myRange, Name:="DocumentNumber"
        .DefaultSorting = wdSortByLocation
        .ShowHidden = False
    End With
    MemStart = ActiveDocument.Bookmarks("DocumentNumber2").Range.Start
    MemEnd = ActiveDocument.Bookmarks("DocumentNumber2").Range.End
    ActiveDocument.Bookmarks("DocumentNumber").Range = Format(i+1, "0000")
    Set myRange = ActiveDocument.Range(Start:=MemStart, End:=MemEnd)
    With ActiveDocument.Bookmarks
        .Add Range:=myRange, Name:="DocumentNumber2"
        .DefaultSorting = wdSortByLocation
        .ShowHidden = False
    End With
    ActiveDocument.Fields.Update
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
 Next i
End Sub

0

20.04.2017, 08:09

7

Доброе утро!
Увидела ответ с макросом и скорее пробовать… А не получается…
Выдает ошибку…
Итак, № доверенности проставляется дважды на листе. DocumentNumber -закладка и второй раз перекрестная ссылка на эту закладку. Это 1 лист. На втором листе — DocumentNumber2 — закладка и второй раз тоже перекрестная ссылка на эту закладку.
Так вот, на 1 листе номер меняется в закладке на число которое я ставлю последним в задании, в ссылке выдается «ошибка! источник ссылки не найден!», а на 2м листе номер не изменился, остался прежним…
Сначала решила, что закладка слетела. Сделала все заново.. Ничего подобного.. Слетает в момент распечатывания из макроса.. Делаю вложение к ответу «до» и «после».. Правда WORD документ почему-то тяжелый, прикрепляю скрины.

0

20.04.2017, 09:12

8

0

20.04.2017, 09:31

9

Dinoxromniy, благодарю за участие, но вот этот вариант как раз мне и не подходит.. Почему, собственно, я и воспользовалась схемой с макросом .. Доработать надо просто.. Я, к сожалению, не программист, что-то знаю, конечно, но недостаточно..

0

Dinoxromniy

0

20.04.2017, 20:04

11

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

Sub Печать_N_док2()
 Dim Nachalo&, Konec&, i&, j&, MemStart&, MemEnd&, myRange As Range , Ar
 Ar= Array("DocumentNumber11" , "DocumentNumber12" , "DocumentNumber21", "DocumentNumber22")
 Konec = InputBox("Введите номер последнего распечатываемого документа")
 Nachalo = ActiveDocument.Bookmarks("DocumentNumber22").Range + 1
 For i = Nachalo To Konec Step 2
    For j=0 to Ubound(Ar)
      MemStart = ActiveDocument.Bookmarks(Ar(j)).Range.Start
      MemEnd = ActiveDocument.Bookmarks(Ar(j)).Range.End
      ActiveDocument.Bookmarks(Ar(j)).Range = Format(i+j2, "0000")
      Set myRange = ActiveDocument.Range(Start:=MemStart, End:=MemEnd)
      With ActiveDocument.Bookmarks
          .Add Range:=myRange, Name:=Ar(j)
          .DefaultSorting = wdSortByLocation
          .ShowHidden = False
      End With
    ActiveDocument.Fields.Update
    Next j
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
 Next i
End Sub

0

21.04.2017, 07:35

12

KoGG, спасибоооооооо!!!!!! все работает!!!!!!!!!!!
в итоге методом слияния я заполняю шаблон, а печатаю через макрос)) и это чудо сколько времени и нервов теперь сэкономлено!!!!! безграничная благодарность вам!!!!!

0

14.06.2017, 20:54

13

Добрый вечер! Попытался использовать макрос, но не учел, что он именно 1000 шт пытается распечатать!) Мне гораздо меньше надо, подскажите, где править, каждый раз произвольное количество нужно будет. Еще мне теперь принтер не унять))) но с этим думаю сам разберусь.

0

15.06.2017, 06:34

14

Доброе утро! Baden13, если вы зададите конечный результат 1000, то, естественно, он вам 1000 и напечатает. Лично я делаю по 10, 20,30 шт. Сохраняю документ после печати и на след раз порядковый номер не сбивается, а продолжается. На сегодняшнее утро у меня последний номер 2990, следовательно, если мне надо распечатать 20 документов, то в макросе задам число 3010. Все гениальное — просто! =)
Хорошего плодотворного дня!

0

15.06.2017, 14:38

15

0

12.07.2017, 13:25

16

0

11.08.2018, 09:57

17

Доброго времени суток! Нужна нумерация билетов, на А4 их расположено 10 шт, нумерация должна идти так 1 лист 1-10, второй 11-20 и т.д.
Может кто помочь в этом вопросе?
тираж 70000, вручную вбивать номера с ума можно сойти

0

26.04.2019, 13:24

18

Подскажите как использовать Ваш макрос, если нужно при печати менялись 2 значения (номер паспорта и серийный номер).
Возможно задать количество листов печати и начало нумерации (номер паспорта и серийный номер) печати?

0

Модератор

26.04.2019, 14:13

19

1

26.04.2019, 14:23

20

Мне хотя бы простой вариант сделать.
Что бы серийный номер оборудования печатался в 2-х местах. Но вводить первый номер (например: 9810) и количество листов для печати бланков паспортов.
Печать двухсторонняя, А4 и на одном листе две части паспорта. Так сказать книжная печать.

0