VBA: Makro opfører sig ikke som den skal

Jeg har følgende Subs..  Nu viser det sig at hvis brugeren prøver at printe, kommer den første fejlbesked til brugeren (fra FileSave Sub'en som tjekker nogle punkter igennem), men derefter printer den siden ?

I FileSave bliver samtlige checks afbrudt med "Exit Sub" hvis min If er false. 

Er der nogen der kan gennemskue det ?


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Application.UserName = "XXXX" Then
        ThisWorkbook.SaveAs "C:\XXXX\Tryk\TrykGem.xls"
    Else
      FileSave
      Cancel = True
    End If
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Application.UserName = "XXXX" Then
        Sheets.PrintOut
    Else
        FileSave         
        ThisWorkbook.Close
    End If
End Sub