Dear Almin Kendari
Coba pada macro cetak diubah menjadi:
ActiveSheet.Range("$A$6:$G$129").AutoFilter Field:=7, Criteria1:="Dra. A"
ActiveSheet.PrintOut Copies:=1, Collate:=True
ActiveSheet.Range("$A$6:$G$129").AutoFilter Field:=7, Criteria1:="Dra. A1"
ActiveSheet.PrintOut Copies:=1, Collate:=True
ActiveSheet.Range("$A$6:$G$129").AutoFilter Field:=7, Criteria1:="Dra. Aq"
ActiveSheet.PrintOut Copies:=1, Collate:=True
Tulis semuanya sampai semua orang terfilter, sebanyak yang dibutuhkan.
Salam
NangAgus
On 21/05/2013 10:02, Almin Kendari wrote:
Mohon Bantuan XL-Mania
Saya ingin Cetak Amplop Honor berdasarkan daftar Nama yang terfilter.
Maksudnya ketika klik link cetak semua nama terprint di masing-masing
amplop satu persatu.
Mohon maaf jika maksud saya kurang jelas
