Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обьект Excel (предварительный просмотр ) / 4 сообщений из 4, страница 1 из 1
28.07.2009, 13:36
    #36113235
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обьект Excel (предварительный просмотр )
Всем здравствуйте !!!

Работаю Обьектом Excel для формирования некого отчета из VB
Как при открытие самого Excel-я попасть сразу в "предварительный просмотр" страницы ?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
.
.
Set objExcel = New Excel.Application
.
.
MousePointer = vbDefault

 objExcel.Visible = True
 Set objExcel = Nothing

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2009, 14:07
    #36113344
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обьект Excel (предварительный просмотр )
Начать запись макроса, открыть "предварительный просмотр", закрыть, завершить запись, посмотреть результат.


Jah loves you.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2009, 14:19
    #36113387
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обьект Excel (предварительный просмотр )
> Автор: Valeriu
> Всем здравствуйте !!!
>
> Работаю Обьектом Excel для формирования некого отчета из VB
> Как при открытие самого Excel-я попасть сразу в "предварительный просмотр" страницы ?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
MousePointer = vbDefault
DoEvents
Set objExcel = New Excel.Application
objExcel.Workbooks.Add
Set XLSheet = objExcel.ActiveSheet
With XLSheet.PageSetup
 .LeftHeader = ""
 .CenterHeader = ""
 .RightHeader = ""
 .LeftFooter = ""
 .CenterFooter = ""
 .RightFooter = ""
 .LeftMargin = objExcel.InchesToPoints( 0 . 78740157480315 )
 .RightMargin = objExcel.InchesToPoints( 0 . 78740157480315 )
 .TopMargin = objExcel.InchesToPoints( 0 . 984251968503937 )
 .BottomMargin = objExcel.InchesToPoints( 0 . 984251968503937 )
 .HeaderMargin = objExcel.InchesToPoints( 0 . 511811023622047 )
 .FooterMargin = objExcel.InchesToPoints( 0 . 511811023622047 )
 .PrintHeadings = False
 .PrintGridlines = False
 .PrintComments = xlPrintNoComments
 .Printquality =  600 
 .CenterHorizontally = True
 .CenterVertically = False
 .Orientation = xlLandscape
 .Draft = False
 .Papersize = xlPaperA4
 .FirstPageNumber = xlAutomatic
 .Order = xlDownThenOver
 .Zoom = False
 .FitToPagesWide =  1 
 .FitToPagesTall =  1 
 .PrintErrors = xlPrintErrorsDisplayed
 .PrintPreview
Endwith
objExcel.Visible = True
Set objExcel = Nothing
> Спасибо.



Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2009, 16:52
    #36113988
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обьект Excel (предварительный просмотр )
Спасибо :) !
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обьект Excel (предварительный просмотр ) / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 460ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2160723]:
 0ms
get settings:
 9ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 141ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 224ms
total:  460ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]