Batch mencetak beberapa pilihan (semua area cetak) pada satu halaman di Excel

Di sini saya akan berbicara tentang mencetak beberapa baris yang dipilih pada satu halaman dengan VBA di Excel. Harap lakukan sebagai berikut:

1. tekan lain + F11 bersamaan untuk membuka jendela Microsoft Visual Basic for Applications.

2. klik Menyisipkan > Modul, lalu tempel kode VBA di bawah ini ke jendela Modul pembuka baru.

VBA: Cetak beberapa baris yang dipilih pada satu halaman di Excel

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. tekan F5 atau klik Run tombol untuk menjalankan VBA ini.

4. Sekarang kotak dialog Kutools for Excel muncul. Pilih beberapa baris yang akan Anda cetak, dan klik OK tombol untuk mencetak baris ini.

Note: Memegang Ctrl kunci, Anda dapat memilih beberapa baris yang tidak berdampingan secara bersamaan.

Jika kita dapat menyalin baris yang tidak berurutan ini dan menempelkannya sebagai rentang berurutan di lembar kerja lain, kita dapat dengan mudah mencetaknya di satu halaman. Metode ini akan memperkenalkan Kutools for Excel's Salin Rentang utilitas untuk menghadapinya.

1. Buat lembar kerja baru, selanjutnya pilih baris yang akan Anda cetak dari tabel Anda, dan klik Kutools > Salin Rentang.

Note: Memegang Ctrl kunci, Anda dapat memilih beberapa baris yang tidak berurutan pada saat yang bersamaan.

2. Pada kotak dialog Salin Beberapa Rentang pembuka, centang Semua pilihan, dan klik Ok .

Note: Para Termasuk tinggi baris pilihan dan Termasuk lebar kolom opsi akan menyalin tinggi baris dan lebar kolom rentang yang dipilih dan ditempelkan ke dalam rentang tujuan.

3. Pilih Sel A1 pada lembar kerja yang baru dibuat, dan klik OK Tombol.

4. Tetap di lembar kerja tujuan, dan klik Kutools > Delete > Hapus Baris Kosong > Di Lembar Aktif.

Dan kemudian kotak dialog keluar dan menunjukkan kepada Anda berapa banyak baris yang telah dihapus. Tutup saja.

5. Klik File (Atau Tombol kantor)> Mencetak untuk mencetak baris ini.

Sebenarnya Kutools untuk desain Excel Cetak Banyak Pilihan Wizard untuk mencetak beberapa rentang bersama di Excel.

1. klik Enterprise > Pencetakan > Cetak Banyak Pilihan Wizard untuk membuka Print Multiple Selection Wizard.

2. Dalam pembukaan Print Multiple Selection Wizard, klik Add tombol  untuk menambahkan baris yang akan Anda cetak bersama, dan klik Finish .

Catatan:

(1) Setelah mengklik Add tombol , Anda dapat memilih beberapa rentang tidak berurutan dalam satu lembar kerja dengan menahan Ctrl kunci dan kemudian memilihnya satu per satu;

(2) Untuk menghapus rentang / baris dari Rentang untuk dicetak daftar, cukup pilih rentang / baris ini dan klik Delete tombol.

(3) Utilitas ini tidak mendukung pencetakan seluruh baris dan kolom, seperti seluruh baris $ 4: $ 4, atau seluruh kolom $ B: $ B.

3. Baris / rentang yang dipilih telah disisipkan sebagai gambar terkait di lembar kerja baru. Silakan klik File (Atau Tombol kantor)> Mencetak untuk mencetaknya.