返回列表 上一主題 發帖

[發問] 多工作表SHEET選擇SHEET列印之問題請教

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-7-13 14:17 | 只看該作者

[發問] 多工作表SHEET選擇SHEET列印之問題請教

DEAR ALL 大大
1.多工作表SHEET選擇SHEET列印之問題請教 - 說明如下
  1.1 SHEET1 為列印工作表畫面
          SHEET2 - SHEET10為 需選擇性列印之工作表
       1.1.1 如何於 SHEET1 列印工作表畫面執行一自訂功能鍵後秀出  SHEET2-SHEET10需列印之工作表中文名稱
                    供經辦選取需列印之工作表與可一次ALL列印之工作表功能鍵.
           1.1.1.1 例-經辦可自行選取列印 SHEET2  SHEET4  SHEET10  或  選取 ALL列印
2.煩不吝賜教  THANKS   *10000
收藏 分享
羅

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2015-7-14 11:10 | 只看該作者
小弟研究後先於儲存格選取工作表是否列印後再執行如下-已可運作THANKS
Sub Ex()
    Dim i As Integer
    For i = 2 To 5
    If Sheet1.Cells(i, 3) - 1 = 0 Then
    Sheets(i).PrintOut
    End If
    Next
    If Sheet1.Cells(1, 1) - 0 = 0 Then
    MsgBox "需選取列印工作表名稱後方可執行列印"
    End If
End Sub
羅

TOP

Farnsworth

帖子
50 
主題
9 
精華
0 
積分
65 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2016 
閱讀權限
20 
註冊時間
2015-6-2 
最後登錄
2024-3-6 
3#
發表於 2015-7-14 17:28 | 只看該作者
回復 2# rouber590324

我試過了，旦程序出錯，我找不出原因啊！

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2015-7-14 21:56 | 只看該作者
回復 2# rouber590324

試試看附件
選擇列印.rar (24.98 KB)
學海無涯_不恥下問

TOP

        靜思自在 : 欣賞別人就是莊嚴自己。
返回列表 上一主題