Добрый день.
У меня появилась задачка.
Сделал для заказчика выгрузку данных из БД в Excel. Получился отчетик.
Все бы хорошо, но заказчик просит сделать ориентацию на отчёте Ландшафтную и Что бы по ширине входил на лист.
Я решил макрос сделать в Excel, что бы вообще понять какие строки дописывать в мой макрос.
(Мой макрос запускается на стороннем приложении. Макрос создает документ типа Excel, рисует в нем табличку и заполняет её.
И опять же все бы хорошо, но макрос изначально не был моим, предоставили как пример на котором я могу поработать и разобраться. А сам добрый человек в отпуск ушел.)

Excel мне создал такой макрос

_{Sub Макрос1()
With ActiveSheet.PageSetup
...
.Orientation = xlLandscape
...
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub}


Собственно в свой макрос вставляю строку: (oExcel.ActiveSheet.PageSetup.Orientation = xlLandscape)


_{Sub ExportInExcel()
Dim oExcel As Object
Dim oCurs As Object
Dim oDoc As Object
Dim nDoc As Integer
Set oCurs = Mask.Cursor
nDoc = oCurs.count
If oCurs.Count = 0 then
MsgBox "С текущими критериями поиска найдено 0 записей",0,"Ошибка"
Exit Sub
End If
If oCurs.First And nDoc < 32001 Then
Set oExcel = CreateObject ("Excel.Application")
Application.StartWait
oExcel.Workbooks.Add
oExcel.ActiveSheet.PageSetup.Orientation = xlLandscape --------- вот эта строчка.
oExcel.Cells.Select
oExcel.Selection.NumberFormat = "@"
...
End Sub}


Но при отработке дает ошибку:
Error on line: 88 - Нельзя установить свойство Orientation класса PageSetup

И ничерта толкового найти не могу. Помогите пожалуйста разобраться. И дайте ссылки плиз, что бы почитать.

ПЕНСИОНЕРКА,

Большое спасибо за совет.
А как в Excel посмотреть это число?
Когда я в экселе сделал макрос. Он мне показал только = xlLandscape.

Shocker.Pro,

Добрый день.
Вроде разобрался. Спасибо.