Impresión de varias hojas de trabajo en una sola página

March 7

Los libros pueden contener todo tipo de datos. Si usted tiene un libro que incluye una serie de hojas de trabajo, cada una contiene sólo una pequeña cantidad de datos, usted puede preguntarse si hay una manera de imprimir las varias hojas de cálculo en una sola hoja de papel.

Hay un par de maneras que usted puede acercarse a una solución a este problema. La primera es simplemente imprimir varias páginas por hoja, usando las capacidades de su controlador de impresora. Por ejemplo, tengo un viejo HP LaserJet, y el controlador de impresora que me permite especificar el número de páginas que desea imprimir en cada hoja de papel. Si quisiera imprimir tres o cuatro hojas de trabajo de una sola página todos en un pedazo de papel, todo lo que necesito hacer es seguir estos pasos:

  1. Seleccione Imprimir en el menú Archivo. Excel muestra el cuadro de diálogo Imprimir.
  2. ¿En qué área de la caja de diálogo de impresión, seleccione la opción Todo el libro.
  3. Haga clic en el botón Propiedades. Excel muestra el cuadro de diálogo Propiedades de la impresora, con la ficha Diseño seleccionado.
  4. Ajuste el control de Páginas por hoja a 4.
  5. Haga clic en Aceptar para cerrar el cuadro de diálogo Propiedades.
  6. Haga clic en Aceptar para imprimir en realidad las hojas de trabajo.

La impresora puede ofrecer una capacidad similar a lo que se describe aquí, pero puede que tenga que hacer algo de exploración a través de cuadro de diálogo Propiedades de la impresora para encontrar esa capacidad. Por supuesto, la impresión de esta manera puede llevar a algunos muy pequeño texto en la impresión, debido a que el controlador de la impresora simplemente reduce cada página para ocupar un área proporcional de la página impresa. Si desea reducir algunos de los espacios en blanco, y con ello aumentar el tamaño del texto impreso, entonces usted necesita para buscar una solución diferente.

Muchas personas, para consolidar lo que se imprime, en realidad crean una "hoja de trabajo de impresión", que contiene nada más que referencias a las áreas que se imprimirán en las otras hojas del libro. Estas referencias se pueden hacer ya sea a través de fórmulas que se refieren a los datos sobre cada hoja de cálculo, o mediante el uso de la herramienta de cámara en Excel. (La herramienta de cámara se ha descrito en otras cuestiones de ExcelTips.)

Para una solución automatizada de amalgamar varias hojas de cálculo en una sola hoja de cálculo, puede utilizar una macro. La siguiente macro creará una nueva hoja de trabajo al final de su libro de trabajo y copiar el contenido de todas las otras hojas de trabajo en él.

Sub PrintOnePage ()
Dim wshTemp como hoja de trabajo, wsh como hoja de trabajo
Dim rngArr () como gama, c como gama
Dim i As Integer
J Dim As Integer

ReDim rngArr (1 a 1)
Para Cada wsh En ActiveWorkbook.Worksheets
i = i + 1
Si i> 1 Entonces 'cambiar el tamaño de matriz
ReDim Preserve rngArr (1 A i)
End If

On Error Resume Next
Set c = wsh.Cells.SpecialCells (xlCellTypeLastCell)
Si Err = 0 Entonces
On Error GoTo 0

"Prevenir filas vacías
Do While Application.CountA (c.EntireRow) = 0 _
Y c.EntireRow.Row> 1
Set c = c.Offset (-1, 0)
Bucle

Establecer rngArr (i) = wsh.Range (wsh.Range ("A1"), c)
End If
Siguiente wsh

'Añadir temp.Worksheet
Establecer wshTemp = Sheets.Add (después: = Worksheets (Worksheets.Count))

On Error Resume Next
Con wshTemp
Para i = 1 Para UBound (rngArr)
Si i = 1 Entonces
Set c = .Range ("A1")
Más
Establezca c = _
ActiveSheet.Cells.SpecialCells (xlCellTypeLastCell)
Set c = c.Offset (2, 0) .End (xlToLeft) 'Skip una fila
End If

'Gama Copiar-pegar (a prevenir rango vacío)
Si Application.CountA (rngArr (i))> 0 Then
rngArr (i) .Copy c
End If
Siguiente i
End With
On Error GoTo 0

Application.CutCopyMode = False 'prevenir marquies

Con Fit ActiveSheet.PageSetup 'a 1 página
Detalle del mapa = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

'Vista previa Nuevo Hoja
ActiveWindow.SelectedSheets.PrintPreview

'Imprimir deseado Número de Copias
i = InputBox ("Imprimir cuántas copias?", "ExcelTips", 1)
Si IsNumeric (i) A continuación,
Si i> 0 Then
ActiveSheet.PrintOut Copias: = i
End If
End If

'Eliminar temp.Worksheet?
Si MsgBox ("Eliminar la hoja de trabajo temporal?", _
vbYesNo, "ExcelTips") = vbYes Entonces
Application.DisplayAlerts = False
wshTemp.Delete
Application.DisplayAlerts = True
End If
End Sub

Después de la hoja de trabajo combinado se junta, la macro muestra la hoja de cálculo utilizando la vista preliminar. Al cerrar la vista preliminar, se pregunta cuántas copias de la hoja de trabajo que desea imprimir. Si introduce un número mayor que cero, entonces que muchos ejemplares se imprimen. Por último, la macro ofrece eliminar la hoja de cálculo combinado para usted justo antes de terminar.

ExcelTips es su fuente de capacitación rentable Microsoft Excel. Esta punta (3243) se aplica a Microsoft Excel 97, 2000, 2002, y 2003. Usted puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y versiones posteriores) aquí: Impresión de varias hojas de trabajo en una sola página.