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 =
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
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
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
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:
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:
6 matches
Mail list logo