2個vba問題

basarasy

1.  我寫了一個  列印1次.   但如何加多1句  if 找不到列印機 就出 msgbox找不到列印機 end.

2. 如何寫  a1=2010/8/7   b1=11:45   當a1和b1=電腦的時間 時  excel就會發出music 和彈出  msgbox 時間到 (excel 最細化時,可以令msgbox在桌面右下角見到)

請大大門指導><

Hsieh

回復 1# basarasy

1. Sub NN()
   
2. If IsNumeric(Application.Match(Split(ActivePrinter, " on")(0), Printer_List, 0)) Then
   
3. ActiveSheet.PrintOut
   
4. Else
   
5. MsgBox "找不到印表機"
   
6. End If
   
7. End Sub
   
8. Function Printer_List() As Variant
   
9. '設定引用項目Microsoft Shell Controls And Automation
   
10. Dim MySh As Shell32.Shell
    
11. Dim MyPrinter As Shell32.FolderItem
    
12. Dim Ar()
    
13. Set MySh = CreateObject("Shell.Application")
    
14. For Each MyPrinter In MySh.Namespace(ssfPRINTERS).Items
    
15.   If MyPrinter.Name <> "新增印表機" Then
    
16.      ReDim Preserve Ar(s)
    
17.        Ar(s) = MyPrinter.Name
    
18.        s = s + 1
    
19.   End If
    
20. Next
    
21. Printer_List = Ar
    
22. End Function

複製代碼

問題2應該是由Windows來控制可從API函數去找答案

basarasy

回復 2# Hsieh

謝謝大大
但不知放在那裡><

可以這樣寫嗎?
Sheet2.Select
if  找不到列印機 then
msgbox 沒有列印機
end
else
ActiveSheet.PrintOut from:=1, To:=1, copies:=1

紅色那句我不知如何寫><

Hsieh

執行NN看看

GBKEE

回復 1# basarasy
第2個問題 請試試 附檔



巨集需求.rar (17.35 KB)

下載次數: 12

2010-8-8 11:24

basarasy

回復 5# GBKEE

用了之後不能關音樂><

PD961A

回復  GBKEE

用了之後不能關音樂>
basarasy 發表於 2010-8-8 13:33

   您貼錯圖..問到第一個列印機的問題

GBKEE

回復 6# basarasy
Hsieh 板主的程式碼 要先 '設定引用項目Microsoft Shell Controls And Automation

登出WINDOWS 後再進入就可以關閉
請再重新開啟EXCEL 進入 VBA 視窗中
有兩處  ' IE.Visible = True     請刪掉  '
執行 IE.Visible = True  的程式碼   如此程式有錯誤 就可以關閉

PD961A

回復  basarasy
Hsieh 板主的程式碼 要先  '設定引用項目Microsoft Shell Controls And Automation

登 ...
GBKEE 發表於 2010-8-8 14:08

版主請問您照您的步驟後
    登出WINDOWS 後再進入就可以關閉
請再重新開啟EXCEL 進入 VBA 視窗中
有兩處  ' IE.Visible = True     請刪掉  '
執行 IE.Visible = True  的程式碼   如此程式有錯誤 就可以關閉

程式碼不能執行 步驟有不對的地方嗎?謝謝您

下載 (42.9 KB)

2010-8-8 14:38

GBKEE

回復 9# PD961A
我有時也會碰到 可能是系統的關係
重新下載檔案存檔後 試試看

我想起來了
設定引用的項目中 ->取消 遺漏的專案