EXCELVBA中如何實現(xiàn)不同的表自動選擇不同的打印機進行打印復習進程

1、Good is good, but better carries it.精益求精，善益求善。EXCELVBA中如何實現(xiàn)不同的表自動選擇不同的打印機進行打印-EXCELVBA中如何實現(xiàn)不同的表自動選擇不同的打印機進行打印第1樓：萍水相逢在一個系統(tǒng)里,報表可能有不同的格式,得用不同的打印機(針式或激光),同樣紙張也會有不同的要求,請問如何設置?如何對打印機進行控制?最好給個例子?要不思路也可以,不知能否實現(xiàn)?如“明細表”用針式打印機，其它表用激光打?；蚴窃诖蛴∶骷毐頃r，出現(xiàn)一個選擇打印機的對話窗。第2樓：萍水相逢我找到一段代碼誰能幫我改一下，謝謝Sub更改打印機()Dimprintyb(20),d

2、uankou(20)Fori=1To20printyb(i)=:duankou(i)=Nextii=1strComputer=.:s=SetobjWmi=GetObject(winmgmts:&strComputer&rootcimv2)SetMyPrinters=objWmi.ExecQuery(Select*fromWin32_Printer)ForEachoblistInMyPrintersprintyb(i)=oblist.Name:i=i+1NextIfprintyb(1)=ThenMsgBox你沒有安裝打印機吧？請檢查！ExitSubEndIfSetwshShell=CreateO

3、bject(WScript.Shell)Forj=1Toi-1duankou(j)=Right(wshShell.RegRead(HKEY_CURRENT_USERSoftwareMicrosoftWindowsNTCurrentVersionDevices&printyb(j),5)NextjIfi=2ThenMsgBox你只安裝有一臺打印機，還能更改嗎？ElseIfi=3ThenIfActivePrinter=printyb(1)&在&duankou(1)ThenActivePrinter=printyb(2)&在&duankou(2)ElseActivePrinter=printyb(1

4、)&在&duankou(1)EndIfElseIfi3ThenForj=1Toi-1s=s&j&printyb(j)&vbCrLfNextjt=InputBox(你安裝有兩個以上打印機，請輸入你想指定的打印機序號：&vbCrLf&s,t)Ift=Thent=0DoUntilprintyb(t)t=InputBox(你輸入的序號有錯！請重新輸入打印機的序號：&vbCrLf&s,t)Ift=Thent=0LoopActivePrinter=printyb(t)&在&duankou(t)EndIfMsgBox現(xiàn)在默認打印機是：&Mid(ActivePrinter,1,Len(ActivePrinter)-8)EndSub改成自動選擇第3樓：美猴王PrivateSubWorkbook_BeforePrint(CancelAsBoolean)IfActiveSheet.Name=明細表ThenActivePrinter