Re: [belajar-excel] Mencetak halaman tertentu

2015-01-23 Terurut Topik heru mulyono hmulyon...@gmail.com [belajar-excel]
Sekali lag termakasih, skrip berjalan dengan baik, nuwun Pada 23 Januari 2015 08.56, Nang Agus nanga...@gmail.com [belajar-excel] belajar-excel@yahoogroups.com menulis: Pak Heru, Saya gunakan cekrip bapak: Private Sub CommandButton1_Click() Dim i As Integer For i =

Re: [belajar-excel] Mencetak halaman tertentu

2015-01-22 Terurut Topik Nang Agus nanga...@gmail.com [belajar-excel]
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

Re: [belajar-excel] Mencetak halaman tertentu

2015-01-21 Terurut Topik Nang Agus nanga...@gmail.com [belajar-excel]
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

Re: [belajar-excel] Mencetak halaman tertentu

2015-01-21 Terurut Topik heru mulyono hmulyon...@gmail.com [belajar-excel]
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

Re: [belajar-excel] Mencetak halaman tertentu

2015-01-21 Terurut Topik heru mulyono hmulyon...@gmail.com [belajar-excel]
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:

RE: [belajar-excel] Mencetak halaman tertentu

2015-01-21 Terurut Topik 'Heru Safrudin' superhe...@gmail.com [belajar-excel]
Coba code Range(AO18) = Range(AO18) + 1 Diganti Range(AM5) = i ymsgr:sendIM?heru.safrudin _ From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] Sent: 21 Januari 2015 13:49 To: