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
>>>>
>>>>
>>>
>>
>
>
