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. --- Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif. http://www.avast.com
