Attribute VB_Name = "Module1"


'
' PRINT4 Macro
' PRINTS 4 COPIES OF TER FORM
'
' Keyboard Shortcut: Ctrl+P
'
Sub PRINT4()
Attribute PRINT4.VB_Description = "PRINTS 4 COPIES OF TER FORM"
Attribute PRINT4.VB_ProcData.VB_Invoke_Func = "P\n14"
    Application.Goto Reference:="R1C2"
    ActiveCell.FormulaR1C1 = "ORIGINAL"
    ActiveWindow.SelectedSheets.PrintOut COPIES:=1
    ActiveCell.FormulaR1C1 = "ACCTG OFFICE COPY"
    ActiveWindow.SelectedSheets.PrintOut COPIES:=1
    ActiveCell.FormulaR1C1 = "DEPT COPY"
    ActiveWindow.SelectedSheets.PrintOut COPIES:=1
    ActiveCell.FormulaR1C1 = "TRAVELER'S COPY"
    ActiveWindow.SelectedSheets.PrintOut COPIES:=1
    ActiveCell.FormulaR1C1 = "SAMPLE"
    Application.Goto Reference:="R1C2"
End Sub
'
' PRINT1 Macro
' PRINTS ORIGINAL ONLY
'
' Keyboard Shortcut: Ctrl+p
'
Sub PRINT1()
Attribute PRINT1.VB_Description = "PRINTS ORIGINAL ONLY"
Attribute PRINT1.VB_ProcData.VB_Invoke_Func = "p\n14"
    Application.Goto Reference:="R1C2"
    ActiveCell.FormulaR1C1 = "ORIGINAL"
    ActiveWindow.SelectedSheets.PrintOut COPIES:=1
    ActiveCell.FormulaR1C1 = "SAMPLE"
    Application.Goto Reference:="R1C2"
End Sub
'
' SAMPLE Macro
' PRINTS ORIGINAL ONLY
'
' Keyboard Shortcut: Ctrl+p
'
Sub SAMPLE()
Attribute SAMPLE.VB_ProcData.VB_Invoke_Func = " \n14"
    Application.Goto Reference:="R1C2"
    ActiveCell.FormulaR1C1 = "SAMPLE"
    ActiveWindow.SelectedSheets.PrintOut COPIES:=1
    ActiveCell.FormulaR1C1 = "SAMPLE"
    Application.Goto Reference:="R1C2"
End Sub











