Imprimir Excel desde VB6

[larrea]

Hola,
Revisando las ayudas de VBA en Excel encontre este código

Worksheets("Sheet1").PageSetup.Orientation = xlLandscape

pero me genera un error

No se puede asignar la propiedad de Orientation de la clase PageSetup

este seria una parte del código que utilizo, pero siempre imprime en vertical.

Dim ApExcel As Object
Set ApExcel = CreateObject("Excel.application")
ApExcel.Workbooks.Add
ApExcel.Visible = False

ApExcel.Cells(1, 1).Formula = "Cuota de partcipación de : "
ApExcel.range("A1", "G1").MergeCells = True
ApExcel.Cells(1, 1).Font.Bold = True
ApExcel.Cells(1, 1).Font.Size = 12
ApExcel.Cells(2, 1).Formula =" texto"
ApExcel.range("A2", "G2").MergeCells = True
.
.
.

ApExcel.ActiveSheet.PageSetup.Orientation = xlLandscape


ApExcel.ActiveSheet.PrintOut Copies:=1
ApExcel.ActiveWorkbook.Close False
ApExcel.Application.Quit

Set ApExcel = Nothing

Si alguien sabe que estoy haciendo mal

Otra posibilidad que se me ocurre es la de cambiar la orientación de la hoja en la impresora predeterminada pero tampoco encuentro ninguma API.

Gracias.