Start2 already exist and not continuing

[Abdulai_1]

Sub Prints()
'
Dim i As Long
Dim q As Integer

q = Range("WrongName").Value

If q = 0 Then

Sheet6.Visible = xlSheetVisible

For i = 1 To Range("PupilCount")
    Sheet6.Copy after:=Worksheets(Worksheets.Count)
    Range("D1").Value = i
    ActiveSheet.Name = Range("B2")
        If i = 1 Then
        x = Application.Dialogs(xlDialogPrinterSetup).Show
            If x = False Then
            MsgBox "All printing has been cancelled"
            Application.DisplayAlerts = False
            ActiveWindow.SelectedSheets.Delete
            Application.DisplayAlerts = True
            Sheet6.Visible = xlSheetHidden
            Exit Sub
        End If
    End If
    ActiveWindow.SelectedSheets.PrintOut
      
Next i
Sheet6.Visible = xlSheetHidden
End If

If q = 1 Then
MsgBox "You have 1 entry for which the names do not match." & vbCrLf & _
"Please find these by filtering the 'Match?' column to FALSE on the Student Reference tab and then making the necessary " & _
"changes in either the NCalc Data or Calc Data tab", vbExclamation

Sheet3.Select
Range("D1").Select
Exit Sub
End If

If q > 1 Then

MsgBox "You have " & q & " entries for which the names do not match." & vbCrLf & _
"Please find these by filtering the 'Match?' column to FALSE on the Student Reference tab and then making the necessary " & _
"changes in either the NCalc Data or Calc Data tab (or both).", vbExclamation

Sheet3.Select
Range("D1").Select
End If


End Sub

 

[6StringJazzer]

What is your question? Your thread title doesn't really explain your question. There is no other text in your post and the name "Start2" doesn't appear anywhere in your code.

 

[Abdulai_1]

I am trying to generate exam reports and print them together instead of printing one at a time. I can't seem to upload the file so I have taken a print screen of the report page. There are 93 reports and I want run all of them and then print.

Thanks