Excel'de birden fazla seçili satırı tek bir sayfada nasıl yazdırabiliriz?

Burada Excel'de VBA kullanarak birden fazla seçili satırı tek bir sayfaya yazdırma konusunda konuşacağım. Lütfen aşağıdaki adımları izleyin:

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

2. Ekle > Modül'e tıklayın ve ardından aşağıdaki VBA kodunu yeni açılan Modül penceresine yapıştırın.

VBA: Excel'de birden fazla seçili satırı tek bir sayfaya yazdırma

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. Bu VBA'yı çalıştırmak için F5 tuşuna basın veya Çalıştır düğmesine tıklayın.

4. Şimdi bir Kutools for Excel iletişim kutusu açılır. Yazdırmak istediğiniz birden fazla satırı seçin ve bu satırları yazdırmak için Tamam düğmesine tıklayın.

Not: Ctrl tuşunu basılı tutarak aynı anda birden fazla bitişik olmayan satır seçebilirsiniz.

Bu ardışık olmayan satırları kopyalayıp başka bir çalışma sayfasında ardışık bir aralık olarak yapıştırabilirsek, bunları kolayca tek bir sayfaya yazdırabiliriz. Bu yöntem, Kutools for Excel'in Aralıkları Kopyala yardımcı programını kullanarak bu işlemi gerçekleştirmektedir.

1. Yeni bir çalışma sayfası oluşturun, ardından tablonuzdan yazdırmak istediğiniz satırları seçin ve Kutools > Aralık > Aralıkları Kopyala'ya tıklayın.

Not: Ctrl tuşunu basılı tutarak aynı anda birden fazla bitişik olmayan satır seçebilirsiniz.

2. Açılan Birden Fazla Aralığı Kopyala iletişim kutusunda Tümünü işaretleyin ve Tamam düğmesine tıklayın.

Not: Satır yüksekliğini dahil et seçeneği ve Sütun genişliğini dahil et seçenekleri, seçilen aralıkların satır yüksekliklerini ve sütun genişliklerini hedef aralığa kopyalar ve yapıştırır.

3. Yeni oluşturulan çalışma sayfasındaki Hücre A1'i seçin ve Tamam Düğmesine tıklayın.

4. Hedef çalışma sayfasında kalın ve Kutools > Sil > Boş Satırları Sil > Aktif Çalışma Sayfası'na tıklayın.

Ardından size kaç satırın silindiğini gösteren bir iletişim kutusu çıkacak. Sadece kapatın.

5. Dosya (veya Office düğmesi) > Yazdır'a tıklayarak bu satırları yazdırın.

Aslında Kutools for Excel, Excel'de birden fazla aralığı birlikte yazdırmak için Çoklu Seçim Sihirbazı 'nı tasarlamıştır.

1. Kutools Plus > Yazdırma > Çoklu Seçim Sihirbazı 'na tıklayarak Çoklu Seçim Sihirbazı'nı açın.

2. Açılan Çoklu Seçim Sihirbazı'nda Ekle düğmesine tıklayın yazdırmak istediğiniz satırları eklemek için ve ardından Tamamla düğmesine tıklayın.

Notlar:

(1) Ekle düğmesine tıkladıktan sonra , Ctrl tuşunu basılı tutarak bir çalışma sayfasındaki birden fazla ardışık olmayan aralığı seçebilir ve ardından bunları teker teker seçebilirsiniz; Ctrl tuşuna basılı tutarak bir çalışma sayfasındaki birden fazla ardışık olmayan aralığı seçebilir ve ardından bunları teker teker seçebilirsiniz;

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

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

3. Seçilen satırlar/aralıklar yeni bir çalışma sayfasına bağlantılı resimler olarak yapıştırılmıştır. Devam edin ve Dosya (veya Office düğmesi) > Yazdır 'a tıklayarak yazdırın.