Вывод области на печать

Shugo Гость	#1 20.11.2012 11:47:17 Здравствуйте! Подскажите пожалуйста: на листе выбрана область для печати A2:J45, но я хочу что бы при этом не печатался один столбец, G. В "параметрах страницы" пробовал разные варианты, но не помогло. Спасибо!

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#2 20.11.2012 12:08:48 А если выделить нужный столбец, и при печати выбрать опцию «печатать выделенный диапазон»? Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Shugo

Гость

20.11.2012 12:16:29

{quote}{login=EducatedFool}{date=20.11.2012 12:08}{thema=}{post}А если выделить нужный столбец,
и при печати выбрать опцию «печатать выделенный диапазон»?{/post}{/quote}

В таком случае он "размазывает" страницу на 2 листа и все равно не скрывает ячейку G.

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#4 20.11.2012 12:29:35 Перед печатью скрыть столбец. Потом можно отобразить. Я сам - дурнее всякого примера! ...

Shugo Гость	#5 20.11.2012 12:38:50 {quote}{login=KukLP}{date=20.11.2012 12:29}{thema=}{post}Перед печатью скрыть столбец. Потом можно отобразить.{/post}{/quote} Только таким образом?

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#6 20.11.2012 12:42:27 А это так страшно? Можете записать макрос на Workbook_BeforePrint и будет Вам счастье. Я сам - дурнее всякого примера! ...

Shugo Гость	#7 20.11.2012 17:47:36 {quote}{login=KukLP}{date=20.11.2012 12:42}{thema=}{post}А это так страшно? Можете записать макрос на Workbook_BeforePrint и будет Вам счастье.{/post}{/quote} Не получилось у меня.

Shugo Гость	#8 20.11.2012 18:17:29 Задал в "параметрах страницы" печатную область "A2:F45;H2:J45" и все поделилось на два листа. Места для печати на первом листе хватает.

Shugo Гость	#9 21.11.2012 11:30:04 Помогло это решение! Sub print_route() Sheets("Расход").Columns("G").EntireColumn.Hidden = True ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Расход").Columns("G").EntireColumn.Hidden = False End Sub

Читают тему