VB6 shell 打印

前端之家收集整理的这篇文章主要介绍了VB6 shell 打印前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
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

猜你在找的VB相关文章