Автоматическая нумерация документов

[Лука]

Уважаемые волшебники, подскажите пожалуйста!)
Есть бланки документа excel - 100 экз. Возможно ли их автоматически пронумеровать на принтере? Если возможно подскажите пожалуйста как это сделать?)))

[Евгений ГВС]

Сообщение от Лука

Есть бланки документа excel

Что это за бланки excel? не встречал такого термина... Уточните задачу, пожалуйста.

[Лука]

Ну я не правильно написал. Есть документ в форме excel (например путевой лист авто), его нужно рапечатать в кол-ве 100 экз., на первом экз. нужно поставить №1, на следующем №2 и т.д... Возможно ли это автоматически, т.е. чтобы при печати excel нумеровал их сам?

[ZORRO2005]

Можно сделать 100 одинаковых страниц на одном листе и вставить колонтитул (Файл-Параметры страницы-Колонтитулы)

[pivas]

Если печатать по одному экземпляру, можно так:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
[A1] = [A1] + 1
End Sub

, где [A1] - ячейка с номером листа.

[Евгений ГВС]

Сообщение от pivas

Если печатать по одному экземпляру, можно так:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
[A1] = [A1] + 1
End Sub

, где [A1] - ячейка с номером листа.

Необязательно по одному экземпляру печатать:

Public Sub PrintAndNum()

Dim i As Integer

For i = 1 To 100 Step 1

Worksheets("ИмяЛиста").Range("A1"). Value = i
Worksheets("ИмяЛиста").PrintOut

Next i

End Sub
, где "ИмяЛиста" - имя нужного листа, Range("A1")- ячейка с номером листа.