А если выделить все листы (выделить первый и, держа нажатым Шифт, выделить последний) и отправить на печать?
Не получается так - предлагает напечатать все данные с листа (т.е. включая данные, по которым построена диаграмма). Диаграммы перед этим выделял. Попробовал и без выделения - то же самое.
А если выделить все листы (выделить первый и, держа нажатым Шифт, выделить последний) и отправить на печать?
Не получается так - предлагает напечатать все данные с листа (т.е. включая данные, по которым построена диаграмма). Диаграммы перед этим выделял. Попробовал и без выделения - то же самое.drugojandrew
Karataev, спасибо, работает. Только останавливается, когда доходит до листа без диаграммы и выдает ошибку: "Method 'ChartObjects' of object' _Worksheet' failed". Это можно как-то исправить?
Karataev, спасибо, работает. Только останавливается, когда доходит до листа без диаграммы и выдает ошибку: "Method 'ChartObjects' of object' _Worksheet' failed". Это можно как-то исправить?drugojandrew
останавливается, когда доходит до листа без диаграммы и выдает ошибку: "Method 'ChartObjects' of object' _Worksheet' failed". Это можно как-то исправить?
Всем спасибо, эту проблему решил прописав "On Error Resume Next".
останавливается, когда доходит до листа без диаграммы и выдает ошибку: "Method 'ChartObjects' of object' _Worksheet' failed". Это можно как-то исправить?
Всем спасибо, эту проблему решил прописав "On Error Resume Next".drugojandrew
Sub PechatCharts() Dim sh As Worksheet, chrt As Chart For Each sh In Worksheets If sh.ChartObjects.Count <> 0 Then Set chrt = sh.ChartObjects(1).Chart chrt.PrintOut End If Next End Sub
[/vba] Перехватчик "On Error Resume Next" нужно использовать, если нет других вариантов.
Лучше так: [vba]
Код
Sub PechatCharts() Dim sh As Worksheet, chrt As Chart For Each sh In Worksheets If sh.ChartObjects.Count <> 0 Then Set chrt = sh.ChartObjects(1).Chart chrt.PrintOut End If Next End Sub
[/vba] Перехватчик "On Error Resume Next" нужно использовать, если нет других вариантов.Karataev
Сообщение отредактировал Karataev - Вторник, 01.09.2015, 15:41
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
