быстрая печать текущей страницы в Excel как в ворде?

[genn931]

Существует многостраничный размеченный лист в Excel, и возникает необходимость быстрой печати трех экз.(как в ворде печать текущей страницы) той страницы на которой указатель мыши, или маркер клавиатуры, а не всех листов.
В идеале, вообще либо создание отдельной кнопки для этого, или сочетания клавиш, только для этой книги. Не силен в макросах! Поэтому прошу советов гуру))). Заранее спасибо!

[genn931]

вот нашел макрос похожий.
Но сразу два но,
первое как в нем исправить что бы если нажать отмену(в данном случае как пример печатает 1 и 3 стр.) он ничего не печатал!

второе, как сократить кол-во запрашиваемых окон(достаточно первого одного)?

Private Sub ПечатьЧНС() 
Количество = ExecuteExcel4Macro("GET.DOCUMENT(50)") 

If Количество = 0 Then 
MsgBox Prompt:="Нет данных для вывода на печать", _ 
Buttons:=vbCritical, Title:="" 
Exit Sub 
End If 

Первый = Application.InputBox( _ 
Prompt:="Введите номер первой страницы", _ 
Title:="Печать", Type:=1) 
Последний = Application.InputBox( _ 
Prompt:="Введите номер последней страницы", _ 
Title:="Печать", Type:=1) 

If Первый < 1 Or _ 
Первый > Количество Then Первый = 1 
If Последний < Первый Or _ 
Последний > Количество Then Последний = Количество 

For Лист = Первый To Последний Step 2 
Application.ActiveSheet.PrintOut From:=Лист, To:=Лист 
Next 

If MsgBox(Prompt:="Хотите ли Вы продолжить печать ?", _ 
Buttons:=vbYesNo, Title:="") = vbNo Then 
Exit Sub 
Else 
MsgBox Prompt:="Переверните листы и нажмите 'ОК'", _ 
Buttons:=vbOKOnly, Title:="" 
End If 

For Лист = Первый + 1 To Последний Step 2 
Application.ActiveSheet.PrintOut From:=Лист, To:=Лист 
Next 

End Sub

[genn931]

изменил:
Sub ПечатьТЕКУЩЕЙстраницы()
Количество = ExecuteExcel4Macro("GET.DOCUMENT(50 )")
Первый = Application.InputBox( _
Prompt:="Введите номер страницы", _
Title:="Печать", Type:=1)
If Первый < 1 Or _
Первый > Количество Then Первый = 1
If Последний < Первый Or _
Последний > Количество Then Последний = Количество
For Лист = Первый To Последний Step 2
Application.ActiveSheet.PrintOut From:=Лист, To:=Лист
Exit Sub
Next
End Sub

только при отмене, все равно печатает 1 страницу, подскажите как этого избежать? Что бы при нажатие отмена в окне выбора страницы, ничего не печаталось????

[Aleksandr H.]

Сообщение от genn931

Что бы при нажатие отмена в окне выбора страницы, ничего не печаталось????

ответы там:
https://social.msdn.microsoft.com/Fo...orum=accessdev
http://stackoverflow.com/questions/2...tbox-vba-excel

[genn931]

[QUOTE=Aleksandr H.;1659800]ответы там:
спасибо! посмотрел, но в силу того что не разбираюсь в макросах
я понимаю что нужно применить:
MsgBox ("выход")
End If
но у меня не получается, скорее всего эти команды не связаны моими условиями?

[genn931]

нашел решение, создал кнопку, и присвоил ей макрос:
Sub Макрос_печати_текущей_страницы()
'
'
For Each iAddress In Array("B2:J32", "B33:J63", "B64:J94", "B95:J125", "B126:J156",)
If Not Intersect(ActiveCell, Range(iAddress)) Is Nothing Then
ActiveSheet.PageSetup.PrintArea = iAddress:

ActiveWindow.SelectedSheets.PrintOu t From:=1, To:=1, Copies:=3

Exit Sub
End If
Next
Exit Sub

End Sub