On Error Resume Next
'Dim ShowPrinter
'Set ShowPrinter = ScreenItems("mcdC") 'Microsoft Common Dialog Control 6.0 控件
'ShowPrinter.PrinterDefault = True
'ShowPrinter.CancelError = True
'ShowPrinter.ShowPrinter
VBS弹出选择打印机对话框
最新推荐文章于 2024-09-05 21:40:16 发布