Mau di-print per blok data per lembar ? di C3 beri formula : =COUNTIF(D5:F15,"?*")+COUNT(D5:F15) *** jika regional setting komputer setempat Indonesian, ganti karakter koma menjadi titik koma
atur format cell pada C3 menjadi Custom dengan isian teks : ;; Copy formula dan format dalam cell C3 ke H3,H17,dan C17 dalam vba, 1. lakukan loop terhadap cell C3,H3,C17,H17 2. dalam blok loop tersebut, beri script untuk memperluas area range yang sedang di-loop menjadi 13 baris dan 4 kolom kemudian di-printout Wassalam, Kid. 2014-05-19 9:59 GMT+07:00 'prazt' [email protected] [belajar-excel] < [email protected]>: > > > Sekarang kalau dibalik, maksudnya yang ada datanya itu diset print area, > kira-kira macronya gmn mr? > > > > *From:* [email protected] [mailto: > [email protected]] > *Sent:* 19 Mei 2014 9:04 > > *To:* BeExcel > *Subject:* Re: [belajar-excel] mencetak print area yang hanya ada datanya > > > > > > Kalau 1 lembar harus kecetak langsung lebih dari 1 blok data, sedangkan > susunan blok datanya statis demikian, mau ndak mau begitu. > > Beda halnya ketika yang ditampilkan oleh formula selalu yang ada isinya > saja, alias blok pertama data1 ada isinya lalu kanannya bisa jadi blok17 > akibat blok data2 sampai blok data 16 ndak ada isinya, maka bisa dibuat > lebih rapat dan yang putih hanya yang blok data sisa-sisanya saja > > > > 2014-05-19 9:00 GMT+07:00 'prazt' [email protected] [belajar-excel] < > [email protected]>: > > > > Berarti setiap print area tetep ikut ke cetak cuman putih semua ya Mr.Kid? > > > > *From:* [email protected] [mailto: > [email protected]] > *Sent:* 19 Mei 2014 8:50 > > > *To:* BeExcel > *Subject:* Re: [belajar-excel] mencetak print area yang hanya ada datanya > > > > > > 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. > > > > > > > ------------------------------ > > <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. > > >
