Skrive flere regneark på en enkeltside

July 23  by Eliza

Arbeidsbøker kan inneholde alle slags data. Hvis du har en arbeidsbok som inneholder en rekke regneark, som hver inneholder bare en liten mengde data, kan du lurer på om det er en måte å skrive ut flere regneark på et enkelt ark.

Det er et par måter du kan nærme en løsning på dette problemet. Den første er rett og slett skrive ut flere sider per ark, bruke funksjonene i skriverdriveren. For eksempel har jeg en eldre HP LaserJet, og skriverdriveren tillater meg å spesifisere hvor mange sider som skal skrives ut per ark. Hvis jeg ønsket å skrive ut tre eller fire single-side regneark alle på ett stykke papir, er alt jeg trenger å gjøre følgende:

  1. Velg Skriv ut fra Fil-menyen. Excel viser dialogboksen Skriv ut.
  2. I utskrifts Hvilket område i dialogboksen, velger du Hele arbeidsboken alternativet.
  3. Klikk på knappen Egenskaper. Excel viser dialogboksen Egenskaper for skriveren, med fanen Layout valgt.
  4. Still Pages Per Sheet kontrollen til fire.
  5. Klikk OK for å lukke dialogboksen Egenskaper.
  6. Klikk OK for å faktisk skrive ut regnearkene.

Skriveren kan tilby en lignende evne til det som er skissert her, men du må kanskje gjøre noen Utforsker gjennom skriverens Properties dialogboksen for å finne den evnen. Selvfølgelig kan skrive ut på denne måten føre til noen svært liten tekst på utskriften, fordi skriverdriveren reduserer bare hver side for å okkupere en forholdsmessig område på utskriften. Hvis du ønsker å redusere noe av det hvite området, og dermed øke størrelsen på trykt tekst, så må du se etter en annen løsning.

Mange mennesker, for å konsolidere hva som skrives, faktisk lage en "utskrift regneark" som ikke inneholder annet enn referanser til de områdene som skal skrives ut på de andre regnearkene i arbeidsboken. Disse referansene kan enten gjøres gjennom formler henviser til dataene på hvert regneark, eller ved å bruke kameraet verktøy i Excel. (Kameraet verktøyet har blitt beskrevet i andre utgaver av ExcelTips).

For en automatisert løsning for en sammenslåing av flere regneark i en enkelt regneark, kan du bruke en makro. Følgende makro vil opprette et nytt regneark på slutten av arbeidsboken og kopiere innholdet fra alle andre regneark inn i den.

Sub PrintOnePage ()
Dim wshTemp Som regneark, wsh Som Regneark
Dim rngArr () Som Range, c Som Range
Dim i As Integer
Dim j As Integer

ReDim rngArr (1 til 1)
For Hver wsh I ActiveWorkbook.Worksheets
i = i + 1
Hvis jeg> 1 Then 'endre størrelsen matrise
ReDim Bevar rngArr (1 Til i)
End If

On Error Resume Next
Sett C = wsh.Cells.SpecialCells (xlCellTypeLastCell)
Hvis Err = 0 Then
On Error GoTo 0

"Unngå tomme rader
Gjør Mens Application.CountA (c.EntireRow) = 0 _
Og c.EntireRow.Row> 1
Set c = c.Offset (-1, 0)
Loop

Sett rngArr (i) = wsh.Range (wsh.Range ("A1"), c)
End If
Neste wsh

'Legg temp.Worksheet
Satt wshTemp = Sheets.Add (etter: = Regneark (Worksheets.Count))

On Error Resume Next
Med wshTemp
For i = 1 Til UBound (rngArr)
Hvis i = 1 Da
Set c = .Range ("A1")
Else
Sette c = _
ActiveSheet.Cells.SpecialCells (xlCellTypeLastCell)
Set c = c.Offset (2, 0) END (xlToLeft) 'Gå én rad
End If

"Copy-paste range (forhindre tom range)
Hvis Application.CountA (rngArr (i))> 0 Then
rngArr (i) .Copy c
End If
Neste jeg
Avslutt med
On Error GoTo 0

Application.CutCopyMode = False 'forhindre marquies

Med ActiveSheet.PageSetup 'Fit til en side
Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
Avslutt med

'Forhåndsvisning Nytt ark
ActiveWindow.SelectedSheets.PrintPreview

«Skriv ut ønsket antall eksemplarer
i = InputBox ("Skriv ut hvor mange kopier?", "ExcelTips", 1)
Hvis IsNumeric (i) Deretter
Hvis jeg> 0 Then
ActiveSheet.PrintOut Eksemplar: = i
End If
End If

'Slett temp.Worksheet?
Hvis MsgBox ("Slett midlertidige regneark?", _
vbYesNo, "ExcelTips") = vbYes Deretter
Application.DisplayAlerts = False
wshTemp.Delete
Application.DisplayAlerts = True
End If
End Sub

Etter den kombinerte regnearket er satt sammen, makro viser regneark ved hjelp av Print Preview. Når du lukker Print Preview, spør den hvor mange kopier av regnearket du vil skrive ut. Hvis du skriver inn et tall som er større enn null, så at mange kopier skrives ut. Endelig tilbyr makro å slette den kombinerte regnearket for deg like før målstreken.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (3243) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Skrive flere regneark på en enkelt side.