|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.01.2017, 09:28 | #1 |
Регистрация: 21.01.2017
Сообщений: 5
|
быстрая печать текущей страницы в Excel как в ворде?
Существует многостраничный размеченный лист в Excel, и возникает необходимость быстрой печати трех экз.(как в ворде печать текущей страницы) той страницы на которой указатель мыши, или маркер клавиатуры, а не всех листов.
В идеале, вообще либо создание отдельной кнопки для этого, или сочетания клавиш, только для этой книги. Не силен в макросах! Поэтому прошу советов гуру))). Заранее спасибо! Последний раз редактировалось genn931; 21.01.2017 в 09:54. |
21.01.2017, 15:11 | #2 |
Регистрация: 21.01.2017
Сообщений: 5
|
помогите советом
вот нашел макрос похожий.
Но сразу два но, первое как в нем исправить что бы если нажать отмену(в данном случае как пример печатает 1 и 3 стр.) он ничего не печатал! второе, как сократить кол-во запрашиваемых окон(достаточно первого одного)? Код:
Последний раз редактировалось Аватар; 21.01.2017 в 15:32. |
21.01.2017, 18:30 | #3 |
Регистрация: 21.01.2017
Сообщений: 5
|
изменил:
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 страницу, подскажите как этого избежать? Что бы при нажатие отмена в окне выбора страницы, ничего не печаталось???? |
21.01.2017, 20:21 | #4 | |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Цитата:
https://social.msdn.microsoft.com/Fo...orum=accessdev http://stackoverflow.com/questions/2...tbox-vba-excel
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
|
21.01.2017, 21:01 | #5 |
Регистрация: 21.01.2017
Сообщений: 5
|
[QUOTE=Aleksandr H.;1659800]ответы там:
спасибо! посмотрел, но в силу того что не разбираюсь в макросах я понимаю что нужно применить: MsgBox ("выход") End If но у меня не получается, скорее всего эти команды не связаны моими условиями? |
23.01.2017, 11:53 | #6 |
Регистрация: 21.01.2017
Сообщений: 5
|
нашел решение, создал кнопку, и присвоил ей макрос:
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 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как узнать адрес текущей страницы | ChevChelos | JavaScript, Ajax | 2 | 10.03.2014 21:16 |
Быстрая печать записи | zander | Microsoft Office Access | 3 | 07.05.2013 08:31 |
Как получить номер текущей страницы документа MS Word при работе через OLE | Fastex | C++ Builder | 1 | 30.08.2012 19:16 |
Как из Delphi пустить на печать определенные страницы документа MS Word? | Akemi | Общие вопросы Delphi | 3 | 01.06.2010 10:48 |
Как узнать адрес текущей страницы? | SuBwooFer | JavaScript, Ajax | 2 | 31.08.2009 11:53 |