Макрос для печати именованого диапазона

Дата: Вторник, 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

Дата: Вторник, 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

Дата: Вторник, 21.12.2010, 16:12 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 290

Репутация: 12 ±

Замечаний: 0% ±

Serge_007,

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

С ув. Муля!

Дата: Вторник, 21.12.2010, 16:41 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

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

ЮMoney:41001419691823 | WMR:126292472390

Дата: Вторник, 21.12.2010, 16:46 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 290

Репутация: 12 ±

Замечаний: 0% ±

Serge_007, 2003

С ув. Муля!

Дата: Вторник, 21.12.2010, 16:52 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

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

ЮMoney:41001419691823 | WMR:126292472390

Дата: Вторник, 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

Дата: Вторник, 21.12.2010, 23:05 | Сообщение № 8

Группа: Проверенные

Ранг: Обитатель

Сообщений: 290

Репутация: 12 ±

Замечаний: 0% ±

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

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

С ув. Муля!

Саня

Дата: Вторник, 21.12.2010, 23:11 | Сообщение № 9

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

принтера дома нет, поэтому наугад

Code

Range("ОбластьПечатиПлатВед").PrintOut

Дата: Вторник, 21.12.2010, 23:51 | Сообщение № 10

Группа: Проверенные

Ранг: Обитатель

Сообщений: 290

Репутация: 12 ±

Замечаний: 0% ±

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

С ув. Муля!

Дата: Среда, 22.12.2010, 00:26 | Сообщение № 11

Группа: Проверенные

Ранг: Обитатель

Сообщений: 290

Репутация: 12 ±

Замечаний: 0% ±

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

С ув. Муля!