麻辣家族討論版版 - Powered by Discuz! Board

標題: 2個vba問題 [打印本頁]

作者: basarasy 時間: 2010-8-7 10:58 標題: 2個vba問題

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

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

請大大門指導><

作者: Hsieh 時間: 2010-8-7 19:46

本帖最後由 Hsieh 於 2010-8-7 23:45 編輯

回復 1# basarasy

Sub NN()
If IsNumeric(Application.Match(Split(ActivePrinter, " on")(0), Printer_List, 0)) Then
ActiveSheet.PrintOut
Else
MsgBox "找不到印表機"
End If
End Sub
Function Printer_List() As Variant
'設定引用項目Microsoft Shell Controls And Automation
Dim MySh As Shell32.Shell
Dim MyPrinter As Shell32.FolderItem
Dim Ar()
Set MySh = CreateObject("Shell.Application")
For Each MyPrinter In MySh.Namespace(ssfPRINTERS).Items
If MyPrinter.Name <> "新增印表機" Then
ReDim Preserve Ar(s)
Ar(s) = MyPrinter.Name
s = s + 1
End If
Next
Printer_List = Ar
End Function

複製代碼

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

作者: basarasy 時間: 2010-8-7 21:01

回復 2# Hsieh

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

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

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

作者: Hsieh 時間: 2010-8-7 23:46

執行NN看看

作者: GBKEE 時間: 2010-8-8 11:24

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

[attach]2289[/attach]

作者: basarasy 時間: 2010-8-8 13:33

回復 5# GBKEE

用了之後不能關音樂><

作者: PD961A 時間: 2010-8-8 13:48

回復 GBKEE

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

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

作者: GBKEE 時間: 2010-8-8 14:08

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

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

作者: PD961A 時間: 2010-8-8 14:39

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

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

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

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

[attach]2292[/attach]

作者: GBKEE 時間: 2010-8-8 14:47

本帖最後由 GBKEE 於 2010-8-8 14:56 編輯

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

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

作者: basarasy 時間: 2010-8-9 19:27

回復 8# GBKEE

設定引用項目不知什麼用><

作者: PD961A 時間: 2010-8-9 19:52

回復 11# basarasy

[attach]2313[/attach]

作者: basarasy 時間: 2010-8-10 17:32

回復 12# PD961A

謝謝PD961A大大^^

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)