Pak Heru, Saya gunakan cekrip bapak:
Private Sub CommandButton1_Click() Dim i As Integer For i = Range("AM18") To Range("AO18") Application.Dialogs(xlDialogPrinterSetup).Show ActiveSheet.PrintOut 'untuk cetak ganti dengan ActiveSheet.PrintOut Range("AM5") = Range("AM5") + 1 Next End Sub dapat berjalan sesuai perintah. jika ingin memilih printer hanya sekali saja ubah cekripnya menjadi: Private Sub CommandButton1_Click() Dim i As Integer Application.Dialogs(xlDialogPrinterSetup).Show For i = Range("AM18") To Range("AO18") ActiveSheet.PrintOut 'untuk cetak ganti dengan ActiveSheet.PrintOut Range("AM5") = Range("AM5") + 1 Next End Sub Salam 2015-01-22 12:34 GMT+07:00 heru mulyono hmulyon...@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>: > > > Ohya...ada yang ketinggalan... > saya pingin ketika tombol cetak saya klik, jg muncul option untuk memilih > printer... > tadi saya gabung dengan skript > Application.Dialogs(xlDialogPrinterSetup).Show > cuma setelah saya coba tidak mau keluar option memilih printer. > mohon bantuannya.. > matur nuwun > > Pada 22 Januari 2015 11.59, heru mulyono <hmulyon...@gmail.com> menulis: > >> Terimakash Mas Nang Agus, skrip berjalan dengan baik... >> >> >> >> Pada 22 Januari 2015 10.56, Nang Agus nanga...@gmail.com [belajar-excel] >> <belajar-excel@yahoogroups.com> menulis: >> >> >>> >>> Untuk Pak Heru >>> Asalamualaikum warahmatullah >>> >>> coba cekrip: >>> Range("AM18") = Range("AO18") + 1 >>> diubah menjadi: >>> Range("AM5") = Range("AM5") + 1 >>> wasalam >>> >>> 2015-01-21 13:49 GMT+07:00 heru mulyono hmulyon...@gmail.com >>> [belajar-excel] <belajar-excel@yahoogroups.com>: >>> >>>> >>>> >>>> Mohon pencerahannya, >>>> File terlampir >>>> >>>> >>> >> > >