Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (Byval hwnd As Long, _
Byval lpOperation As String, Byval lpFile As String, _
Byval lpParameters As String, _
Byval lpDirectory As String, _
Byval nShowCmd As Long) As Long
Const SW_SHOWMAXIMIZED = 3 'Show the opened window maximized
Const SW_SHOWMINIMIZED = 2 'Show the opened window minimized
Const SW_SHOWMINNOACTIVE = 7 'Show the opened window minimized but do not activate the it
Const SW_SHOWNA = 8 'Show the opened window in its current
state but do not activate it
Const SW_SHOWNOACTIVATE = 4 'Show the opened window in its most recent size and position but do not activate it
Const SW_SHOWNORMAL = 1 'Show the opened window and activate it (as usual)
Sub sPrintDoc(Byval strFile As String)
'Given a file, calls ShellExecute to print it
ShellExecute Me.hWnd, "print", strFile, vbNullString, _
vbNullString, SW_SHOWNORMAL
End Sub