Excel'de tek bir sayfada birden çok seçimi (tüm baskı alanları) toplu olarak yazdırın

Burada Excel'de VBA ile bir sayfada birden fazla seçilen satırı yazdırmaktan bahsedeceğim. Lütfen aşağıdaki işlemleri yapın:

1. Basın Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için aynı anda tuşlarına basın.

2. tık Ekle > modülve ardından aşağıdaki VBA kodunu yeni açılan Modül penceresine yapıştırın.

VBA: Excel'de bir sayfada birden çok seçili satırı yazdırın

Sub Extract_to_Print()
Dim Rg As Range, Rg1 As Range, Rg2 As Range
Dim xAddress As String
Dim xSht As Worksheet
Dim I As Long
Dim xScreenUpdate As Boolean
Dim xAlert As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select ranges you will print:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
xScreenUpdate = Application.ScreenUpdating
xAlert = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xSht = ThisWorkbook.Worksheets.Add
I = 1
For Each Rg1 In Rg.Areas
Rg1.Copy xSht.Range("A" & I)
I = I + Rg1.Rows.Count
Next
xSht.PrintOut
xSht.Delete
Application.ScreenUpdating = xScreenUpdate
Application.DisplayAlerts = xAlert
End Sub

3. Basın F5 anahtarı veya tıklayın koşmak Bu VBA'yı çalıştırmak için düğmesine basın.

4. Şimdi Kutools for Excel iletişim kutusu açılır. Lütfen yazdıracağınız birden çok satırı seçin ve OK Bu satırları yazdırmak için düğmesine basın.

not: Holding Ctrl tuşu, aynı anda birden çok bitişik olmayan satırı seçebilirsiniz.

Bu ardışık satırları kopyalayıp başka bir çalışma sayfasına ardışık aralık olarak yapıştırabilirsek, bunları bir sayfaya kolayca yazdırabiliriz. Bu yöntem, Kutools for Excel'in Aralıkları Kopyala bununla başa çıkmak için yardımcı program.

1. Yeni bir çalışma sayfası oluşturun, daha sonra tablonuzdan yazdıracağınız satırları seçin ve tıklayın Kutools > Aralıkları Kopyala.

not: Holding Ctrl tuşu, aynı anda birden fazla ardışık satır seçebilirsiniz.

2. Birden Çok Aralık Kopyala iletişim kutusunu açarken, Tümü seçeneğini tıklayın ve Ok düğmesine basın.

not: Satır yüksekliği dahil seçenek ve Sütun genişliği dahil seçenekler, seçilen aralıkların satır yüksekliklerini ve sütun genişliklerini kopyalayacak ve hedef aralığa yapıştırılacaktır.

3. Yeni oluşturulan çalışma sayfasında Hücre A1'i seçin ve OK Düğmesine basın.

4. Hedef çalışma sayfasında kalın ve Kutools > Sil > Boş Satırları Sil > Etkin Sayfada.

Ve sonra bir iletişim kutusu çıkar ve size kaç satırın silindiğini gösterir. Kapat şunu.

5. Tıklayın fileto (Ya da Ofis düğmesi)> Print bu satırları yazdırmak için.

Aslında Kutools for Excel tasarımları Çoklu Seçim Sihirbazı Excel'de birden çok aralığı birlikte yazdırmak için.

1. tık kuruluş > Baskı > Çoklu Seçim Sihirbazı Çoklu Seçim Yazdırma Sihirbazını açmak için.

2. Çoklu Seçim Yazdırma Sihirbazı açılırken, Ekle düğmesine tıklayın  birlikte yazdıracağınız satırları eklemek için ve Bitiş düğmesine basın.

Notlar:

(1) Tıkladıktan sonra Ekle düğmesine tıklayın , bir çalışma sayfasında birden çok ardışık aralık seçebilirsiniz. Ctrl tuşuna basın ve ardından bunları birer birer seçin;

(2) Bir aralığı / satırı kaldırmak için Yazdırılacak aralıklar listesinden bu aralığı / satırı seçin ve Sil düğmesine tıklayın.

(3) Bu yardımcı program, tüm satırlar gibi tüm satırların ve sütunların yazdırılmasını desteklemez. $ 4: $ 4veya tüm sütunu B $: B $.

3. Seçilen satırlar / aralıklar, yeni bir çalışma sayfasına bağlantılı resimler olarak yapıştırılmıştır. Tıklamaya devam edin fileto (Ya da Ofis düğmesi)> Print yazdırmak için.