2010-08-24 79 views

回答

0

最后我公司生产是这样的(简化):

set objPrnDlg = CreateObject("MSComDlg.CommonDialog") 
objPrnDlg.PrinterDefault = True 
objPrnDlg.ShowPrinter 

set objShell = CreateObject("Shell.Application") 
set objFolder = objShell.Namespace(path-to-files) 
set colItems = objFolder.Items 
for each objItem In colItems 
    objItem.InvokeVerbEx ("Print") 
next