Selecting Worksheet then running macro based on selected worksheet

What I am trying to do is create a print routine that will know which is selected and then print according the the selected sheet. There must be a way to write a looping function to say If Quickie Board (#) is selected then print Auction Report (#) and PICKNPAY (#).

Here is a copy of what I am trying to do...any suggestions?

Sub QB1Print()
'
'
    Sheets(Array("Auction Report (1)", "PICKNPAY (1)")).Select
    Sheets("Auction Report (1)").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("Quickie Board (1)").Select
End Sub

Sub QB2Print()
'
'
    Sheets(Array("Auction Report (2)", "PICKNPAY (2)")).Select
    Sheets("Auction Report (2)").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("Quickie Board (2)").Select
End Sub

Sub QB3Print()
'
'
    Sheets(Array("Auction Report (3)", "PICKNPAY (3)")).Select
    Sheets("Auction Report (3)").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("Quickie Board (3)").Select
End Sub