Seperti pepatah mengatakan "Sekali dayung dua tiga pulau terlampaui" maka point
1 dan 2 dapat digabungkan pada tombol Cetak (2) dimulai dari no (angka) pada
sel N7 dan berakhir pada angka L7.
Perintah ini diattached pada tombol Cetak (2)
Sub CetakOto()
Dim i As Integer
For i = Range("N7") To Range("L7")
ActiveSheet.PrintPreview 'untuk cetak ganti dengan ActiveSheet.PrintOut
Range("N7") = Range("N7") + 1
Next
End Sub
Salam,
Hendrik Karnadi
________________________________
From: Jufri Devis <[email protected]>
To: "[email protected]" <[email protected]>
Sent: Thursday, 12 April 2012, 9:54
Subject: [belajar-excel] Macro Print
Teman2,
Mohon bantuannya untuk sempurnakan Macro Printnya ya (contoh filenya ada di
Lampiran) :
1. Perintah Cetak(1) maunya 1x klik akan mencetak satu persatu sampai 32 kali,
sekarang ini saya harus meng "klik" 32 kali
2. Perintah Cetak(2) dapat memilih nomor yang akan dicetak sesuai nomor yang
diinginkan.
Terima kasih.
Wasalam,
Jufri
