нужен совет Excelеводов

[batat]

всем здравствуйте.

подскажите если кто знает. например имеем накладную с таблицей. нужно чтоб на ней автоматически печатался номер экземпляра. то есть у меня есть одна таблица и с каждой печатью чтоб велся подсчет и автоматически проставлялся на накладной. можно ли так сделать? а то рисовать каждый раз 250 одинаковых таблиц и в колонтитулах вставлять номера страниц не вставляет.

всем спасибо.

[oldbay]

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

[quick]

Все верно курите маны по VBA и пишите, пишите, пишите.

[batat]

да уж понял чего курить. Спасибо

[Sandy]

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Set CDP = ThisWorkbook.CustomDocumentProperties

On Error Resume Next

cnt = CDP.Item("Счетчик").Value

If Err Then

CDP.Add Name:="Счетчик", LinkToContent:=False, Type:=msoPropertyTypeString, Value:=0

End If

cnt = cnt + 1

CDP.Item("Счетчик").Value = cnt

ActiveSheet.PageSetup.CenterHeader = CStr(cnt)

MsgBox "Печатается " & cnt & " копия.", , "Счетчик печати"

End Sub

 

Попробуй. Код подставь в модуль "Эта книга"

[batat]

эээ попробую разобраться. спасибо