Hai Herry Afandi,
Memasang footer pada halaman terakhir saja, saat print out (pivot table
atau sheets), biasanya dilakukan dengan 2 kali proses print. Proses pertama
adalah print out selain halaman terakhir yang tanpa footer. Proses kedua
adalah print out halaman terakhir saja dengan memasang footer terlebih dulu
di page setup options header/footer nya. Total jumlah halaman yang di-print
bisa diketahui saat print preview.
Khusus untuk print out pivot table, bisa dilakukan dengan langkah berikut :
1. blok seluruh pivot table
> klik sebuah cells dalam pivot table -> select all dengan CTRL A
atau
> klik sebuah cells dalam pivot table -> tools menu PivotTable Tools ->
ribbon Options -> group Actions -> klik Select -> pilih Entire pivot table
2. set area print
> seluruh pivot table ter-select -> ribbon Page Layout -> group Page Setup
-> klik print area -> pilih set print area
3. lihat total halaman yang akan di-print melalui print preview
> office button (xl2007) atau menu File -> Print -> pilih Print Preview ->
lihat sudut kiri bawah layar -> hafalkan (misal : p of totpage)
atau
> tekan CTRL F2 -> -> lihat sudut kiri bawah layar -> hafalkan (misal : p
of totpage)
4. proses print pertama
> ribbon Print preview -> group Print -> klik Print -> muncul dialog window
Print -> print range :: pilih Pages -> isi dengan 1 sampai nilai totpage-1
(nomor page sebelum halaman terakhir) -> print
5. proses print kedua
> ribbon Print preview -> group Print -> klik Print -> muncul dialog window
Print -> print range :: pilih Pages -> isi dengan nomor page dari halaman
terkahir -> klik tombol Preview -> muncul print preview -> ribbon Print
Preview -> group Print -> page setup -> tab header/footer -> atur footer ->
OK -> print
Andai akan diotomasi dengan VBA :
> misal pivot tables bernama 'myPivot' di sheet bernama 'mySheet', dengan
footer yang diletakka ditengah berbunyi 'Kid'
with thisworkbook.sheets("mysheet").pagesetup
'set print area dengan area pivot table
.printarea=thisworkbook.sheets("mysheet").pivottables("mypivot").tablerange2.address
'tablerange1 untuk tanpa page filter
'proses print tanpa halaman terakhir, karena tanpa footer
.centerfooter=vbnullstring 'ganti center dengan left atau right
sesuai kebutuhan letak footer
.printout 1,application.executeexcel4macro("GET.DOCUMENT(50)")*-1*
'xl4macro :: case sensitive, id 50 = total halaman print
.centerfooter="Kid" 'ganti center dengan left atau right sesuai
kebutuhan letak footer, ganti teks isi footer sesuai kebutuhan
.printout application.executeexcel4macro("GET.DOCUMENT(50)")
end with
Menggunakan fungsi yang ada di Macro4 relatif lebih simpel dibanding
menghitung jumlah page breaks yang terbentuk dalam area print.
Baris-baris kode di atas bisa diletakkan di sebuah prosedur pada sebuah
general module. Penggunaan event before print milik workbook bisa
dimanfaatkan dalam pengembangannya agar proses print yang merujuk ke sheet
tertentu diproses dengan baris-baris kode di atas.
Jika diotomasi dengan VBA, pastikan workbook di save as bertipe xls, xlsm,
atau xlsb
Wassalam,
Kid
2015-06-04 19:43 GMT+10:00 herry afandi [email protected]
[belajar-excel] <[email protected]>:
>
>
> Bagaimana caranya membuat footer pada pivot table tapi hanya ditampilkan
> pada halaman terakhir? Trims
>
>
>
