One way would be to use a macro to populate column A of a new sheet with the
names.  Print that list.

Private Sub ListSheets()
'list of sheet names starting at A1
 Dim Rng As Range
 Dim i As Long
  Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "List"
     Set Rng = Range("A1")
        For Each Sheet In ActiveWorkbook.Sheets
     Rng.Offset(i, 0).Value = Sheet.Name
     i = i + 1
 Next Sheet
End Sub

Gord Dibben  MS Excel MVP