Bagaimana cara mengatur area cetak ke baris terakhir di Excel?
Di Excel, secara default, ini akan mengatur seluruh lembar kerja hingga baris terakhir dengan data sebagai area cetak. Namun dalam hal ini, saya ingin mencetak dari kolom A ke kolom C hingga baris terakhir dengan data seperti gambar di bawah ini, apakah ada cara untuk menanganinya?
Atur area cetak ke baris terakhir dengan data dengan Pilihan Cetak
Atur area cetak ke baris terakhir dengan data oleh VBA
Atur area cetak ke baris terakhir dengan data dengan Pilihan Cetak
Untuk mencetak pilihan ke baris terakhir dengan data, Anda dapat mengubah area cetak ke pilihan yang ditentukan sebelum mencetak.
1. Memegang Ctrl kunci lalu pilih kolom yang ingin Anda cetak. Lihat tangkapan layar:
2. klik File > Mencetak, lalu pilih Pilihan Cetak dari Pengaturan bagian. Lihat tangkapan layar:
Atur area cetak ke baris terakhir dengan data
Di sini saya memperkenalkan kode makro untuk melakukan operasi ini juga.
1. Aktifkan lembar yang Anda gunakan, tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela, dan klik Menyisipkan > Modul. Lihat tangkapan layar.
2. Tempel kode di bawah ini ke Modul skrip, dan tekan F5 kunci untuk menjalankan.
VBA: Atur Area ke baris terakhir
'UpdatebyExtendoffice20170811
Dim xRg As Range
Dim xRgLRow As Long
Dim xRgAddress As String
On Error Resume Next
xRgAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range：", "KuTools For Excel", xRgAddress, , , , , 8)
xRg.Select
xRgLRow = xRg.SpecialCells(xlCellTypeLastCell).Row
xRgAddress = Left(xRg.Address(1, 1), Len(xRg.Address(1, 1)) - 2)
xRgAddress = xRgAddress & xRgLRow
ActiveSheet.PageSetup.PrintArea = xRgAddress
End Sub
3. Sebuah dialog muncul untuk mengingatkan Anda untuk memilih rentang kolom yang ingin Anda gunakan. Lihat tangkapan layar:
4. klik OK, area cetak telah diatur.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
