Auto ajustar el contenido a una sola hoja en Excel

Necesito que me ayudes, necesito una macro en excel para que esta automaticamente ajuste el contenido de un libro para que este siempre se imprima en una sola hoja y no salga en dos. ¿Me podras ayudar en esto?
Necesito que por ejemplo se reduzca el tamaño de la letra y se ajuste el tamaño de las columnas para que la informacion contenida en el libro siempre se imprima en una hoja.

1 Respuesta

Respuesta
1
Ok, mira para eso no necesitas macro...
En la hoja donde tienes la informacion que quiere ajustar,
entra en Vista Preeliminar, hay tiene varias herramientas para ajustar el texto
pued entra a Configuracion, o a salto de Pagina...
Ok ,muchas gracias por tu respuesta.
De manera manual si lo sé hacer, pero varios usuarios que tienen contacto con el libro de excel no saben hacerlo, no habra una forma de que una macro lo haga de manera automatica?
Gracias
Dame las caracteristicas... cuantas columnas y cuantas filas quieres que se impriman en la hoja...
Para desarrollar la macro..
Ok, muchas gracias por tu ayuda.
Las columnas serian hasta la letra F y las filas varian entre 24 hasta 38, pero con 38 filas estaria perfecto.
GrACIAS.
Copia y pega esta macro
Sub MyMacro()
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints()
        .RightMargin = Application.InchesToPoints()
        .TopMargin = Application.InchesToPoints(0.16)
        .BottomMargin = Application.InchesToPoints()
        .HeaderMargin = Application.InchesToPoints()
        .FooterMargin = Application.InchesToPoints()
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints()
        .RightMargin = Application.InchesToPoints()
        .TopMargin = Application.InchesToPoints(0.85)
        .BottomMargin = Application.InchesToPoints()
        .HeaderMargin = Application.InchesToPoints()
        .FooterMargin = Application.InchesToPoints()
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.25)
        .RightMargin = Application.InchesToPoints()
        .TopMargin = Application.InchesToPoints()
        .BottomMargin = Application.InchesToPoints()
        .HeaderMargin = Application.InchesToPoints()
        .FooterMargin = Application.InchesToPoints()
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.87)
        .RightMargin = Application.InchesToPoints()
        .TopMargin = Application.InchesToPoints()
        .BottomMargin = Application.InchesToPoints()
        .HeaderMargin = Application.InchesToPoints()
        .FooterMargin = Application.InchesToPoints()
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints()
        .RightMargin = Application.InchesToPoints(0.89)
        .TopMargin = Application.InchesToPoints()
        .BottomMargin = Application.InchesToPoints()
        .HeaderMargin = Application.InchesToPoints()
        .FooterMargin = Application.InchesToPoints()
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints()
        .RightMargin = Application.InchesToPoints()
        .TopMargin = Application.InchesToPoints()
        .BottomMargin = Application.InchesToPoints(0.56)
        .HeaderMargin = Application.InchesToPoints()
        .FooterMargin = Application.InchesToPoints()
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints()
        .RightMargin = Application.InchesToPoints()
        .TopMargin = Application.InchesToPoints()
        .BottomMargin = Application.InchesToPoints()
        .HeaderMargin = Application.InchesToPoints()
        .FooterMargin = Application.InchesToPoints(0.49)
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints()
        .RightMargin = Application.InchesToPoints()
        .TopMargin = Application.InchesToPoints()
        .BottomMargin = Application.InchesToPoints(0.68)
        .HeaderMargin = Application.InchesToPoints()
        .FooterMargin = Application.InchesToPoints()
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints()
        .RightMargin = Application.InchesToPoints()
        .TopMargin = Application.InchesToPoints(0.98)
        .BottomMargin = Application.InchesToPoints()
        .HeaderMargin = Application.InchesToPoints()
        .FooterMargin = Application.InchesToPoints()
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints()
        .RightMargin = Application.InchesToPoints()
        .TopMargin = Application.InchesToPoints()
        .BottomMargin = Application.InchesToPoints()
        .HeaderMargin = Application.InchesToPoints(0.26)
        .FooterMargin = Application.InchesToPoints()
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveSheet.PageSetup.PrintArea = "$A$1:$G$38"
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$38"
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$41"
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$38"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.87)
        .RightMargin = Application.InchesToPoints(0.89)
        .TopMargin = Application.InchesToPoints(0.98)
        .BottomMargin = Application.InchesToPoints(0.68)
        .HeaderMargin = Application.InchesToPoints(0.26)
        .FooterMargin = Application.InchesToPoints(0.49)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With
    ActiveWindow.SelectedSheets.PrintPreview
    Range("A1").Select
End Sub
ok muchas gracias.
Si necesitara modificar la macro para que en lugar de 38 filas sean solo 24, que datos necesito modificar?
Gracias por todo.
En esta paste donde dice 38 solo ponle 24
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$38"
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$38"
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$41"
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$38"
Ok, muchas gracias.
Acabo de realizar la prueba y teniendo las 38 filas y las 6 columnas con información me las imprime en 4 hojas y no en 1 como la necesitaria. En vista preliminar solo me muestra una hoja, pero al imprimir me imprime las 4. Necesitaria que esas 4 hojas se autoajustaran automaticamente a solo 1 hoja para que cuando impriman solo salga todo en 1 sola hoja.
Gracias
Finaliza la pregunta para que no me aparesca como pendiente...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro especificaciones de impresión

Quiero saber cómo crear macro que establezca las condiciones de impresión: calidad borrador, ambas caras, desde la última hoja, etc.
1 respuesta

Mejora en impresión por medio de macro

Tengo este macro Private Sub imprimir() Application.ScreenUpdating = False Sheets("IMPRESION").Select Range("A:G" & j).Select Selection.PrintOut Copies:=1 Sheets("JUGADOS").Select Application.ScreenUpdating = True End Sub pero quiero que cuando...
1 respuesta

Formulas en el encabezado o pie de pagina

Mi pregunta es si podemos insertar formulas en pie de pagina Por ejemplo: Pag: xxxx Pag. Sig. Xxxx+1 Ir Añadiendo una formula para decir cuando es la siguiente La duda que me ha surgido mientras te escribía, como se haría que supiese la ultima...
1 respuesta

Macro para Imprimir hoja en impresora que no es la predeterminada.

Me podrían ayudar a generar una macro para imprimir una un archivo en dos paginas y mandarla a otra impresora que no es la predeterminada, Tengo varias impresoras en red y la que uso predeterminada es una impresora matriz, el tema es que el reporte...
1 respuesta

Personalizar dimensiones de Tamaño de Papel en Excel

Dam, Estoy organizando una Macro y una de sus tareas no he logrado concluirla. Necesito generar la instrucción que me permita dar dimensiones específicas de Alto = 21,59 cms y de Ancho = 32,56 cms La que más se aproxima es la de tamaño oficio que es...
1 respuesta

Macro para imprimir selecciones diferentes en hojas diferentes

Necesito ayuda con una macro que debería ser sencilla y me esta causando problemas, necesito imprimir de una hoja de excel 2 selecciones diferentes en hojas diferentes y de otra hoja 1 selección, me explico: lo que hago normalmente es en la "hoja 1"...
1 respuesta

Macro para imprimir hoja

Necesito un código de macro para imprimir una planilla que tengo en una hoja de excel, el tema es que quiero que la planilla se ajuste a la totalidad de la hoja y este centrada,
2 respuestas

Ajustar margenes de una hoja de excel desde VB

Si recuerdas la última vez te pregunte acerca de cambiar la orientación de una hoja de cálculo desde VB y el formato de una celda. Ambas sugerencias tuyas me sirvieron de maravilla. Pero ahora mi pregunta es: ¿Desde VB es posible ajustar las márgenes...
1 respuesta

Macro para word

TEngo hecho una macro para cambiar los margenes de un documento, pero deberían ser diferentes los de la primera página que las del resto. ¿Me podrías indicar como puedo hacerlo?
1 respuesta

Imprimir filas seleccionadas con multiselectextended de listbox e imprimirlas

Hace un par de días que estoy creando una macros para el inventario de bodega, tengo bastante avanzado todo esto, pero me quede pegado en la impresión de mis datos. Les cuento, existe una matriz de rango amplio que se muestra completa en el listbox,...
1 respuesta