Atur saja dengan fitur conditional formatting pada setiap blok datanya. Jika blok data itu tidak ada nilai yang pantas di-print, maka set font color putih dan fill color putih.
Wassalam, Kid. 2014-05-19 8:26 GMT+07:00 'prazt' [email protected] [belajar-excel] < [email protected]>: > > > *** cell berformula tidak mungkin blank, cell yang hasil copas cell lain > berisi NULLSTRING tidaklah blank > > Disini cell berformula jadi saya tidak menyebut blank, tapi menyebut tidak > ada datanya (maaf kalau salah sebut) > > Trus apakah penulisannya VBAnya seperti berikut ? > > Sub cetak() > > 'by Mr.Kid > > 'print yang sudah di-set print area-nya > > Sheets("output").Range(Sheets("output").PageSetup.PrintArea).PrintOut > > 'jika pada area print area ada yang blank dan ingin cetak yang tidak blank > > Intersect(Sheets("output").UsedRange, > Range(Sheets("output").PageSetup.PrintArea)).PrintOut > > End Sub > > Saya lampirkan kembali filnya Mr.Kid > > *From:* [email protected] [mailto: > [email protected]] > *Sent:* 16 Mei 2014 20:48 > *To:* BeExcel > *Subject:* Re: [belajar-excel] mencetak print area yang hanya ada datanya > > > > > > Coba : > > 'print yang sudah di-set print area-nya > > sheets("nama sheet").range( sheets("nama sheet").pagesetup.printarea > ).printout > > 'jika pada area print area ada yang blank dan ingin cetak yang tidak blank > > intersect( sheets("nama sheet").usedrange , range( sheets("nama > sheet").pagesetup.printarea ) ).printout > > > > *** cell berformula tidak mungkin blank, cell yang hasil copas cell lain > berisi NULLSTRING tidaklah blank > > > > Jika area range yang akan di-print adalah area bebas, maka tentukan cell > pojok kiri atas yang harus di-print dan tentukan cell pojok kanan bawah > yang harus diprint kemudian lakukan print. > > Penentuan cell pojok kiri atas bisa dengan formula penentu nomor baris dan > nomor kolom excelnya > > Penentuan cell pojok kanan bawah bisa dengan formula penentu nomor baris > dan nomor kolom excelnya > > VBA membaca nilai-nilai baris dan kolom cell pojok kiri atas dan cell > pojok kanan bawah yang ditentukan dengan formula tersebut untuk proses > printout > > UsedRange adalah area range yang sudah tidak blank lagi dari pojok kiri > atas sampai pojok kanan bawah. > > Intersect adalah memotongkan beberapa range > > > Wassalam, > > Kid. > > > > 2014-05-16 12:41 GMT+07:00 'prazt' [email protected] [belajar-excel] < > [email protected]>: > > > > Tercetak semua Mr.Kid, malah yang diluar Print Area jg ikut kecetak. > > > > *From:* [email protected] [mailto: > [email protected]] > *Sent:* 16 Mei 2014 11:44 > *To:* [email protected] > *Subject:* Re: [belajar-excel] mencetak print area yang hanya ada datanya > > > > > > Wa'alaikumussalam wr wb > > Coba > Sheets("nama sheet").usedrange.printout > > Wassalamu'alaikum wr wb > Kid. > > On May 16, 2014 11:04 AM, "'prazt' [email protected] [belajar-excel]" < > [email protected]> wrote: > > > > Assalamau’alaikum para master dan be-exceler semua mohon bantuannya ya > dengan kasus: > > Saya ingin mencetak area yang sudah saya kasih Print Area, sedangkan yang > ingin saya cetak hanyalah print area yang hanya ada datanya saja > > Sedangkan datanya bisa berubah-ubah sesuai nomor yang dipilih...seperti > file lampiran > > > ------------------------------ > > <http://www.avast.com/> > > Email ini bebas virus dan malware karena avast! > Antivirus<http://www.avast.com/>proteksi aktif. > > > > > ------------------------------ > > <http://www.avast.com/> > > Email ini bebas virus dan malware karena avast! > Antivirus<http://www.avast.com/>proteksi aktif. > > > > > > > > ------------------------------ > <http://www.avast.com/> > > Email ini bebas virus dan malware karena avast! > Antivirus<http://www.avast.com/>proteksi aktif. > > >
