Hoja excel horizontal - VB-MUNDO

Manolillo · #1 (**permalink**) 21-11-2005, 10:44:58

Buenos dias, me gustaria saber si al llamar a la hoja excel desde VB, es posible que esta se muestre en horizontal en lugar de en vertical como se crea por defecto...
Gracias

Alella · #2 (**permalink**) 21-11-2005, 10:54:50

Hola, que tal.

Prueba con esto:

Código:

    Workbooks.Add
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With

Espero que te sirva.

Manolillo · #3 (**permalink**) 21-11-2005, 11:09:00

Muchas gracias Alella, el código funciona perfectamente