Howdie,

I have a macro that loops through all the sheets and prints them -
however it prints them in the order they were created, not in the order
that they are displayed on the screen. How can I get Excel to print them
in the order that they are visible...?

Thanks and Regards

Darin

Sub PrintVisibleSheets_2()

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Visible Then
If ws.Name < "data" Then
ws.PrintOut Copies:=1, Collate:=True
End If
End If

Next


End Sub


*** Sent via Developersdex http://www.developersdex.com ***

I couldn't reproduce it. It looped in the tab order for me.

--
Regards,
Tom Ogilvy


"Darin Kramer" wrote:

Howdie,

I have a macro that loops through all the sheets and prints them -
however it prints them in the order they were created, not in the order
that they are displayed on the screen. How can I get Excel to print them
in the order that they are visible...?

Thanks and Regards

Darin

Sub PrintVisibleSheets_2()

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Visible Then
If ws.Name < "data" Then
ws.PrintOut Copies:=1, Collate:=True
End If
End If

Next


End Sub


*** Sent via Developersdex http://www.developersdex.com ***