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 <[email protected]>
wrote:
DH
salam be-exceler
bisa nggak ya print untuk semua halaman menggunakan macro..
untuk lebih jelasnya file terlampir.
karenaa bingung mau jelasinya.
