Terimakasih Master Kid
Belum bisa, master.
Ini kode yang saya pakai :
Sub Print_Tombol()
Dim lC As Long
ULANGI:
lC = Application.InputBox("Print berapa lembar (1 sampai 99)? Cancel bila
tidak jadi print", Type:=1)
If lC < 0 Or lC > 99 Then
GoTo ULANGI
ElseIf lC = 0 Then
MsgBox "Batal"
Exit Sub
End If
ActiveSheet.PrintOut lC
End Sub
Ada yang salah?
Terimakasih
Riki
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, October 14, 2016 4:28 AM
To: BeExcel
Subject: Re: [belajar-excel] Tanya Kode Macro Print dengan Jumlah Salinan
(Copies)
Hai Riki,
Asumsinya ada sebuah tombol untuk melakukan print.
Tombol tersebut berisi perintah untuk menentukan area yang akan di-print.
Pasti di dalam tombol tersebut berisi baris kode yang syntax nya begini :
object_yang_akan_dicetak.printout
seperti :
sheets("invoice").range("c7:k19").printout
atau
activesheet.printout
dan sebagainya.
Sebelum baris seperti itu, diberi kode berikut :
dim lC as long
ULANGI:
lc=application.inputbox("Tentukan jumlah salinannya (1 sampai 1234). Cancel
untuk membatalkan proses cetak.",type:=1)
if lc<0 or lc>1234 then
goto ulangi
elseif lc=0 then
msgbox "Batal"
exit sub
endif
'baris print disini, seperti :
sheets("invoice").range("c7:k19").printout lc
Jika akan mencegah proses print lewat menu, tambahkan baris :
application.enableevents=false
sebelum baris kode blabla.printout [blibli]
dan tambahkan juga baris kode :
application.enableevents=true
setelah baris kode blabla.printout [blibli]
kemudian buat event workbook before print, isi dengan baris kode :
cancel=true
selebihnya, silakan dikembangkan lebih lanjut.
Regards,
Kid
2016-10-13 15:04 GMT+07:00 'Riki' ricky45chi...@yahoo.co.id
<mailto:ricky45chi...@yahoo.co.id> [belajar-excel]
<belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> >:
Dear Masters,
Saya mau tanya kode macro untuk perintah print, namun dengan pertanyaan jumlah
Salinan terlebih dahulu sebelum eksekusi, dan hasil eksekusi sesuai dengan
jumlah Salinan yang dimasukan.
Suwun Masters.
Riki Excel Newbie.
