Attribute VB_Name = "mduGlobal"
Option Explicit

Public Function GetAppPath() As String
    If Right(App.Path, 1) = "\" Then
        GetAppPath = App.Path
    Else
        GetAppPath = App.Path & "\"
    End If
End Function

'獲取打印編號
Public Function GetPrintID() As Long

End Function

'格式化打印編號
Public Function FormatPrintNo(ByVal pID As Long) As String
Const sNo = "No 0000000"
Dim s As String
    s = Format(pID)
    FormatPrintNo = Left(sNo, Len(sNo) - Len(s)) & s
End Function