KV Result Software - Bulk Print code

 ##print result in bulk

Sub PrintFullResult()

    Dim RollNo As Integer

    Dim GoodFileName as String

    RollNo = 0

    For RollNo = 1 To 39

        Range("d9").Value = RollNo

        If RollNo < 10 Then

            GoodFileName= "0" & Cstr(RollNo)

        Else

            GoodFileName=RollNo

        End If

        ActiveSheet.ExportAsFixedFormat _

        Type:=x1TypePDF, _

        Filename:=GoodFileName, _

        Quality:=x1QualityStandard, _

        IncludeDocProperties:=False, _

        IgnorePrintAreas:=False, _

        From:=1, _

        To:=5, _

        OpenAfterPublish:=False

    Next RollNo

    

End Sub