麻辣家族討論版版 » Excel程式區 » 關於預覽列印或直接列印

返回列表下一主題上一主題發帖

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

大學生 Rank: 4

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2023-10-27 23:27 | 顯示全部帖子

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

預覽列印.rar (24.86 KB)

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

樓主熱帖

收藏

大學生 Rank: 4

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

2^#

發表於 2023-10-28 14:00 | 顯示全部帖子

回復 2# Andy2483

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

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

大學生 Rank: 4

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

3^#

發表於 2023-10-28 14:50 | 顯示全部帖子

回復 4# Andy2483

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

大學生 Rank: 4

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

4^#

發表於 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

複製代碼

大學生 Rank: 4

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

5^#

發表於 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), "/")
很多巧思，謝謝准大的用心，萬分感謝！

大學生 Rank: 4

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

6^#

發表於 2023-10-29 15:40 | 顯示全部帖子

回復 9# 准提部林

研究了一下，有個地方想請教准大，
For Each A In SR
Sheets(A & "").PrintOut Copies:=PG
Next

這段的""的意思，感謝准大抽空解題，我也會在網上持續找答案的。

大學生 Rank: 4

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

7^#

發表於 2023-10-29 17:06 | 顯示全部帖子

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

回復 12# 准提部林

原來如此，受益良多，萬分感謝~所以使用""是為了準確列印以工作表名稱的頁面，
准大的寫法算是對於不擅長陣列的我很能看懂，陣列可以簡短撰寫的長度，這是我不足必須去進修的。

大學生 Rank: 4

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

8^#

發表於 2023-10-30 20:57 | 顯示全部帖子

本帖最後由 av8d 於 2023-10-30 21:04 編輯

回復 14# Andy2483

謝謝前輩的用心，這註解我受用無窮，讓我的知識領域更進一步(絕對不止一步)，
這些超級詳細的註解，讓原本懵懵懂懂的我，更為精進許多，由衷感謝！
前輩的雪中送炭真的是非常感謝。

大學生 Rank: 4

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

9^#

發表於 2023-11-4 15:57 | 顯示全部帖子

本帖最後由 av8d 於 2023-11-4 16:01 編輯

回復 16# Andy2483

前輩您好，我剛好有用到，單純使用下，不知道錯在哪裡，還請前輩提示，謝謝

垂直並排顯示.rar (16.33 KB)

開啟活頁簿1時，會自動開啟活頁簿2，並將兩個活頁簿垂直並排顯示。
但是垂直並排顯示並沒有成功。(預計希望活頁簿1在左邊，活頁簿2在右邊)

大學生 Rank: 4

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

10^#

發表於 2023-11-4 23:13 | 顯示全部帖子

本帖最後由 av8d 於 2023-11-4 23:28 編輯

回復 18# Andy2483

已另外發問，並持續在尋找答案中，
前輩精益求精的學習方式，讓我從中受益無窮，由衷感謝您的分享！

112/11/4 23:27 已解答(代碼如下)

Application.Windows.Arrange ArrangeStyle:=xlArrangeStyleTiled

複製代碼

靜思自在 : 原諒別人就是善待自己。

返回列表下一主題上一主題