powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / 2 вопроса про Excel - отчет
5 сообщений из 5, страница 1 из 1
2 вопроса про Excel - отчет
    #33232182
Jimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Передаю данные в Excel ("рисую" в нем отчет)
1. Как установить параметры страницы-альбомная? причем развернуть его надо до того, как я буду создавать отчет с данными.
2. Как вывести его (этот отчет) на экран. То есть он выводится, но в свернутом виде, раскрывать приходится вручную а это неудобно. И еще - если его вызвать из формы верхнего уровня (максимально развернутой) то его естественно и в свернутом виде не видно. А надо бы... Подскажите!
Спасибо.
...
Рейтинг: 0 / 0
2 вопроса про Excel - отчет
    #33232206
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. Макрорекордер Экселя тебе в помощь
...
Рейтинг: 0 / 0
2 вопроса про Excel - отчет
    #33232411
Здесь можно найти ответы на эти вопросы (и не только)
http://www.foxpopuli.narod.ru/books/vfpexcel.htm
...
Рейтинг: 0 / 0
2 вопроса про Excel - отчет
    #33232477
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот это тоже можешь почитать.
...
Рейтинг: 0 / 0
2 вопроса про Excel - отчет
    #33233195
Yuri Tyurin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Что-то типа того...

* Создаем объект лист
oleXL = CreateObject('Excel.Sheet')
ExcObj = oleXL.ActiveSheet

* Это чтобы сделать объект видимым
oleXL.Application.Visible=.T.

ExcObj.PageSetup.PaperSize = 9

* А это как раз ориентация
ExcObj.PageSetup.Orientation = 2

* Название листа
ExcObj.Name = 'KPI OPS SVs '+alltrim(vp.visit_num)

* Задание всяких параметров страниц
ExcObj.PageSetup.LeftMargin = 15
ExcObj.PageSetup.RightMargin = 15
ExcObj.PageSetup.TopMargin = 15
ExcObj.PageSetup.BottomMargin = 15
ExcObj.PageSetup.HeaderMargin = 0
ExcObj.PageSetup.FooterMargin = 0
ExcObj.PageSetup.FitToPagesWide = 1
ExcObj.PageSetup.FitToPagesTall = 1

* Масштабирование страницы при выводе на принтер в процентах от размера
ExcObj.PageSetup.Zoom = 66
_______________________________________________________
Обходя разложенные грабли, ты теряешь драгоценный опыт!
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / 2 вопроса про Excel - отчет
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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