OptionExplicit PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"_ (ByValhwndAsLong,ByVallpOperationAsString,_ ByVallpFileAsString,ByVallpParametersAsString,_ ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong ConstSW_SHOW=5 PrivateSubForm_Load() EndSub PrivateSubPrint_Click() DimretAsInteger ret=ShellExecute(Me.hwnd,"print","c:\temp\np.xls","",SW_SHOW) Text1.Text="PrintFinishedwithreturn"+Str(ret) EndSub 原文链接：https://www.f2er.com/vb/258061.html