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.
>
>
>
