返回列表 上一主題 發帖

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

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

預覽列印.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

        靜思自在 : 要用心,不要操心、煩心。
返回列表 上一主題