چاپ چندین کاربرگ در یک صفحه در اکسل

Question

کتاب های کار می توانند شامل انواع داده ها باشند. اگر یک کتاب کار دارید که شامل تعدادی کاربرگ است که هر کدام فقط حاوی مقدار کمی داده است، ممکن است تعجب کنید که آیا راهی برای چاپ چندین کاربرگ روی یک ورق کاغذ وجود دارد.

چند راه وجود دارد که می توانید به راه حلی برای این مشکل نزدیک شوید. اولین مورد این است که با استفاده از قابلیت های درایور چاپگر خود، به سادگی چندین صفحه را در هر برگ چاپ کنید. به عنوان مثال، من یک HP LaserJet قدیمی‌تر دارم و درایور چاپگر به من اجازه می‌دهد تا تعداد صفحاتی را برای چاپ در هر ورق کاغذ مشخص کنم. اگر بخواهم سه یا چهار برگه تک صفحه ای را روی یک تکه کاغذ چاپ کنم، تنها کاری که باید انجام دهم این است که این مراحل را دنبال کنم:

1. Ctrl+P را فشار دهید. اکسل کادر محاوره ای چاپ (Excel 2007) یا گزینه های چاپ (Excel 2010 و Excel 2013) را نمایش می دهد.
2. اگر از Excel 2007 استفاده می کنید، گزینه Entire Workbook را در قسمت Print What از کادر محاوره ای انتخاب کنید. اگر از نسخه بعدی اکسل استفاده می کنید، بلافاصله از لیست کشویی زیر عنوان تنظیمات استفاده کنید تا Print Entire Workbook را انتخاب کنید.
3. روی دکمه Properties (Excel 2007) یا پیوند Printer Properties (نسخه های بعدی اکسل) کلیک کنید. اکسل کادر محاوره ای Properties را برای چاپگر با برگه Layout انتخاب شده نمایش می دهد.
4. کنترل Pages Per Sheet را روی 4 قرار دهید.
5. برای بستن کادر محاوره ای Properties روی OK کلیک کنید.
6. روی OK کلیک کنید تا در واقع کاربرگ ها را چاپ کنید.

چاپگر شما ممکن است قابلیتی مشابه آنچه در اینجا ذکر شده است ارائه دهد، اما ممکن است برای یافتن این قابلیت لازم باشد در کادر محاوره‌ای Properties چاپگر کاوش کنید. البته، چاپ به این روش می‌تواند منجر به ایجاد مقداری متن بسیار کوچک در چاپ شود، زیرا درایور چاپگر به سادگی هر صفحه را کاهش می‌دهد تا یک منطقه متناسب از صفحه چاپ شده را اشغال کند. اگر می خواهید مقداری از فضای سفید را کاهش دهید و در نتیجه اندازه متن چاپ شده را افزایش دهید، باید به دنبال راه حل دیگری باشید.

بسیاری از افراد، برای تجمیع آنچه چاپ شده است، در واقع یک "کاربرگ چاپ" ایجاد می کنند که حاوی چیزی جز ارجاعاتی به مناطقی است که باید روی برگه های دیگر در کتاب کار چاپ شوند. این ارجاعات را می توان از طریق فرمول هایی که به داده های هر کاربرگ ارجاع می دهند یا با استفاده از ابزار دوربین در اکسل انجام داد. (ابزار دوربین در شماره های دیگر ExcelTips توضیح داده شده است.)

برای راه حل خودکار ادغام چندین کاربرگ در یک کاربرگ واحد، می توانید از یک ماکرو استفاده کنید. ماکرو زیر یک کاربرگ جدید در انتهای کتاب کار شما ایجاد می کند و محتویات همه کاربرگ های دیگر را در آن کپی می کند.

Sub PrintOnePage()
 Dim wshTemp As Worksheet, wsh As Worksheet
 Dim rngArr() As Range, c As Range
 Dim i As Integer
 Dim j As Integer

 ReDim rngArr(1 To 1)
 For Each wsh In ActiveWorkbook.Worksheets
 i = i + 1
 If i > 1 Then  resize array
  ReDim Preserve rngArr(1 To i)
 End If

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

  Prevent empty rows
  Do While Application.CountA(c.EntireRow) = 0 _
  And c.EntireRow.Row > 1
  Set c = c.Offset(-1, 0)
  Loop

  Set rngArr(i) = wsh.Range(wsh.Range("A1"), c)
 End If
 Next wsh

 Add temp.Worksheet
 Set wshTemp = Sheets.Add(after:=Worksheets(Worksheets.Count))

 On Error Resume Next
 With wshTemp
 For i = 1 To UBound(rngArr)
  If i = 1 Then
  Set c = .Range("A1")
  Else
  Set c = _
   ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell)
  Set c = c.Offset(2, 0).End(xlToLeft) Skip one row
  End If

  Copy-paste range (prevent empty range)
  If Application.CountA(rngArr(i)) > 0 Then
  rngArr(i).Copy c
  End If
 Next i
 End With
 On Error GoTo 0

 Application.CutCopyMode = False  prevent marquies

 With ActiveSheet.PageSetup Fit to 1 page
 .Zoom = False
 .FitToPagesWide = 1
 .FitToPagesTall = 1
 End With

 Preview New Sheet
 ActiveWindow.SelectedSheets.PrintPreview

 Print Desired Number of Copies
 i = InputBox("Print how many copies?", "ExcelTips", 1)
 If IsNumeric(i) Then
 If i > 0 Then
  ActiveSheet.PrintOut Copies:=i
 End If
 End If

 Delete temp.Worksheet?
 If MsgBox("Delete the temporary worksheet?", _
 vbYesNo, "ExcelTips") = vbYes Then
 Application.DisplayAlerts = False
 wshTemp.Delete
 Application.DisplayAlerts = True
 End If
End Sub

پس از اینکه کاربرگ ترکیبی با هم قرار گرفت، ماکرو کاربرگ را با استفاده از پیش نمایش چاپ نمایش می دهد. وقتی پیش‌نمایش چاپ را می‌بندید، از شما می‌پرسد که چند نسخه از کاربرگ را می‌خواهید چاپ کنید. اگر عددی بزرگتر از صفر وارد کنید، آن تعداد کپی چاپ می شود. در نهایت، ماکرو پیشنهاد می‌کند تا کاربرگ ترکیبی را درست قبل از اتمام برای شما حذف کند.