Selecting all sheets to print without knowing tab names

[imbn2wild]

I am trying to print all sheets within a workbook without knowing the name of the tabs. I do not want the user to have to do this.
I am not sure why this doesn't work. Any ideas?

Public Sub ListPrintSheets()
   ' An individual entry.
   Dim ThisEntry As Variant
   Dim PrintArray As Variant
   Dim Output As Variant
   
   For Each ThisEntry In Application.Sheets
      If Output = "" Then
      Output = ThisEntry.Index
      
      Else
         Output = Output & ", " & ThisEntry.Index
      End If
      Next
PrintArray = Array(Output)
   
    Sheets(PrintArray).Select
 '  Sheets(Array(Output)).Select

End Sub

 

[Yogi Anand]

Hi imbn2wild:

How about using ...

ActiveWorkbook.PrintOut Copies:=1

Would that help?

 

[imbn2wild]

Hi Yogi,

That works for just printing, but,

My thought here is to leave the workbook with all tabs selected, then save it, then if the user wants to visually hit print preview, prior to printing it, the selections are all made....

 

[imbn2wild]

a new idea, based upon yogi's thoughtful suggestion:

Sub newidea()
ActiveWorkbook.Sheets.Select
End Sub

THANKS

 

[Yogi Anand]

Hi Yogi,

That works for just printing, but,

My thought here is to leave the workbook with all tabs selected, then save it, then if the user wants to visually hit print preview, prior to printing it, the selections are all made....

I don't think it is a good idea to have all the tabs in the workbook selected all the time -- if you do want to offer the user the opportunity to PreView before Printing, I would suggest modifying the code to ...

ActiveWorkbook.PrintOut Copies:=1, Preview:=True

now with this code, the macro will take the user to the PrintPreview from where the user may choose among other options to Print, or Close, or ...