Printing sheets based on data within a sheet.

  • Hello,


    I have a spreadsheet with a number of tabs. One of the tabs has numerous pages that will not be needed all the time. Is there a way I can have Excel only print specific pages within a tab as well as all other tabs. Setting the print area does not work as I will need to print page 1 and 4 and 7, but not pages 2,3,5 or 6. I have attached a copy of the file, and the tab I am referring to is "Weighed Chemical Tags." Thank you!

  • Possibly work around...

    Code
    1. Sub Print_Out_Pages()
    2. Dim s As String, v As Variant, c As Variant
    3. s = Application.InputBox("Enter page numbers, separated by commas", Type:=2)
    4. v = Split(s, ",")
    5. For Each c In v
    6. ActiveWindow.SelectedSheets.PrintOut From:=c, To:=c
    7. Next c

    If I've been helpful, let me know. If I haven't, let me know that too.