Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menghentikan baris kosong semasa mencetak lembaran kerja?

Jika terdapat banyak baris kosong dalam lembaran kerja anda, biasanya, apabila anda mencetak helaian, baris kosong akan dicetak juga. Untuk mencetak lembaran kerja yang mengabaikan baris kosong boleh menyimpan kertas untuk kami, dalam kes ini, bagaimana anda boleh menghentikan baris kosong semasa mencetak lembaran kerja?

Hentikan baris kosong semasa mencetak lembaran kerja dengan kod VBA

Hentikan baris kosong apabila mencetak helaian kerja dengan memadam baris kosong sekaligus


anak panah gelembung kanan biru Hentikan baris kosong semasa mencetak lembaran kerja dengan kod VBA


Dengan kod VBA berikut, anda boleh mencetak lembaran kerja tanpa baris kosong, sila lakukan seperti ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Klik Memasukkan > Modul, dan tampal kod berikut dalam Modul Tetingkap.

Kod VBA: Hentikan baris kosong apabila mencetak:

Sub Print_NonBlank_Rows()
'Updateby Extendoffice 20160704
Dim xStr As String
    Dim xRg As Range
    Dim xHideRg As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
            If xHideRg Is Nothing Then
                Set xHideRg = xRg.Rows(I)
            Else
                Set xHideRg = Union(xHideRg, xRg.Rows(I))
            End If
        End If
    Next
    xHideRg.EntireRow.Hidden = True
    ActiveSheet.PrintOut Copies:=1
    xHideRg.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

3. Kemudian tekan F5 kunci untuk menjalankan kod ini, dan kotak segera akan muncul untuk mengingatkan anda memilih julat data yang anda mahu cetak, lihat tangkapan skrin:

cetak doc tanpa baris kosong 3

4. Kemudian klik OK, dan julat pilihan anda telah dicetak sekaligus tanpa baris kosong.


anak panah gelembung kanan biru Hentikan baris kosong apabila mencetak helaian kerja dengan memadam baris kosong sekaligus

Jika baris kosong tidak berguna untuk anda, anda boleh memadam semua baris kosong pada mulanya, dan kemudian mencetak lembaran kerja yang anda perlukan. Dengan Kutools untuk Excel'S Padam Blank Rows ciri, anda boleh dengan cepat memadam baris kosong dalam pilihan, lembaran kerja atau buku kerja yang anda perlukan.

Kutools untuk Excel : dengan lebih daripada 300 berguna tambahan Excel, bebas untuk mencuba tanpa had pada hari 60.

Selepas memasang Kutools untuk Excel, sila lakukan seperti berikut:

1. Pilih julat data yang anda mahu padamkan baris kosong, dan kemudian klik Kutools > Padam > Padam Blank Rows > Dalam Julat Terpilih, lihat tangkapan skrin:

cetak doc tanpa baris kosong 1

2. Dan kotak segera akan muncul untuk mengingatkan anda berapa banyak baris kosong dipadam dalam pemilihan.

cetak doc tanpa baris kosong 2

3. Selepas memadamkan baris kosong, anda boleh mencetak lembaran kerja.

Klik Muat turun Percuma Kutools untuk Excel Sekarang!



Cadangan Alat Produktiviti untuk Excel

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
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.

Be the first to comment.