Форум продуктов IBM Lotus

Общие вопросы => Разработка приложений => Тема начата: Sergey_st85 от 18 Август 2009, 14:13:07

Название: API. Excel. Прикольная фича.
Отправлено: Sergey_st85 от 18 Август 2009, 14:13:07

Нужно было найти ф-цию, которая бы параметры страницы меняла при печати. Думал-думал... И придумал.

Заходите в Excel, включаете макросы, запись; меняете параметры страницы - и выкусываете из полученного кода макроса нужную команду.

Получаем это. А вот и ф-ция:

Function RunningExel() As Variant
     ' Ф-ция запуска Exel
    Dim FI As Integer
    On Error Goto LabelErr
   
    Fl = 0
    Set ExcelObj = GetObject(,"Excel.Application")
    RunningExel = True
    ExcelObj.Visible = True
    ExcelObj.Application.WindowState = xlMaximized     
    Call ExcelObj.Workbooks.Add
   
    With ExcelObj.ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .LeftMargin = 0
        .RightMargin = 0
        .TopMargin = 0
        .BottomMargin = 0
        .HeaderMargin = 0
        .FooterMargin = 0
        .Order = 2
    End With
    Exit Function
   
LabelErr:
    Fl = Fl + 1
    If (Fl > 1) Then
        Messagebox "На Вашем компьютере не установлен Microsoft Excel '97.", 32,"Внимание ..."
        RunningExel = False
        Exit Function
    End If
    Set ExcelObj = CreateObject("Excel.Application")
    Resume Next
End Function

Название: Re: API. Excel. Прикольная фича.
Отправлено: Sergey_st85 от 18 Август 2009, 14:18:53

токо там 1 и 2 надо использовать в значениях   .Orientation.