Quisiera una macro para imprimir y que al imprimir me imprima todo el libro pero horizontalmente

En primer lugar te adjunto la instrucción que solicitaste al finalizar la consulta anterior (copiar formatos). La instrucción a agregar es:
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Para lo nuevo, o sea imprimir todo el libro en forma Horizontal, lo que hice fue configurar la página con la grabadora de macros funcionando.
Te paso todas las instrucciones que se generaron y te marco con (*) al inicio para que veas cuáles son las de orientación e impresión total. De paso te sirven por si necesitás modificar algún otro aspecto, como imprimir comentarios, colocar un encabezado, tamaño de papel, etc.
Sub Macro1()
' Macro1 Macro
' Macro grabada el 01/08/2003 por EMM.
'
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
.CenterHorizontally = False
.CenterVertically = False
(*) .Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
(*) ActiveWorkbook.PrintOut Copies:=1, Collate:=True
End Sub