VB6 shell 打印

发布时间：2020-12-17 07:56:33 所属栏目：百科来源：网络整理

导读：OptionExplicit PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"_ (ByValhwndAsLong,ByVallpOperationAsString,_ ByVallpFileAsString,ByVallpParametersAsString,_ ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong ConstSW_S

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:tempnp.xls","",SW_SHOW) Text1.Text="PrintFinishedwithreturn"+Str(ret) EndSub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!