Sekali lag termakasih, skrip berjalan dengan baik, nuwun
Pada 23 Januari 2015 08.56, Nang Agus [email protected] [belajar-excel] < [email protected]> menulis: > > > 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 [email protected] > [belajar-excel] <[email protected]>: > >> >> >> 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 <[email protected]> menulis: >> >>> Terimakash Mas Nang Agus, skrip berjalan dengan baik... >>> >>> >>> >>> Pada 22 Januari 2015 10.56, Nang Agus [email protected] >>> [belajar-excel] <[email protected]> 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 [email protected] >>>> [belajar-excel] <[email protected]>: >>>> >>>>> >>>>> >>>>> Mohon pencerahannya, >>>>> File terlampir >>>>> >>>>> >>>> >>> >> > >
