Unencumbered by the thought process:

If you're not printing too many columns, maybe you could build a userform that
shows the sheet and has a check mark for each column--hide/show.

<---columns to hide--
sheet prt sheet A B C D E F G H Same as above
sh1 x x x x x x
sh2 x x
sh3 x x x x x
sh4 -

Or group your sheets and tell them that they're formatting (hiding/showing) all
the selected sheets.

Or just teach them how to hide/unhide columns and tell them to set it up the way
they want before they print.

And if that flies, it sure looks you can get back to a more normal life! <vbg





Stuart wrote:

A string array has been built which holds the workbooks selected
for printing. Before any work with the array, I currently present
the following:

'Fill the ListBox
With GetUserPrintOptions.ListBox1
.RowSource = ""
.AddItem "You want to print EVERY Worksheet in EVERY chosen Workbook"
.AddItem "You want to hide a Column(s) before printing"
.AddItem "You want to print EVERY page...including pages that total
'0.00'"
.AddItem "ALL printing will be in PORTRAIT mode"
End With
GetUserPrintOptions.Show
'get user's print options
With GetUserPrintOptions.ListBox1
If GetUserPrintOptions.ListBox1.Selected(0) = True Then
PrintAllBooks_Sheets = True
End If
If GetUserPrintOptions.ListBox1.Selected(1) = True Then
HideCols = True
End If
If GetUserPrintOptions.ListBox1.Selected(2) = True Then
PrintZeroPages = True
End If
If GetUserPrintOptions.ListBox1.Selected(3) = True Then
PrintAllPortrait = True
End If
End With

This is fine in a rudimentary way, but it still means an awful lot of user
input is required as the code loops through the array workbook. For
example, if the user opts to hide a column(s), then I've got to present
that option for every sheet in every selected workbook, just in case it
contains a column to be hidden.

Would a better way be to try to get all user options for each book in
one go? If so, how would I achieve this, please?

Regards.

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.507 / Virus Database: 304 - Release Date: 04/08/2003

--

Dave Peterson