в декларэйшене
'//********************************************************************************
**
'// ShellExecute
'//******************************************
Private Const SW_SHOWNORMAL = 1
Declare Private 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
'//********************************************************************************
**
И далее:
' Печатает файл, полный путь к которому передается в path
ShellExecute ( hwnd, "Print", path, "", "", SW_SHOWNORMAL )
Ну а как выложить файл на диск из документа, я надеюсь разберетесь