dropdown box printing

**salimnore** · 10-18-2017, 04:57 PM

Hi everyone,

Thank you for taking the time to read my post. I have a spreadsheet here with a drop down list, I am able to select a person and am able to print out one sheet for the individual selected without any problems, however I was wondering is it possible to print off all the people in my dropdown list. I read some where about cycling through but don't know where to start. I would be grateful for any help or advice.

Thank you in advance.

please find attached a copy of the sheet

**Zer0Cool** · 10-18-2017, 05:19 PM

After reading your post 3 times (maybe my own problem, its getting late) I think I understand what you mean.

That is to say when you change the drop down list the contents of the sheet change, and while you can manually print the sheet to a printer with each selection you are looking for a way to print it out for all of the selections without needing to go back and manually change the selection and start another print job?

If this is what you are asking, the short answer is not without a macro.

The drop down is just a way of changing the entry in a cell. The data below doesnt exist/change according to another entry unless that entry is actually changed. So you can either change it manually or write a macro that automates changing the drop down and running print jobs for you.

I also notice you are using a drop down control not a data validation list. To be honest its been a while and I'm not sure which would be easier to get the list from, but id imagine if you based the validation off a range of cells or a named range that it would be pretty easy to loop the list, make the changes and print.

If you do decide to pursue a macro for this, you would have to save the file in a macro enabled format and have macros enabled. Anyone else using the file would also have to enable macros to be able to utilize a macro.

**mehmetcik** · 10-18-2017, 05:46 PM

Change the input range for your combobox to: Students!$A$4:$A$100

Then Use a Macro like:


Sub PrintAll()
LR = Sheets("Students").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Question Analysis").Select

For Count = 4 To LR
Cells(3, 2).Value = Count - 3
Calculate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Next

End Sub