2個vba問題

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^# 跳轉到 »

發表於 2010-8-7 23:46 | 只看該作者

執行NN看看

學海無涯_不恥下問

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

3^#

發表於 2010-8-7 21:01 | 只看該作者

回復 2# Hsieh

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

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

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

50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 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函數去找答案

學海無涯_不恥下問

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]