objExc.Quit 'завершаем работу Excel
Set objExc = Nothing
Печать страницы Excel
Подскажите пожалуйста, как из VB распечатать страницу Excel? И возможно ли это?
вот пример
Set objExc = CreateObject("Excel.Application")
objExc.Workbooks.Open "c:\mybook.xls"
objExc.ActiveWorkbook.Sheets("лист1").printout
Set objExc = Nothing
Set objExc = CreateObject("Excel.Application")
objExc.Workbooks.Open "c:\mybook.xls"
objExc.ActiveWorkbook.Sheets("лист1").printout
Set objExc = Nothing
Благодарю... Почти все работает!:)
Дело в том, что это меня попросил узнать знакомый, т.к. он с Интернетом не дружит, а я не дружу с VB + Excel... Попытаюсь объяснить, что у него не совсем так работает...
Он создает объект: Set objExc = CreateObject("Excel.Application")
Далее копирует содержимое своей страницы в этот объект. Все хорошо работает, содержимое объекта распечатывается, но потом доступ к странице которую он копировал в объект пропадает. Как он подозревает ему для того чтобы все совсем хорошо было необходимо закрывать страницу/документ из которого он копирует в объект. Как это сделать? Set objExc = Nothing уничтожает объект, а как закрыть страницу?
Дело в том, что это меня попросил узнать знакомый, т.к. он с Интернетом не дружит, а я не дружу с VB + Excel... Попытаюсь объяснить, что у него не совсем так работает...
Он создает объект: Set objExc = CreateObject("Excel.Application")
Далее копирует содержимое своей страницы в этот объект. Все хорошо работает, содержимое объекта распечатывается, но потом доступ к странице которую он копировал в объект пропадает. Как он подозревает ему для того чтобы все совсем хорошо было необходимо закрывать страницу/документ из которого он копирует в объект. Как это сделать? Set objExc = Nothing уничтожает объект, а как закрыть страницу?
Ну что никто не знает? Кстати, даже после перезагрузки компьютера этот открытый файл считается "уже открытым".
Цитата: DKain
... доступ к странице которую он копировал в объект пропадает...
А разве выполняются ещё какие-то действия? Если выполняются, то код - в студию.
Цитата: DKain
... Set objExc = Nothing уничтожает объект, а как закрыть страницу?
Закрыть страницу нельзя. Можно закрыть рабочую книгу или завершить работу приложения. Например:
Код:
Если надо зактрыть только копируемую книгу, то так
Workbooks("mybook.xls").Close SaveChanges:=False
Workbooks("mybook.xls").Close SaveChanges:=False