返回列表 上一主題 發帖

[發問] 有關這種表格

diolin

帖子
65 
主題
0 
精華
0 
積分
64 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2011-11-10 
最後登錄
2019-2-27 
1# 跳轉到 »
發表於 2015-2-4 15:02 | 顯示全部帖子
回復 1# problem909

大概是這樣

    Private Sub CommandButton1_Click()
    Dim i As Long
   
    For i = [V8] To [X8]
        [N3] = i
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Next i
End Sub

TOP

diolin

帖子
65 
主題
0 
精華
0 
積分
64 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2011-11-10 
最後登錄
2019-2-27 
2#
發表於 2015-2-5 15:15 | 顯示全部帖子
回復 3# problem909

CommandButton1 是我拉出來的按鈕名字

把裡面的 code 放在你"列印"的那個裡就好了

TOP

diolin

帖子
65 
主題
0 
精華
0 
積分
64 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2011-11-10 
最後登錄
2019-2-27 
3#
發表於 2015-2-25 10:19 | 顯示全部帖子
回復 6# problem909

在上面按右鍵 -> 指定巨集 -> 新增

TOP

        靜思自在 : 不要隨心所欲，要隨心教育自己。
返回列表 上一主題