Hai Mike,
Tampaknya sheet sheet Panggil untuk memilih sheet yang akan dicetak.
Tampilan dan susunan adalah sama dengan sheet setiap nama.
Bagaimana jika manual saja.
Misal akan mencetak seluruh sheet, maka
- klik sheet nama pertama,
- tekan shift terus menerus,
- klik sheet nama terakhir
- lepas tombol SHIFT
- atur page setup bila perlu (akan diterapkan langsung ke seluruh sheet
ter-select)
- lakukan print jika akan print seluruhnya (atau print preview dulu untuk
lihat wujud hasil select multi sheetnya).
Jika akan sheet-sheet tertentu,
- klik sheet pertama yang akan di-print
- tekan CTRL terus menerus
- klik sheet-sheet lain yang juga akan di-print dengan tetap menekan CTRL
- setelah seluruh yang dibutuhkan ter-select, lepas tombol CTRL
- atur page setup bila perlu
- lakukan print jika akan print seluruhnya (atau print preview dulu untuk
lihat wujud hasil select multi sheetnya).
Jika akan diotomasi dengan VBA, dibutuhkan daftar nama sheet disuatu area
range tertentu, misal di sheet bernama Daftar mulai A1 dan bersambung terus
sampai cell kolom A yang terisi
Langkah buat prosedur otomasi :
1. ke VBE (tekan ALT F11)
2. menu Insert -> Module
3. copas script ke lembar module
Public Sub PrintSheet()
dim rng as range
for each rng in sheets("Daftar").range("a1").currentregion.resize(,1)
if not sheets(rng.value) is nothing then
sheets(rng.value).printpreview 'ganti printpreview
dengan printout jika sudah cocok dengan proses prosedur ini
endif
next rng
End Sub
4. kembali ke worksheet (tekan ALT F11)
5. insert shape ke worksheet
6. klik kanan shape -> pilih Assign Macro -> pilih PrintSheet -> OK
7. save as workbook dengan ALT F A
8. pada save as type pilih .xlsm lalu tekan tombol save
9. klik sebuah cell
10. pencet shape untuk mencoba
Wassalam,
Kid.
2013/2/15 MIKE <[email protected]>
> **
>
>
> **
> hai master-master excel yg baik...
>
> mohon di bantu untuk data absensiku....(lihat lampiran)
> aku cuma butuh memanggil nama-nama tapi bisa muncul semua data yg ada di
> kolom warna kuning (data2 dari sheet2 yg ada)
>
> tq
> Mike
>
>
