Printing same selection of data on various worksheets in a worksheet order determined by a list

[Rebeccahannigan]

Hello

I am having trouble achieving the following and have searched through the forums without a clear answer.

I have an excel document with 16 worksheets and a front page. On this front page I want to include a list that has the numbers 1-16 on it but in a different order (not alphanumerical) and when I push a button for excel to print the selection from each of those worksheets (as an example a:1-a:40) in the worksheet order determined by that list

Any help appreciated

 

[onlyadrafter]

Hello,

I have assumed your 'front page' is called Sheet1 and the numbers 1-16 are in cells A1:A16. Also assumed your 'front page' is the left most tab in your spreadsheet.

Sub print_sheets_2()
    For MY_ROWS = 1 To Range("A" & Rows.Count).End(xlUp).Row
        Sheets(Range("A" & MY_ROWS).Value + 1).Select
        ActiveSheet.PageSetup.PrintArea = "$A$1:$A$40"
        ActiveWindow.SelectedSheets.PrintPreview
        Sheets("Sheet1").Select
    Next MY_ROWS
End Sub

you will need to supply the code line to PRINT, as this can be different (and I'm not connected to a printer).

Is this any use?

 

[Rebeccahannigan]

Hello There

I'll give it a shot - Would I just apply this to a button to hit print?
You'll have to bear with me a tad, I'm self taught so not that great at all this

Thanks

 

[Rebeccahannigan]

Coming up with error code 13

cells that display the print order of sheets are b29-b44. Tried changing this range and didn't work. Error appears on the coding line Sheets(Range("A" & MY_ROWS).Value + 1).Select

Any help much appreciated!

 

[onlyadrafter]

Hello,

does this work?

Sub print_sheets_2()
    For MY_ROWS = 29 To 44 'Range("B" & Rows.Count).End(xlUp).Row
        Sheets(Range("B" & MY_ROWS).Value + 1).Select
        ActiveSheet.PageSetup.PrintArea = "$A$1:$A$40"
        ActiveWindow.SelectedSheets.PrintPreview
        Sheets("Sheet1").Select
    Next MY_ROWS
End Sub

should you list of sheets exceed row 44, remove the 44 ' from the code line.