av8d

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2023-10-27 23:27 | 只看該作者

[發問] 關於預覽列印或直接列印

預覽列印.rar (24.86 KB)

目前進度：勾選預覽列印後，會自動選取最後一個工作表以外的工作表
進入預覽列印，份數2
但是這部分無法實現，搜尋了沒有結果
只搜尋到直接列印，但是不知道如何下指令，請問是否有前輩知道，謝謝！

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1478
主題: 40
精華: 0
積分: 1502
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-10-23

2^#

發表於 2023-10-28 11:09 | 只看該作者

回復 1# av8d

謝謝前輩發表此主題與範例,後學藉此帖學習自訂表單
自訂表單是另一領域學問,初學的練習範例,請前輩參考
表單控制得不好,請各位前輩指教

預覽列印_20231028.zip (31.95 KB)

點選核取方塊>跳出表單:

選取清單總表項做預覽列印:

選取清單工作表1 項做預覽列印:

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

3^#

發表於 2023-10-28 14:00 | 只看該作者

回復 2# Andy2483

預覽列印_20231028(新增).rar (32.31 KB)

受到前輩多次提攜與幫助，裡面包含許多元素都是我需要學習的，我已改寫成可以複選的功能(感謝前輩已鋪路)
希望前輩有空的時候能過目及提點，萬分感謝。

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1478
主題: 40
精華: 0
積分: 1502
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-10-23

4^#

發表於 2023-10-28 14:26 | 只看該作者

回復 3# av8d

主題是要全部印 (最後一個工作表以外的工作表),所以表單中的複選功能不會改變全部印的結果
如果清單選取的工作表名才需要印? 需要再斟酌一下

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

5^#

發表於 2023-10-28 14:50 | 只看該作者

回復 4# Andy2483

謝謝前輩提醒，的確是有一個不印，因為要當操作用的頁面(未來會有很多按鈕)，祝順心。

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-10-18

6^#

發表於 2023-10-28 15:32 | 只看該作者

不管單選/複選/全選...要迴圈針對選取列印, 否則沒意義

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

7^#

發表於 2023-10-28 18:34 | 只看該作者

回復 6# 准提部林

謝謝准大，目前無印表機可測，但是前輩有寫在列印按鈕中

Dim i%, j%
If Val(TextBox1) = 0 Then MsgBox "請輸入列印份數": Exit Sub
Unload Me
For j = 1 To Val(TextBox1)
For i = 1 To UBound(A)
Sheets(A(i)).PrintOut
Next
Next

複製代碼

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1478
主題: 40
精華: 0
積分: 1502
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-10-23

8^#

發表於 2023-10-29 07:33 | 只看該作者

本帖最後由 Andy2483 於 2023-10-29 08:10 編輯

回復 7# av8d
A是陣列（工作表名）,不是清單選取項目，視需求做修改
建議做兩個表單：
1.先複選或全選要印的工作表名確認（螢幕中間）
A陣列裝這些清單選取的工作表名

2.再跳出要後學2樓預覽列印表單操作（螢幕右下）

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-10-18

9^#

發表於 2023-10-29 11:13 | 只看該作者

單選/複選/全選...其實都同一件事

Xl0000070.rar (20.2 KB)

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

10^#

發表於 2023-10-29 12:46 | 只看該作者

本帖最後由 av8d 於 2023-10-29 13:13 編輯

回復 9# 准提部林

原來還能多選一次預覽，讓我所學又更進一步，陣列真的我的弱點。
准大寫得非常淺顯易懂，尤其是這個是我完全想不到的
ListBox1.Selected(i) = CheckBox1.Value
SN = SN & "/" & ListBox1.List(i)
SR = Split(Mid(SN, 2), "/")
很多巧思，謝謝准大的用心，萬分感謝！

TOP