Вывод на печать в Excel

[Chopen]

Проблема такого рода. Имеется файл с документом (1 лист). Требуется вывод на печать этого документа с изменением его номера. Возможно ли это вообще. :?:

[Naeel Maqsudov]

Что имеется в виду под номером документа?
Знать бы что менять, а менять можно практически все.

[plUsh]

:twisted: главное не забудь у кнопкм "печать" убрать свойство вывода на печать, и еще для надежности изменяемую ячеку проверь на то, кокой у нее формат данных :twisted:
===============================================
Option Explicit
Dim n, m, i As Integer
Dim Numer, Numer2, aa As String

Private Sub cmdPrint_Click()
Numer = InputBox
Numer2 = InputBox

If IsNumeric(Numer) And IsNumeric(Numer2) Then

cmdCancel.Visible = True
m = Val(Numer)
n = Val(Numer2)
For i = m To n

Range("bw6").Value = "00" + Trim(Str(i))
Sheets.PrintOut
Next i
Else
MsgBox "Что то не так )"
End If
End Sub

'.jp.plUsh(R).:CodeDevelop:.26/apr/2004
===============================================
вот пример из моего личного опыта (тоже в самопальную типографию играем).
только если тачилово грустное, то лучше не более 10 листо отправляй, а то потом такая грусть пойдет.........

[Naeel Maqsudov]

Досадно, что событие Before_Print происходит один раз перед печатью, а не перед каждым экзкмпляром (при указании количества копий). А то лучшего места для этих целей было бы не найти!

Дополню еще, что если номер документа располагается не в ячейке, а в колонтитуле, то
вместо

Range("bw6").Value = "00" + Trim(Str(i))

или все-таки Range("bw6").Value = Format(i,"000000")

надо

Код: Выделить всё

    ActiveSheet.PageSetup.LeftFooter = Format(i,"000000")

наряду с LeftFooter в колонтитуле есть еще 5 полей: LeftHeader, CenterHeader, RightHeader, CenterFooter, RightFooter.

Колонтитул, как известно хорош тем, что печатается на каждой странице.