smirnvlad
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
в данном случае выводится диалог и если нажата ОК, то лист печатается с текущим номером, затем номер увеличится
ещё можно сначала увеличить номер, замет показать диалог
или отправить на печать без диалога с текущими настройками
Код:
Sub НажатиеКнопки()
Dim MaxNum As Integer
ListNumCell = "A1"
' Считываем текущий номер
MaxNum = Range(ListNumCell).Value
' увеличиваем номер до печати
' Range(ListNumCell).Value = MaxNum + 1
' диалог печати
If Application.Dialogs(xlDialogPrint).Show Then
' или увеличиваем номер если печать не отменена
Range(ListNumCell).Value = MaxNum + 1
End If
' или печать листа без диалога печати
'ActiveSheet.PrintOut
End Sub
|
|
