Macro completes 1st step not 2nd. Also run time error

Hey guys when running the following macro i can get a document to print but when it comes to case 7 I can only get the DR Label to print. I cant get the Lining HBJ to print am i missing something that would print both pages? It works fine with any of the cases before hand but any with 2 pages to print it will only print the 1st page.

Also after I run the macro it comes up with ("Run-time error '13': Type mismatch) but the macro still works fine is their anyway to solve this?

I'm sure its simple but im still learning this is only my 3rd macro and I don't spend much time on them so I'm a noob.

Sub PrintStuff()
    Dim vShts As Variant
    vShts = Sheets("Main").Range("L9")
    If Not IsNumeric(vShts) Then
        Exit Sub
    Else
        Select Case vShts
            Case 1
                Application.ActivePrinter = "Brother MFC-8880DN Printer" - Sheets("Lining HBJ").PrintOut
            Case 2
                Application.ActivePrinter = "Brother MFC-8880DN Printer" - Sheets("Lining HOJ").PrintOut
            Case 3
                Application.ActivePrinter = "Brother MFC-8880DN Printer" - Sheets("Lining MIT").PrintOut
            Case 4
                Application.ActivePrinter = "Brother MFC-8880DN Printer" - Sheets("Lining REB MIT").PrintOut
            Case 5
                Application.ActivePrinter = "Brother MFC-8880DN Printer" - Sheets("Lining Rebated").PrintOut
            Case 6
                Application.ActivePrinter = "Brother HL-3140CW series Printer" - Sheets("Dr Label").PrintOut
            Case 7
                Application.ActivePrinter = "Brother HL-3140CW series Printer" - Sheets("Dr Label").PrintOut
                Application.ActivePrinter = "Brother MFC-8880DN Printer" - Sheets("Lining HBJ").PrintOut
            Case 8
                Application.ActivePrinter = "Brother HL-3140CW series Printer" - Sheets("Dr Label").PrintOut
                Application.ActivePrinter = "Brother MFC-8880DN Printer" - Sheets("Lining HOJ").PrintOut
            Case 9
                Application.ActivePrinter = "Brother HL-3140CW series Printer" - Sheets("Dr Label").PrintOut
                Application.ActivePrinter = "Brother MFC-8880DN Printer" - Sheets("Lining MIT").PrintOut
            Case 10
                Application.ActivePrinter = "Brother HL-3140CW series Printer" - Sheets("Dr Label").PrintOut
                Application.ActivePrinter = "Brother MFC-8880DN Printer" - Sheets("Lining REB MIT").PrintOut
            Case 11
                Application.ActivePrinter = "Brother HL-3140CW series Printer" - Sheets("Dr Label").PrintOut
                Application.ActivePrinter = "Brother MFC-8880DN Printer" - Sheets("Lining Rebated").PrintOut
        End Select
    End If
End Sub

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer

Thanks for the help in advance.