Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
neiji
42 / 42 / 4
Регистрация: 26.04.2010
Сообщений: 207
1

Application.PrintOut в Excel 2007

25.12.2017, 10:59. Просмотров 330. Ответов 2
Метки нет (Все метки)

Приветствую. Лет цать назад писал макрос. И в нем были такие строчки:
PureBasic
1
2
3
4
5
6
adoc = Dir("*.doc")
Do While adoc <> " "
Application.PrintOut Filename:=adoc
adoc = Dir()
Loop
Next i
Вывод текущего листа в файл doc в текущем каталоге.
Раньше все исправно работало, а теперь нет(неожиданно). В общем пишет "Run-Time error 438. Object doesn't support this proporty or method". И да если через помощник вводить, то PrintOut автоматом не предлагается. Но вот в ворде все нормально работает. Я не могу понять в чем проблема? Третий час бьюсь.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2017, 10:59
Ответы с готовыми решениями:

Заменить Application.FileSeach з офиса 2003 на 2007 или 2010
Поменял офис и тут проблема с макросом Application.FileSeach на строке в чем...

Объясните разницу между Excel.Application.xxx и Application.xxx
Всем привет. Начинаю изучать VBA, планирую пока использовать для эксель....

Excel 2007 - стандартное меню в стиле Excel 2000 (2003, XP)
Для тех, кто столкнулся с 2007-м Office... Предлагается на рассмотрение VBA...

Позднее связывание с Excel.Application
был первый вариант программы - даю отрывок Dim Obj Dim oCell Set Obj =...

Защита книги excel 2007
Хочу чтоб Если книгу excel 2007 c названием BOOK1 перепишут в другой компьютер,...

2
Остап Бонд
733 / 467 / 227
Регистрация: 17.08.2017
Сообщений: 1,138
25.12.2017, 11:48 2
neiji, ваш пример срисован из справки Word, и то с ошибками.
Excel.Application никогда не поддерживал PrintOut напрямую, а только с указанием печатаемого объекта, например
Visual Basic
1
Activesheet.PrintOut
И в Doc-файл он тоже не "печатает", по моему...
0
neiji
42 / 42 / 4
Регистрация: 26.04.2010
Сообщений: 207
25.12.2017, 13:27  [ТС] 3
Остап Бонд, не с ошибками, тут просто часть кода другого попалась. Разобрался я с этим. Но теперь другой вопрос возник. У меня в цикле сохраняет страницу в pdf. Т.е. есть инфа на листе, за 1 цикл она изменяется, в конце цикла печатается, и так по кругу. Дак вот, если запущю цикл, то все страницы на выходе получаются одинаковыми, но если я в конце цикла поставлю точку остановки(не помню как правильно называется), и каждый раз буду переключатся в окно с открытым листом, то все работает нормально. Понимаю что нужно просто обновлять лист, но как это делать средствами vba? Лист1.Calculate не помогает
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2017, 13:27

Цикл While для excel 2007
Надо что бы цикл прибавлял к числу в ячейке единицу (начальное значение задаю...

Excel VBA - Application defined error 1004
Добрый день, Помогите разобраться. Есть код Sub GetValues(f As Variant) ...

Excel: Вызов функций Application из тела функции
Такая проблема. Работаю в эксель книге. Нужно открыть конкретную другую книгу,...


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

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

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