Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 39, средняя оценка - 4.77
Busine2009
Заблокирован
#1

Печать в Excel - VBA

18.07.2009, 19:10. Просмотров 5022. Ответов 2
Метки нет (Все метки)

В Excel есть такая особенность. Например, книга состоит из 2-х листов. Я хочу распечатать всю книгу в ч/б. Нажимаю Файл - Печать - Всю книгу - Свойства принтера - галочка Печатать в градациях серого - Ок. И в итоге печается ч/б только один лист, который был активным до начала печати.
Также проблема и с 2-х сторонней печатью.

Никто не сталкивался с этим?

Добавлено через 11 часов 37 минут 22 секунды
Вычитал на др. форумах и сам кое-что придумал:
1. Печать всей книги Excel ч/б: запускаем макрос
Visual Basic
1
2
3
4
5
6
Sub main()
Dim myWorksheet As Worksheet
For Each myWorksheet In ActiveWorkbook.Sheets
myWorksheet.PageSetup.BlackAndWhite = True
Next
End Sub
А затем в диалоговом окне Печать - Всю книгу - Ок.

2. Чтобы вся книга печаталась как двухсторонняя для каждого листа делаем:
Файл - Печать - Выбираем принтер - Свойства - Ставим галочку 2-х ст. печать - Ок - Отмена (закрываем диалоговое окно Печать). Осталось только проверить этот способ.
А вот программно как ставить галочку 2-х ст печать в Свойствах принтерах?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.07.2009, 19:10
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Печать в Excel (VBA):

Выборочная печать в Excel - VBA
У нас есть докумет Excel. Необходимо распечатать документ по определенному образцу(например, справка о доходах), но некоторые данные...

Выборочная печать страниц Excel - VBA
Доброе время суток! Помогите,пожалуйста,напечатать в Excel страницы выборочно, как в Wordе.

Печать word-файла из Excel - VBA
Столкнулся вот с чем: Есть excel-файл, в нём в каждой строчке записан путь к word-файлу. Необходимо, вставая на строчку, печатать этот...

Печать pdf из excel-листа - VBA
Добрый день! На компьютере установлен пакет программ adobe, и в списке устройств имеется принтер adobe pdf, он установлен как принтер по...

Печать указанных страниц в Excel - VBA
Необходимо написать макрос, который бы позволил выводить на печать не диапазон страниц с ... по ..., а конкретно указанные страницы,...

Печать стороннего pdf из excel - VBA
Знающие господа подскажите возможна ли печать сторонних pdf файлов из excel? Куда плясать?

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
analyst
434 / 141 / 9
Регистрация: 12.01.2009
Сообщений: 675
Записей в блоге: 1
28.07.2009, 14:11 #2
Цитата Сообщение от Busine2009 Посмотреть сообщение
А вот программно как ставить галочку 2-х ст печать в Свойствах принтерах?
Вы всё это хотите делать в экселе или в ворде?
0
Busine2009
Заблокирован
28.07.2009, 21:42  [ТС] #3
В Excele, т.к. в Worde с этим нет проблем.
Также хочу отметить, для того, чтобы понять значимость этой проблемы - нужно столкнуться с ней.
Я проверирил про 2-х стороннюю печать - работает.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.07.2009, 21:42
Привет! Вот еще темы с ответами:

Вывод таблицы на печать в Excel - VBA
Как можно сделать с помощью макроса, чтобы при выводе на печать две строки не отрывались и были на одном листе?

Печать в Excel через макрос - VBA
Доброго времени суток !!! Ситуация такая. В документе есть 2 листа: на первой, таблица с данными, во второй текст и в...

VBA Excel печать листа - VBA
На листе ActiveSheet определены сквозные строки "$1:$2" для печати на каждой странице (ActiveSheet.PageSetup.PrintTitleRows = "$1:$2"). ...

Предварительный просмотр и печать листа Excel - VBA
Помогите, ничего нормального не нашел. Как реализовать печать и предварительный просмотр листа в книге exel, из формы. И если возможно,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru