Imprimir Excel desde VB6

[larrea]

Hola,

Tengo un código que genera una hoja de Excel desde un MSFlexGrid, como los datos son bastantes necesitaría poder imprimir en horizontal la hoja de Excel desde el código.

Si alguien me puede dar una pista ya que estoy atascado.

Gracias

[Mildred M.]

hola,
la verdad no se el comando para poner la hoja horizontal, pero te puedo decir como encontrarlo.
primero abre una hoja en excel, crea una macro, escribe algo y luego coloca la hoja horizontal, luego graba la macro y por ultimo ve el codigo en en vb que se te generó. este mismo codigo debes ponerlo en tu aplicacion, lo que debes cambiar es que debes colocar alli el obj excel que tengas declarado en tu aplicacion.
chao

[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.

[galvezalvaro]

PUEDES ESCRIBIRME [email protected]

[lic_dahool]

Si estas manipulando Excel desde VB6, tené en cuenta que las constantes propias de Excel no estan definidas en VB, por ej.: xlLandscape tenés que definirla como una constante con valor 2.

Saludos.