İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Bir neçə seçimi Excel-də bir səhifədə necə çap etmək olar?

Çox məlumatı olan böyük bir iş varsa və indi çox kağız saxlaya bilərsiniz ki, bir səhifədə qeyri-davamlı seçilmiş aralıkları çap etmək istəyirik. Excel təmin edir Print Arear'ı seçin birdən çox seçimi bir seferde yazdırmamızın xüsusiyyətidir, lakin hər bir seçilmiş array ayrı-ayrılıqda bir səhifəyə çap olunacaq. Bu məqalədə bir səhifədə birdən çox davamlı seçimi yazdırmaq haqqında danışılacaq.

VBA kodu ilə bir səhifədə bir iş səhifəsindən birdən çox seçim yazdırın

Excel üçün Kutools ilə bir səhifədən bir və ya bir neçə iş səhifəsindən birdən çox seçim yazdırın


VBA kodu ilə bir səhifədə bir iş səhifəsindən birdən çox seçim yazdırın


Bir iş səhifəsinin birdən çox seçilmiş bitişik seçimi bir səhifəyə yazdırmaq üçün aşağıdakı VBA kodu sizə kömək edə bilər:

1. Basın Ctrl çap etmək istədiyiniz aralıkları seçmək üçün düyməni basın.

2. Basıb saxlayın ALT + F11 düymələri və açar Proqramlar üçün Microsoft Visual Basic pəncərə.

3. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: birdən çox seçimi bir səhifəyə yazdırın

Sub PrintOutRange()
'Update 20150528
Dim xRng1 As Range
Dim xRng2 As Range
Dim xNewWs As Worksheet
Dim xWs As Worksheet
Dim xIndex As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWs = ActiveSheet
Set xNewWs = Worksheets.Add
xWs.Select
xIndex = 1
For Each xRng2 In Selection.Areas
    xRng2.Copy
    Set xRng1 = xNewWs.Cells(xIndex, 1)
    xRng1.PasteSpecial xlPasteValues
    xRng1.PasteSpecial xlPasteFormats
    xIndex = xIndex + xRng2.Rows.Count
Next
xNewWs.Columns.AutoFit
xNewWs.PrintOut
xNewWs.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. Sonra basın F5 bu kodu çalıştırmak üçün bir tuşa basın ve seçdiyiniz aralıklar bir seferde basılacak ve tek bir sayfaya yazdırılacaktır.


Excel üçün Kutools ilə bir səhifədən bir və ya bir neçə iş səhifəsindən birdən çox seçim yazdırın

Yuxarıdakı kod yalnız bir iş səhifəsində bir neçə iş səhifəsindən birdən çox seçimi yazdırmaq istəyirsinizsə, seçilmiş aralıkları bir iş səhifəsindən çap etməyə kömək edə bilər, yuxarıdakı kod işləməyəcəkdir. Xahiş edirik narahat olmayın, burada, sizə lazımlı bir vasitə təqdim edə bilərəm - Excel üçün KutoolsOnun ilə Bir neçə Seçim Sihirbazı yazdırın kommunal, seçimləri bir iş səhifəsindən və ya bir neçə iş səhifəsindən bir dəfə bir səhifəyə yaza bilərsiniz.

Excel üçün Kutools : 300-dən daha çox 60-dən istifadə etməklə, Excel-in əlavələri, XNUMX gündə heç bir məhdudiyyət yox idi.

Quraşdırıldıqdan sonra Excel üçün Kutools, aşağıdakı adımlarla edin:

1. Basın Müəssisə > Çap > Bir neçə Seçim Sihirbazı yazdırın, bax ekran görüntüsü:

doc birdən çox seçim 1 çap

2. İçində Bir neçə Seçim Sihirbazı yazdırınBasındoc əlavə et düyməsini basın düyməsini birdən-birə yazdırmaq üçün Qoşmalarda çap etmək istədiyiniz aralığı seçin və əlavə etmək üçün düyməsini basın (bir iş səhifəsindən və ya bir neçə iş səhifəsindən aralıkları seçə bilərsiniz), basın doc düyməsini çıxarın düyməsinə ehtiyacınız olmayan aralıkları aradan qaldıra bilər, ekran görüntüsünə baxın:

doc birdən çox seçim 2 çap

3. Seçimləri siyahı qutusuna əlavə etdikdən sonra, klikləyin Next >> Sihirbazın 2 addımına getmək üçün düyməsini basın, lazım olduğunda çap parametrlərini daxil edin və seçdiyiniz aralıklarla boşluqla boşluq əlavə edin Aralar arasında boş bir sıra əlavə edin seçim, ekran bax:

doc birdən çox seçim 3 çap

4. Sonra klikləyin Next >> Sehrbazın 3 addımında buton, müvəqqəti iş səhifəsi üçün hərəkətləri göstərə bilər, iş səhifəsini aktivləşdirə bilərsiniz, lakin çap etməyəcəksiniz, iş səhifəsini çap etdirə və saxlaya və ya iş səhifənizi çap etdirə və silin. Ekran görüntüsünə baxın:

doc birdən çox seçim 4 çap

5. Basın finiş düyməsinə basıldığında, seçilmiş aralıkların hamısı əlaqəli şəkil obyektləri kimi yeni bir işə yapışdırıldı. Və onları iş yerində sürükleyip yeniden düzəldə bilərsiniz. Ekran görüntüsünə baxın:

doc birdən çox seçim 5 çap

6. Bu yeni iş kitabını yazdığınızda, aralıklar lazım olduğunuzda bir səhifədə çap olunacaq.

Çox Seçmə Sihirbazı proqramını yazdırın.

Excel İndi Download və pulsuz sınaq Kutools!


Demo: Excel üçün Kutools ilə bir səhifədən bir və ya bir neçə iş səhifəsindən birdən çox seçim yazdırın

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ok · 1 years ago
    how to print selection area with multi print ? i means selection area i wan to print 10 times
  • To post as a guest, your comment is unpublished.
    Mooring10 · 3 years ago
    I tried your VBA code with Excel 2016 and I get an error: Compile Error: Sub of Function not defined.

    This line is highlighted: Set [b]xRng1[/b] = xNewWs.Cells(xIndex, 1)