Нужно было найти ф-цию, которая бы параметры страницы меняла при печати. Думал-думал... И придумал.
Заходите в 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
