How to Print (all) Student Reports - Currently 400 manually

Help Truly appreciated!

Currently have a large grade spreadsheet set up, main tab is the template with graphs and formatting, etc.
Second tab has all data, including student numbers.

In order to print, in the main tab that has the template, I have to type in the student number manually (6 digits) and then print, and repeat that 400 times (every month!).

I would love for Excel to somehow allow me to print all 400 records in one go.

I don't know anything about VB and Macros, I fear the learning curve of coding is too steep and too time consuming...

Much appreciated, I have attached my the Excel file, really hope someone can help.

I would guess Mail Merge from MsWord would be a possibility . We have some Word Guru's around

The main report page in excel has been made really well (to my humble opinion) with graphs pulling individual score based upon student number, don't think Word could produce that. And it would mean making the report page from scratch, but again, I'm pretty sure Word can't do it.

Let's see what Paul thinks...

Would be great with a regular excel function, VBA/Macros sound a bit too advanced for something I can imagine many would want

Really appreciate you taking the time.

Probably a n00b Q (and I thought I was fairly decent with Excel), but where do I do this? Is this a Visual Basic/MAcro thing?

Was beaten to it, you can even add the above code to a button on the report sheet and you just need to press it

Hopefully this is still close in office 2019

https://www.ablebits.com/office-addi...a-macro-excel/

I was actually able to copy/past your formula into VBA, using the tutorial that davsth used.

Once I ran the macro (guess same with the button), the computer started printing like crazy, lol

Problem is, the student report is made of two pages, and I always print front and back. And I would love to print as a PDF if possible.

PDF is a huge bonus, but not a must, but the two pages would be amazing. If not, then I do think it's still ok.

Haha,

Yup, went ape-nuts, but that's what we wanted

TBH would prefer that all reports were saved into one pdf file, but perhaps that's a difficult one.

How about printing double sided? Perhaps I must set that as a standard first, and then the macro will follow that standard setting? I'm afraid to try anything and press that magic button though, lol

I really must wake up earlier, others solve the problem while I am still thinking.
however as I spent time I might as well submit my version.
It looks for a drive to save to (USB ??) all individual pdf's.
Prints at the same time, have plenty of paper
torachan.

Hi KOKOSEK,
There are none of your macros in my submission.
It's approach is different to yours and probably not as elegant, I had started so I finished.
Totally up to the OP how he goes forward, these are guides that he can expand upon as time savers.
torachan.

Really appreciate the work guys!

I like the idea of printing to PDF (on a USB drive), tested and worked great.

Even though it printed at the same time.

Is it possible to have two buttons, one to print PDFs to USB drive, and one to print to the printer? (Hope I'm not asking for two much here... )

I have also worked on my sheet the past couple of days, making it simpler and removing tabs. When I did, it could no longer print (as it referred to a tab no longer there), I changed the tab referrence, but it still doesn't work...

Feel like an idiot here...

KOKOSEK

Print button works great!

But the PDF button produces an error code (Screenshooted)

@ Zubayr, you are a naughty boy, moving everything around causes confusion.
The separate save button does save, however parts of your report do not update as you have not completed the referencing.
I think it would be better for you to finalise your design first.
Then add the print and save procedures.
torachan.

This works for me.
To test I have set the default path to J: (one of my USB ports). (alter to suit your port.)
If you are saving to C: a destination folder must exist or you need to create one on the fly.

Sub SaveAllResults()
Dim cell As Range
Dim FilePath As String
FilePath = "J:\"                            'change this path for generated files according to you needs
Sheets("Master - One Comment").Select
For Each cell In Sheets("Evaluation").Range("A2:A" & Sheets("Evaluation").Cells(Rows.Count, 1).End(xlUp).Row)
Range("H4").Value = cell.Value
Calculate
DoEvents
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FilePath & cell & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'Call Create_PDF(Sheets("Master - One Comment").Range("A1:I72"), FilePath & cell.Value & ".pdf", True, False)
Next cell
End Sub