Batch Print\Save PDF summary report for student assessment

Hi,
I have been working in VBA to create a macro (button) to automatically print a summary page for each student in my class. I have copied a MS macro from a template but cannot modify to suit my needs.

My workbook has multiple sheets - attendance, homework, assessment tasks etc. I have created a 'Print Summary' sheet and formatted ready to print/save to pdf and distribute. This 'Print Summary' sheet has a drop down list (of students) and automatically populates the sheet with data from the other relevant sheets when a specific student is selected.

I would like to create a macro to automatically save 'Print Summary' page to .pdf of each student as a single file. Ideally, the macro would save the files as:
SURNAME GIVEN NAME (cell C9 and E9)
in a folder TOPIC (cell D11)

eg E:\User\Folder\TOPIC\SURNAME GIVEN NAME.pdf

Many thanks

Thanks for the reply Blokeman. Apologies to all for not Cross posting.

I have copied the code into VBA and I am receiving a Run-time error '76' Path not found message. I have made several attempts to change the directory (to different drives) with no success.

Any suggestions?

Thanks again but I am still having issues. (Run-time error 76)
My knowledge is very limited and I am learning through experimenting.

I will run through the steps I have taken:
Open workbook (.xlsm macros enabled in settings)
Alt +F11 to open VBA
Insert Module
Double click on Module1 and copy code provided with ChDir amendments. I have tried:
ChDir "C:\Users\UserName\Folder\" & Range("D11") & "\Pdf" - C: drive is SSD/E: drive is storage. Folders were created and renamed
ChDir "E:\TPC\Year 12\Yr 12 Reports\" & Range("D11") & "\Pdf" - copied address from window address bar
ChDir "G:\Reports\" & Range("D11") & "\Pdf" - where G: drive is SD card
Save and run

Not sure what I am doing wrong.

Windows 8.1
Microsoft Office 2013

I had input the correct username but still no luck.

Just to clarify, my own workbook contains a modification of the freely available 'Gradebook with printable student progress report' template found within MS excel. This VBA macro to print all reports is what I am after but to save as pdf rather than print. to specific file)


Option Explicit
Private Sub PrintAllSummaries()
On Error Resume Next
Dim i As Long
Dim sCount As String
Dim vStudents As Variant

vStudents = [StudentLookup]
i = UBound(vStudents)

If i > 1 Then
sCount = i & " students "
Else
sCount = i & " student "
End If

If MsgBox("A progress report for " & sCount & "will be sent directly to the printer." _
& vbCr & "Do you want to continue?", vbYesNo + vbDefaultButton2 + vbQuestion, _
"Student Gradebook") = vbYes Then
With Sheet2
For i = 1 To i
[StudentName] = vStudents(i, 1)
DoEvents
.PrintOut IgnorePrintAreas:=False
Next
End With
End If

End Sub

Would it be easier to modify this code to suit?

Thanks Blokeman. Very much appreciated.

One last question - is there a way the code can cycle through a class list of students (Data Validation dropdown List in cell E9) to save all student reports as individually named files rather than manually selecting each student and applying the code (Macro assigned to button).

Thanks. Tried the code provided and came back with a Compile Error - Variable not defined (highlighting sPath).

Blokeman - You are a STAR!!!

After a little bit of tinkering (naming cells in worksheets), I now have a fully functioning macro assigned to a button on my Print Summary worksheets.

My sincere gratitude for your time and patience.