返回列表 上一主題 發帖

[發問] 多工作表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

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題