macro to print selection when there is data in rows

[bh24524]

Hi, so I have a sheet that does lookups to other tabs and displays data when someone is changing a schedule.
Here is a simplified format:

What we have to do is print out one sheet per person that is actually changing schedules so that each printed sheet displays the headers and only that persons name and the rest of the info printed to column H. For this sample we only go to column H for printing but what is in column I and beyond wouldn't get printed. What I currently do is hold down the ctrl button and then select from A to G those changing schedules and when I go to print it, it has each person separated on their own sheet and I print 2 copies. So base don the above sample data, I would have 3 separate pages - one for John Smith 1, one for John Smith 5, and one for John Smith 8.

My question is instead of me having to ctrl highlight the different selections I want to print is if there is a macro that could do this for me, so basically if columns F thru H have some type of data populating in them, it would print from A to H. So if I ran the macro according to the above screenshot sample, I would expect to see 3 separate pages:
Page 1

Page 2

Page 3

Again, printing excludes anything beyond column H.

 

[jolivanes]

I should have anticipated something like that maybe.
Anyway, a lesson learned.
Let us know how it works after the changes.

 

[bh24524]

Success! Just one thing though, can we get the code to actually print two copies?

 

[bh24524]

I think I figured it out, I brought up the intellisense and saw the fields so I did this:

Range("A1").Resize(lr, 18).PrintOut , , 2

Going to test that...

Success! I hope I can get to this skill level one day but I have a ways to go. Thank you very much for your help and patience!

 

[jolivanes]

Thanks for the kind words and good luck

 

[bh24524]

Just since the code had undergone a few revisions, posting it in its final form:

Option Explicit

Sub Print_All_Bid_Changes()
Dim lr As Long, i As Long, j As Long, dataArr, arr
lr = Range("A:A").Find("*", , xlValues, xlPart, xlByRows, xlPrevious).Row
dataArr = Range("A5:D" & lr).Value
    For i = LBound(dataArr) To UBound(dataArr)
        If dataArr(i, 1) <> dataArr(i, 2) Then arr = arr & "|" & dataArr(i, 4)
    Next i
  
    arr = Split(Mid(arr, 2), "|")
    Application.ScreenUpdating = False

    'You can delete the next 6 lines if not needed although they don't do any harm
    With Worksheets("MOVES").PageSetup    '<---- Change Sheet Name
        .Zoom = False
        .Orientation = xlLandscape
        .FitToPagesTall = 1
        .FitToPagesWide = 1
    End With
  
    For j = LBound(arr) To UBound(arr)
        With ActiveSheet.Range("A4:H" & lr)
            .AutoFilter 4, arr(j), xlFilterValues
            Range("A1").Resize(lr, 18).PrintOut , , 2  '<----- The number 18 is Column R
            .AutoFilter
        End With
    Next j
Application.ScreenUpdating = True
End Sub

Also, thank you as well NateSC. Although I didn't end up using the code you had initially provided, I do appreciate the time and effort you put forth into it and did give you a rep score for it! Take care!