Foro Excel

A Toda la Comunidad:

Existe una pregunta similar efectuada hace tiempo en este foro, la he buscado y no la encuentro, si alguien generosamente me pudiera ayudar se los agradecere.

Inclusive recuerdo que en la misma se hacia referencia a un programa.

Salu2

Y que la pasen bien

el post que buscas debe ser anterior a la fecha de tu publicacion(obviamente )
bueno ,pues tampoco lo encontre

pero existe uno mas o menos reciente que tal vez te sirva

http://www.exceluciones.com/portal/viewtopic.php?t=6185&highlight=

y tal vez te pueda ser util esta pequeña macro,como complemento a lo anterior,si es que deseas imprimir todo en una sola pagina( a expensas de que la informacion quede reducida significativamente de tamaño).pero puedes adaptarla.

Código: Seleccionar todo

Sub ImprimirTodoenUNO()
With Worksheets(1).PageSetup
    .Zoom = False 'Si la propiedad Zoom es True, se omitirá la propiedad FitToPagesTall y FitToPagesWide
'Devuelve o establece un porcentaje (entre 10 y 400%) según el cual Microsoft Excel ajustará
'la escala de la hoja de cálculo para la impresión.
    .FitToPagesTall = 1
'Devuelve o establece el número de páginas en que se ajustará el tamaño vertical
'de la hoja de cálculo para la impresión
    .FitToPagesWide = 1
'Devuelve o establece el número de páginas en que se ajustará la escala a lo
'ancho de la hoja de cálculo para la impresión
End With
Worksheets(1).PrintOut 'imprime la Hoja ajustada
End Sub

ST:

Disculpa la tardanza por contestarte, si me ha servido el macro.

Nuevamente 1000 disculpas

Gracias