Private Sub CommandButton1_Click()
ListNumCell = "G2"
k = TextBox1.Value
Set cSh = ActiveSheet
lastrow = cSh.Cells.SpecialCells(xlLastCell).Row
' Считываем текущий номер
MaxNum = cSh.Range(ListNumCell).Value + 1 ' +1 выводим на печать начиная со следующего
' Устанавливаем первый печатаемый номер
cSh.Range(ListNumCell).Value = MaxNum
cSh.Copy before:=cSh
Set nSh = Sheets(cSh.Index - 1)
' один номер уже скопирован осталось k-1
For i = 1 To k - 1
' увеличиваем номер до печати
cSh.Range(ListNumCell).Value = MaxNum + i
cSh.Rows("1:" & lastrow).Copy
nSh.Rows(1).Insert Shift:=xlDown
nSh.HPageBreaks.Add before:=nSh.Rows(lastrow + 1)
Next i
Application.CutCopyMode = False
' печать листа без диалога печати
nSh.PrintOut
' удаляем временный лист без подтверждения
Application.DisplayAlerts = False
nSh.Delete
Application.DisplayAlerts = True
End Sub
|
