Modul Print Raport

Option Explicit

'=======Cetak_Raport_Madin=========
Sub cetak()
Worksheets("raport").Unprotect "1"


Dim mulai As Byte
Dim sampai As Byte
Dim a As Byte

mulai = Range("U11").Value
sampai = Range("W11").Value
For a = mulai To sampai
Range("V8") = a
Worksheets("raport").PrintOut from:=1, To:=1, Copies:=1
Next a

Worksheets("raport").Select

Worksheets("raport").Protect "1", userinterfaceonly:=True
End Sub

Sub cetak_saat_ini()
Worksheets("raport").Unprotect "1"

ActiveWindow.SelectedSheets.PrintOut from:=1, To:=1, Copies:=1
Worksheets("raport").Select

Worksheets("raport").Protect "1", userinterfaceonly:=True
End Sub


Sub cetak_DAFDIR()
Worksheets("dafdir").Unprotect "1"

ActiveWindow.SelectedSheets.PrintOut from:=2, To:=2, Copies:=1
Worksheets("dafdir").Select

Worksheets("dafdir").Protect "1", userinterfaceonly:=True
End Sub

Sub cetak_DAFTAR_NILAI()
Worksheets("cetakdkn").Unprotect "1"

ActiveWindow.SelectedSheets.PrintOut from:=3, To:=4, Copies:=1
Worksheets("cetakdkn").Select

Worksheets("cetakdkn").Protect "1", userinterfaceonly:=True
End Sub