Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос для печати именованого диапазона - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос для печати именованого диапазона
Макрос для печати именованого диапазона
Муля2010 Дата: Вторник, 21.12.2010, 14:45 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

Добрый день!
Мне нужно напечатать лист из активной (рабочей) книги. Но не весь, а лишь выделенную на нем область. То есть - первую страницу. Всего в листе 3 страницы на которых имеется инфа.
Слямпичил вот такой макрос:

Sub CommandButton1_Click()
Range("ОбластьПечатиПлатВед").Select
Application.Dialogs(xlDialogPrint).Show
End Sub

Но он печатает все листы. А, как я понмаю, должен печатить только вот эту : ("ОбластьПечатиПлатВед"),выделенную область печати.
Даже если, например, в стандартном окне печати Винды, стоит отметка печатать Все.
И что интересно, саму область печати, макрос определяет правильно, а на принтер засылает все страницы.
Что в нем не так написано?


С ув. Муля!

Сообщение отредактировал Муля2010 - Вторник, 21.12.2010, 14:46
 
Ответить
СообщениеДобрый день!
Мне нужно напечатать лист из активной (рабочей) книги. Но не весь, а лишь выделенную на нем область. То есть - первую страницу. Всего в листе 3 страницы на которых имеется инфа.
Слямпичил вот такой макрос:

Sub CommandButton1_Click()
Range("ОбластьПечатиПлатВед").Select
Application.Dialogs(xlDialogPrint).Show
End Sub

Но он печатает все листы. А, как я понмаю, должен печатить только вот эту : ("ОбластьПечатиПлатВед"),выделенную область печати.
Даже если, например, в стандартном окне печати Винды, стоит отметка печатать Все.
И что интересно, саму область печати, макрос определяет правильно, а на принтер засылает все страницы.
Что в нем не так написано?

Автор - Муля2010
Дата добавления - 21.12.2010 в 14:45
Serge_007 Дата: Вторник, 21.12.2010, 15:52 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Здравствуйте.

Code
Sub CommandButton1_Click()
    Application.Goto Reference:="ОбластьПечатиПлатВед"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
End Sub

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте.

Code
Sub CommandButton1_Click()
    Application.Goto Reference:="ОбластьПечатиПлатВед"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
End Sub
Автор - Serge_007
Дата добавления - 21.12.2010 в 15:52
Муля2010 Дата: Вторник, 21.12.2010, 16:12 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

Serge_007,

Не а!
Не работает. Ругается вот на этой строке:
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"


С ув. Муля!
 
Ответить
СообщениеSerge_007,

Не а!
Не работает. Ругается вот на этой строке:
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"

Автор - Муля2010
Дата добавления - 21.12.2010 в 16:12
Serge_007 Дата: Вторник, 21.12.2010, 16:41 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
У меня работает.
Эксель какой?

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеУ меня работает.
Эксель какой?
Автор - Serge_007
Дата добавления - 21.12.2010 в 16:41
Муля2010 Дата: Вторник, 21.12.2010, 16:46 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

Serge_007, 2003

С ув. Муля!
 
Ответить
СообщениеSerge_007, 2003
Автор - Муля2010
Дата добавления - 21.12.2010 в 16:46
Serge_007 Дата: Вторник, 21.12.2010, 16:52 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Если никто не поможет, дома посмотрю.
На работе только 2007.

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЕсли никто не поможет, дома посмотрю.
На работе только 2007.
Автор - Serge_007
Дата добавления - 21.12.2010 в 16:52
Serge_007 Дата: Вторник, 21.12.2010, 16:56 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Ещё так попробуйте:
Code
Sub CommandButton1_Click()  
     Application.Goto Reference:="ОбластьПечатиПлатВед"
     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЕщё так попробуйте:
Code
Sub CommandButton1_Click()  
     Application.Goto Reference:="ОбластьПечатиПлатВед"
     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Автор - Serge_007
Дата добавления - 21.12.2010 в 16:56
Муля2010 Дата: Вторник, 21.12.2010, 23:05 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

Serge_007,
Сергей спасибо за огромное желание помочь!

Этот макрос работает, но также выводит на печать все страницы листа. А мне же надо только именованый диапазон.
Комбинировал и так и сяк, но выходит тоже самое.
Здесь нужна строка, которая засылает на печать именно выделенную область. А вот как она должна выглядеть, не кумекаю!


С ув. Муля!
 
Ответить
СообщениеSerge_007,
Сергей спасибо за огромное желание помочь!

Этот макрос работает, но также выводит на печать все страницы листа. А мне же надо только именованый диапазон.
Комбинировал и так и сяк, но выходит тоже самое.
Здесь нужна строка, которая засылает на печать именно выделенную область. А вот как она должна выглядеть, не кумекаю!

Автор - Муля2010
Дата добавления - 21.12.2010 в 23:05
Саня Дата: Вторник, 21.12.2010, 23:11 | Сообщение № 9
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
принтера дома нет, поэтому наугад
Code
Range("ОбластьПечатиПлатВед").PrintOut
 
Ответить
Сообщениепринтера дома нет, поэтому наугад
Code
Range("ОбластьПечатиПлатВед").PrintOut
Автор - Саня
Дата добавления - 21.12.2010 в 23:11
Муля2010 Дата: Вторник, 21.12.2010, 23:51 | Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

ув. аналитика!
НАУГАД И ВПОПАД.
Спасибо ваш код выводит на печать правильно, только именованый диапазон.
Но вот только, область печати остается активной. То есть, выделение после печати не снимается. А хочется чтобы снималось.

С ув. Муля!
 
Ответить
Сообщениеув. аналитика!
НАУГАД И ВПОПАД.
Спасибо ваш код выводит на печать правильно, только именованый диапазон.
Но вот только, область печати остается активной. То есть, выделение после печати не снимается. А хочется чтобы снималось.
Автор - Муля2010
Дата добавления - 21.12.2010 в 23:51
Муля2010 Дата: Среда, 22.12.2010, 00:26 | Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

Пардон!
Извините, разобрался, все работает как надо.
Еще раз СПАААСИБО!

С ув. Муля!
 
Ответить
СообщениеПардон!
Извините, разобрался, все работает как надо.
Еще раз СПАААСИБО!
Автор - Муля2010
Дата добавления - 22.12.2010 в 00:26
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос для печати именованого диапазона
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!