Coba macro ini :
Sub NgeblokPrint()
Dim irow As Integer 'deklarasi variabel
irow = Cells(Rows.Count, "C").End(xlUp).Row 'cari baris terakhir di kolom c
Range("A4:Z" & irow).PrintPreview 'ngeblokPrint (PrintPreview atau PrintOut)
End Sub
Salam,
HK
On Monday, 21 April 2014, 20:43, "[email protected]" <[email protected]>
wrote:
Malu bertanya - kerja manual. Daripada kerja manual ber-ulang2, mendhing tanya
saja pada teman2 Xl-mania.
Saya akan berulangkali
ngeprint dari kolom Asampai kolom Zdengan tas baris mulai baris 5 sampai baris
terbawah yang
selalu berganti2 jumlah barisnya. Mohon carapenulisannya(macro) untuk dapat
ngeblok dari Asampai Z dengan baris 5
sampai baris terbawah (berganti2 dengan patokanbanyak baris di kolom C) untuk
saya buat sebagai daerah print (print area). Terima
kasih. File terlampir.
