BEST logo логотип компании БЭСТ - программы для бизнеса ПРОДАЖИ
+7 (991) 312-04-37
trade@bestnet.ru
ПОДДЕРЖКА
+7 (495) 775-66-76
consult@bestnet.ru
СКАЧАТЬ
Обновления
Дистрибутивы
Авторизация

Логин:
Пароль:
Забыли свой пароль?
Регистрация
ВАШ ВОПРОС

Доступ к Личному кабинету закрыт!
Как получить доступ?


Главная  / Поддержка  / Форум  / Публичные форумы  / Программирование приложений  / Поля страницы при экспорте в Excel.

Форум

Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Поля страницы при экспорте в Excel., Надо изменить область печати при экспорте в Excel.
 
Подскажите, пожалуйста, как изменить поля страницы при выгрузке из БЭСТ в Excel? Или где поискать.

(В Excel'е - меню файл Файл->параметры страницы-> Вкладка "Поля")
Изменено: Саак Шахламджян - 01.09.2010 12:07:45
 
Делаете следующим образом.
1.Включаете в Excel запись макроса.
2.Делаете изменение полей
3.Берете текст макроса и переносите в БЭСТ, при этом адаптируя синтаксис.
 
Цитата
nordk пишет:
Делаете следующим образом.

1.Включаете в Excel запись макроса.

2.Делаете изменение полей

3.Берете текст макроса и переносите в БЭСТ, при этом адаптируя синтаксис.


С этого места, пожалуйста, поподробнее. Как писать макросы в Бэсте для Excel?
(Если дадите пример, будет вообще здорово)

И где смотреть "Перевод синтаксиса" стандартных макросов Excela в синтаксис Бэста?(думаю, там д.б. прилично информации)
 
Цитата
Саак Шахламджян пишет:
С этого места, пожалуйста, поподробнее. Как писать макросы в Бэсте для Excel?
(Если дадите пример, будет вообще здорово)

И где смотреть "Перевод синтаксиса" стандартных макросов Excela в синтаксис Бэста?(думаю, там д.б. прилично информации)

Давайте от общих вопросов сразу перейдем к Вашему примеру.
Вот Вы сюда напишите макрос из Excel и по нему и рассмотрим.

А вообще у Вас в руках мощнейший отладчик в котором можно пробовать код в командной строке и тут же смотреть что сделал Excel
 
Макрос сделал. Предлагаю Вашему вниманию

Код
Sub Макрос3()

    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.31496062992126)
        .RightMargin = Application.InchesToPoints(0.31496062992126)
        .TopMargin = Application.InchesToPoints(0.31496062992126)
        .BottomMargin = Application.InchesToPoints(0.31496062992126)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
End Sub
 
Ну и пишем
Сначала стандарт начала работы с любым объектом, в данном случае Excel

Код
   TRY
   oApp := CreateObject( "Excel.Application" )
   CATCH
      ALERT( "Excel не доступен!" )
      RETURN 
   END


А дальше в соответствии с макросом

Код
oAS:=oApp:ActiveSheet()
oAS:PageSetup:LeftMargin := oApp:InchesToPoints(....)
oAS:PageSetup:RightMargin := oApp:InchesToPoints(....)
oAS:PageSetup:TopMargin := oApp:InchesToPoints(....)
oAS:PageSetup:BottomMargin := oApp:InchesToPoints(....)

В скобках нужные цифры и все дела
Остальные параметры аналогично
 
Большое спасибо, все получилось!!!
Поля печати изменяются как надо.
Страницы: 1
Читают тему (гостей: 1)