'
' Audit Macro
' Auits Lodging & Meals Against State Maximums
'
' Keyboard shortcut:
'
Sub Audit()
Attribute Audit.VB_ProcData.VB_Invoke_Func = " \n14"
    Const Room = 52
    Const Brkfst = 7
    Const Lnch = 8
    Const Dnnr = 16
    If ([q17] <> "x") And ([q17] <> "X") And ([r17] > Room) Then
        DialogSheets("Dialog1").Show
    ElseIf ([r18] > Room) And ([q18] <> "x") And ([q18] <> "X") Then
        DialogSheets("Dialog1").Show
    ElseIf ([r19] > Room) And ([q19] <> "x") And ([q19] <> "X") Then
        DialogSheets("Dialog1").Show
    ElseIf ([r20] > Room) And ([q20] <> "x") And ([q20] <> "X") Then
        DialogSheets("Dialog1").Show
    ElseIf ([r21] > Room) And ([q21] <> "x") And ([q21] <> "X") Then
        DialogSheets("Dialog1").Show
    ElseIf ([r22] > Room) And ([q22] <> "x") And ([q22] <> "X") Then
        DialogSheets("Dialog1").Show
    ElseIf ([r23] > Room) And ([q23] <> "x") And ([q23] <> "X") Then
        DialogSheets("Dialog1").Show
    ElseIf ([r24] > Room) And ([q24] <> "x") And ([q24] <> "X") Then
        DialogSheets("Dialog1").Show
    ElseIf ([r25] > Room) And ([q25] <> "x") And ([q25] <> "X") Then
        DialogSheets("Dialog1").Show
    ElseIf ([r26] > Room) And ([q26] <> "x") And ([q26] <> "X") Then
        DialogSheets("Dialog1").Show
    ElseIf ([r27] > Room) And ([q27] <> "x") And ([q27] <> "X") Then
        DialogSheets("Dialog1").Show
    ElseIf ([r28] > Room) And ([q28] <> "x") And ([q28] <> "X") Then
        DialogSheets("Dialog1").Show
    ElseIf ([r29] > Room) And ([q29] <> "x") And ([q29] <> "X") Then
        DialogSheets("Dialog1").Show
    ElseIf ([r30] > Room) And ([q30] <> "x") And ([q30] <> "X") Then
        DialogSheets("Dialog1").Show
    ElseIf ([r31] > Room) And ([q31] <> "x") And ([q31] <> "X") Then
        DialogSheets("Dialog1").Show
    ElseIf ([r32] > Room) And ([q32] <> "x") And ([q32] <> "X") Then
        DialogSheets("Dialog1").Show
    ElseIf ([r33] > Room) And ([q33] <> "x") And ([q33] <> "X") Then
        DialogSheets("Dialog1").Show
    ElseIf ([r34] > Room) And ([q34] <> "x") And ([q34] <> "X") Then
        DialogSheets("Dialog1").Show
    End If
    If [s17] > Brkfst Then
        DialogSheets("Dialog2").Show
    ElseIf [s18] > Brkfst Then
        DialogSheets("Dialog2").Show
    ElseIf [s19] > Brkfst Then
        DialogSheets("Dialog2").Show
    ElseIf [s20] > Brkfst Then
        DialogSheets("Dialog2").Show
    ElseIf [s21] > Brkfst Then
        DialogSheets("Dialog2").Show
    ElseIf [s22] > Brkfst Then
        DialogSheets("Dialog2").Show
    ElseIf [s23] > Brkfst Then
        DialogSheets("Dialog2").Show
    ElseIf [s24] > Brkfst Then
        DialogSheets("Dialog2").Show
    ElseIf [s25] > Brkfst Then
        DialogSheets("Dialog2").Show
    ElseIf [s26] > Brkfst Then
        DialogSheets("Dialog2").Show
    ElseIf [s27] > Brkfst Then
        DialogSheets("Dialog2").Show
    ElseIf [s28] > Brkfst Then
        DialogSheets("Dialog2").Show
    ElseIf [s29] > Brkfst Then
        DialogSheets("Dialog2").Show
    ElseIf [s30] > Brkfst Then
        DialogSheets("Dialog2").Show
    ElseIf [s31] > Brkfst Then
        DialogSheets("Dialog2").Show
    ElseIf [s32] > Brkfst Then
        DialogSheets("Dialog2").Show
    ElseIf [s33] > Brkfst Then
        DialogSheets("Dialog2").Show
    ElseIf [s34] > Brkfst Then
        DialogSheets("Dialog2").Show
    End If
    If [t17] > Lnch Then
        DialogSheets("Dialog3").Show
    ElseIf [t18] > Lnch Then
        DialogSheets("Dialog3").Show
    ElseIf [t19] > Lnch Then
        DialogSheets("Dialog3").Show
    ElseIf [t20] > Lnch Then
        DialogSheets("Dialog3").Show
    ElseIf [t21] > Lnch Then
        DialogSheets("Dialog3").Show
    ElseIf [t22] > Lnch Then
        DialogSheets("Dialog3").Show
    ElseIf [t23] > Lnch Then
        DialogSheets("Dialog3").Show
    ElseIf [t24] > Lnch Then
        DialogSheets("Dialog3").Show
    ElseIf [t25] > Lnch Then
        DialogSheets("Dialog3").Show
    ElseIf [t26] > Lnch Then
        DialogSheets("Dialog3").Show
    ElseIf [t27] > Lnch Then
        DialogSheets("Dialog3").Show
    ElseIf [t28] > Lnch Then
        DialogSheets("Dialog3").Show
    ElseIf [t29] > Lnch Then
        DialogSheets("Dialog3").Show
    ElseIf [t30] > Lnch Then
        DialogSheets("Dialog3").Show
    ElseIf [t31] > Lnch Then
        DialogSheets("Dialog3").Show
    ElseIf [t32] > Lnch Then
        DialogSheets("Dialog3").Show
    ElseIf [t33] > Lnch Then
        DialogSheets("Dialog3").Show
    ElseIf [t34] > Lnch Then
        DialogSheets("Dialog3").Show
    End If
    If [u17] > Dnnr Then
        DialogSheets("Dialog4").Show
    ElseIf [u18] > Dnnr Then
        DialogSheets("Dialog4").Show
    ElseIf [u19] > Dnnr Then
        DialogSheets("Dialog4").Show
    ElseIf [u20] > Dnnr Then
        DialogSheets("Dialog4").Show
    ElseIf [u21] > Dnnr Then
        DialogSheets("Dialog4").Show
    ElseIf [u22] > Dnnr Then
        DialogSheets("Dialog4").Show
    ElseIf [u23] > Dnnr Then
        DialogSheets("Dialog4").Show
    ElseIf [u24] > Dnnr Then
        DialogSheets("Dialog4").Show
    ElseIf [u25] > Dnnr Then
        DialogSheets("Dialog4").Show
    ElseIf [u26] > Dnnr Then
        DialogSheets("Dialog4").Show
    ElseIf [u27] > Dnnr Then
        DialogSheets("Dialog4").Show
    ElseIf [u28] > Dnnr Then
        DialogSheets("Dialog4").Show
    ElseIf [u29] > Dnnr Then
        DialogSheets("Dialog4").Show
    ElseIf [u30] > Dnnr Then
        DialogSheets("Dialog4").Show
    ElseIf [u31] > Dnnr Then
        DialogSheets("Dialog4").Show
    ElseIf [u32] > Dnnr Then
        DialogSheets("Dialog4").Show
    ElseIf [u33] > Dnnr Then
        DialogSheets("Dialog4").Show
    ElseIf [u34] > Dnnr Then
        DialogSheets("Dialog4").Show
    End If
    If [n39] > [n36] Then
        DialogSheets("Dialog5").Show
    End If
    If ([v44] <> [b4] + [b5] + [b6] + [b7] + [b8]) Then
        DialogSheets("Dialog6").Show
    End If
End Sub