seandainya slip mau saya print per 6 orang
macro mana yang harus saya ganti pak..
apa yang ini
("Slip!C1") = 3
saya ganti ("Slip!C1") = 6
Pada Selasa, 26 November 2013 8:46, hendrik karnadi <hendrikkarn...@yahoo.com>
menulis:
Coba codes ini:
Private Sub CmdPrint_Click()
Dim i As Integer
Range("Slip!C1") = 3
Range("Slip!I1") = 1
For i = 1 To Sheets("RekapGaji").Range("M1")
Me.PrintPreview
Range("Slip!I1") = Range("Slip!I1") + 1
Range("Slip!C1") = Range("Slip!C1") + 3
Next i
End Sub
Private Sub CommandButton1_Click()
Dim i As Integer
Range("Slip!C1") = 3
Range("Slip!I1") = 1
For i = 1 To Sheets("RekapGaji").Range("M1")
Me.PrintOut
Range("Slip!I1") = Range("Slip!I1") + 1
Range("Slip!C1") = Range("Slip!C1") + 3
Next i
End Sub
Range("Slip!I1") bukan lagi sebagai formula.
Salam,
HK
On Tuesday, 26 November 2013, 8:03, Lazuardi Biru <lazuardi_bir...@yahoo.com>
wrote:
DH
salam be-exceler
bisa nggak ya print untuk semua halaman menggunakan macro..
untuk lebih jelasnya file terlampir.
karenaa bingung mau jelasinya.
