print multiple sheets override print event

I have a spreadsheet with multiple tabs. I would like to be able to select various tabs for printing page 1. For one specific tab I would like to filter a table, then print pages 1 & 3. I have written a macro, put it inside a workbook _BeforePrint event which runs the macro, but it prints the tab twice. Once from the print event and once by calling the macro.
Is there a way of overwriting the print event for this specific tab when it's printed? or is there a better solution to this problem?
Thanks in advance,
Tim

Sub print_pages1n3()
    ActiveSheet.PageSetup.PrintArea = "$A$1:$J$249"
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
    ActiveSheet.PageSetup.PrintArea = "$A$1:$K$249"
    ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
    Range("E30").Select
End Sub

Sub filterData()
Worksheets("13-33").Activate
ActiveSheet.ListObjects("Table8").Range.AutoFilter Field:=1, Criteria1:= _
        "<>"
End Sub

Sub Unfilter()
    Worksheets("13-33").Activate
    ActiveSheet.ListObjects("Table8").Range.AutoFilter Field:=1
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
Call filterData
Call print_pages1n3
Cancel = False
Call Unfilter
End Sub

Unfortunately that still prints page 1 twice.

Yes, this stops printing page 1 twice, thanks. The problem is when I select 11 tabs the print cancels after a couple of sheets. I'm assuming this cancels the print event? Can I add a conditional statement which runs the statement based on whether the sheet is active (or has been selected to print)?

Solved! This was my final code if it helps.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ActiveWindow.SelectedSheets
If ws.Name = "13-33" Then
            'Put your custom print code here for 'AverageEffect' tab
Application.EnableEvents = False
    Call filterData
    Call print_pages1n3
    Call Unfilter
Application.EnableEvents = True
Cancel = True
Else
ws.PrintOut Copies:=1, Collate:=True
End If
Next
End Sub