Printing sheets based on data within a sheet.

VWRSue · Jun 3rd 2020

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!

dangelor · Jun 7th 2020

Possibly work around...

Code

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

Printing sheets based on data within a sheet.

Participate now!

Share