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

Burada, Excel'de VBA kullanarak birden fazla seçili satırı tek bir sayfaya nasıl yazdıracağınızı adım adım anlatacağı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. Yeni açılan Modül penceresine aşağıdaki VBA kodunu yapıştırmak için Ekle > Modül seçeneğine tıklayı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 kodunu ç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 belirir. 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: Aynı anda bitişik olmayan birden fazla satırı seçmek için Ctrl tuşunu basılı tutun.

Bu ardışık olmayan satırları kopyalayıp başka bir çalışma sayfasına ardışık bir aralık olarak yapıştırabilirsek, hepsini tek bir sayfaya kolayca yazdırabiliriz. Bu yöntemi uygulamak için Aralıkları Kopyala özelliğini sunan Kutools for Excel’den yararlanacağız.

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 seçeneğine tıklayın.

Not: Aynı anda birden fazla ardışık olmayan satırı seçmek için Ctrl tuşunu basılı tutun.

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

Not: Satır Yüksekliğini Dahil Et ve Sütun Genişliğini Dahil Et seçenekleri, aralık seçimindeki satır yüksekliği ve sütun genişliği öğelerini kopyalayıp hedef aralığa yapıştırır.

3. Yeni oluşturulan çalışma sayfasında A1 hücresini 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ı seçeneğine tıklayın.

Ardından, kaç satırın silindiğini gösteren bir iletişim kutusu açılır. Yalnızca kapatmanız yeterlidir.

5. Bu satırları yazdırmak için Dosya(veya)Office düğmesi) > Yazdır seçeneğine tıklayın.

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

1. Çoklu Seçim Yazdırma Sihirbazı'nı açmak için KUTOOLS PLUS > Yazdırma > Çoklu Seçim Yazdırma Sihirbazı seçeneğine tıklayın.

2. Açılan Çoklu Seçim Yazdırma Sihirbazı'nda, birlikte yazdırmak istediğiniz Birden Çok Satır Ekle öğelerini eklemek için Ekle düğmesine tıklayın ve ardından Bitir düğmesine tıklayın.

Notlar:

(1)Ekledüğmesine tıkladıktan sonra, aynı çalışma sayfasında Ctrltuşunu basılı tutarak birden fazla ardışık olmayan aralığı tek tek seçebilirsiniz;

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

(3) Bu araç, Tüm satır veya Tüm sütun gibi tüm satır ve sütunların yazdırılmasını desteklemez; örneğin $4:$4 veya Tüm sütun $B:$B.

3. Seçilen satırlar/aralıklar, yeni bir çalışma sayfasında bağlantılı resimler olarak yapıştırıldı. Devam etmek için Dosya(veya)Office düğmesi) > Yazdır seçeneğine tıklayın.