返回列表 上一主題 發帖

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

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

預覽列印.rar (24.86 KB)

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

回復 1# av8d


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

預覽列印_20231028.zip (31.95 KB)

點選核取方塊>跳出表單:
20231028-1.jpg
2023-10-28 11:05


選取清單 總表 項做預覽列印:
20231028-2.jpg
2023-10-28 11:06


選取清單 工作表1 項做預覽列印:
20231028-3.jpg
2023-10-28 11:07
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

回復 2# Andy2483

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

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

TOP

回復 3# av8d


    主題是要全部印 (最後一個工作表以外的工作表),所以表單中的複選功能不會改變全部印的結果
如果 清單選取的工作表名 才需要印? 需要再斟酌一下
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

回復 4# Andy2483

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

TOP

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

TOP

回復 6# 准提部林

謝謝准大,目前無印表機可測,但是前輩有寫在列印按鈕中
  1. Dim i%, j%
  2. If Val(TextBox1) = 0 Then MsgBox "請輸入列印份數": Exit Sub
  3. Unload Me
  4. For j = 1 To Val(TextBox1)
  5.    For i = 1 To UBound(A)
  6.       Sheets(A(i)).PrintOut
  7.    Next
  8. Next
複製代碼

TOP

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

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

2.再跳出要後學2樓預覽列印表單操作(螢幕右下)
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

單選/複選/全選...其實都同一件事
Xl0000070.rar (20.2 KB)

TOP

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

回復 9# 准提部林

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

TOP

        靜思自在 : 脾氣嘴巴不好,心地再好也不能算是好人。
返回列表 上一主題