Personally I would create a simple userform with 10 checkboxes, captioned from the sheet names e.g.
[VBA]Private Sub UserForm_Initialize()
For i = 1 To 10
Controls("Checkbox" & i).Caption = Sheets(i).Name
Next
End Sub

[/VBA]
and run the print from a button.