ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обьект Excel (предварительный просмотр )
4 сообщений из 4, страница 1 из 1
Обьект Excel (предварительный просмотр )
    #36113235
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Всем здравствуйте !!!

Работаю Обьектом 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, 13:36
| Ответить | Цитировать | Написать  
Обьект Excel (предварительный просмотр )
    #36113344
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Начать запись макроса, открыть "предварительный просмотр", закрыть, завершить запись, посмотреть результат.


Jah loves you.
...
Рейтинг: 0 / 0
28.07.2009, 14:07
| Ответить | Цитировать | Написать  
Обьект Excel (предварительный просмотр )
    #36113387
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: 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, 14:19
| Ответить | Цитировать | Написать  
Обьект Excel (предварительный просмотр )
    #36113988
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Спасибо :) !
...
Рейтинг: 0 / 0
28.07.2009, 16:52
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обьект Excel (предварительный просмотр )
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=152&tid=2160723]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 16ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 193ms
total:  264ms
созд. / загр.: 264ms
x
x
Закрыть


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