Option Explicit
'ツールモジュール

'金種計算
Public Sub CalcKinsyu()

    Dim intMsg As Integer   'メッセージの戻り値
    
    intMsg = MsgBox("金種を計算しますか。", 32 + 4, "給与計算システム")
    
    '「いいえ」のとき
    If intMsg = 7 Then Exit Sub
    gFlg = False
    frmBar4.Show
    
End Sub

'ヴァージョン情報表示
Public Sub AboutFormShow()

    gFlg = True
    frmAbout.Show
    
End Sub

'集計：給与賞与支払一覧表
Public Sub SiharaiItiran_Old()

    If gstrName = "" Then GoTo BlankError
    '過去データアクセスを許可
    mdlMain.gKakoFlg = True
    '表示させる過去データの選択
    frmKako.Show
    '返ってくるメッセージにより分岐
    '給与賞与支払一覧表
    If mdlMain.gReForm = True Then frmItiran.Show
    Exit Sub
    
BlankError:

    MsgBox "給与賞与データがありません。" & vbCrLf & "確認して下さい。", 48 + 0, "給与計算システム"

End Sub

'印刷：給与賞与月別一覧表
Public Sub PrintItiranHyou_Old()

    Dim objws As Worksheet      'ワークシート
    Dim vntDialog As Variant    'ダイアログの戻り値
    
    Set objws = ThisWorkbook.Worksheets("Sheet4")
    objws.Activate
    '用紙を指定
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .PaperSize = xlPaperA4
    End With

    vntDialog = Application.Dialogs(xlDialogPrint).Show
    objws.Range(Cells(5, 1), Cells(65536, 14)).Clear
    Set objws = Nothing
    
    If vntDialog = False Then Exit Sub
    
End Sub