Общие вопросы > Разработка приложений

API. Excel. Прикольная фича.

(1/1)

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

Заходите в 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

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

Навигация

[0] Главная страница сообщений