Print Raport MAM 1

'=======Cetak_Raport_MAM1=========
Sub cetak_banyak()
Dim mulai As Byte
Dim sampai As Byte
Dim a As Byte
mulai = Range("U3").Value
sampai = Range("V3").Value
For a = mulai To sampai
Range("M1") = a
Sheet44.PrintOut from:=1, To:=3, Copies:=1
Next a
Sheet44.Select
End Sub