Макрос для печати!!! Счетчик..

[Miax]

Гуру помогите нуж какойто макрос для печати, чтобы роботал как счетчик.
Суть в принтер ложытся 1000 бумажек и нужно чтобы каждая из них получала порядковий номер, а также две кодовые цифры...
Пример..
07030
03071
07032
.......
.......
и до
97938
93979

Суть такова что вторая и четвертая цыфри есть 7 и 3 постоянно меняющиеся
а первая третья и пятая счетчик от 000 до 999.............

Плиз помогите....я все что пробывал на смарку.......оч нужно....

[Aent]

Что печатается (лист, группа листов, группа книг)?
В какое место страницы нужно помещать номер (в клонтитул или в лист) ?
и т.п.
Лучше всего поместить на форуме пример требуемого документа.

[Miax]

В одном листе область размером в А4(например). в правом нижнем углу....
Будет етот счетчик...тоисть у меня есть 1000 билетов.. уже готовых....и на них есть место для номера.......там должна пройти нумерация....
а ети цифры(что по середине) какби код (чтоб никто не догадался)......
помогите очень надо...

[Aent]

В модуль кода

Option Explicit
Public et As Boolean    'признак такта для обмена 3 & 7
Public Counter As Long  'собственно счётчик
Public iLen As Long     'длина формируемого номера
Public Sub test()
    Dim s As String
    Сounter = 0
    et = True
    iLen = 5
    For i = 1 To 20
       Debug.Print Numerator
    Next i
End Sub
Public Function Numerator() As String
    Numerator = Format$(Counter, String(iLen, "0"))
    Counter = Counter + 1
    et = Not et
    If et Then
        Mid$(Numerator, 2, 1) = "3"
        Mid$(Numerator, 4, 1) = "7"
    Else
        Mid$(Numerator, 2, 1) = "7"
        Mid$(Numerator, 4, 1) = "3"
    End If
End Function

Вместо Debug.print поставьте занесение номера в нужное место

[Miax]

Большое спасибо!!!!!!!!
Очень благодарен!!!!!!

[ALEKS2008]

КЛАСНО ,ПОДСКАЖИТЕ КУДА ВСТАВЛЯТЬ МОДУЛЬ ???