[發問] 如何依據儲存格函數判斷列印範圍?

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

2^#

發表於 2014-4-9 16:05 | 顯示全部帖子

回復 2# yen956

感謝yen956前輩的指導

想請教的是列印所有的部分
是否可以更改成[B3]=31的時候列印部分為1~31的五聯單 ?

因為好像會牽涉到頁數部分
就是列印出來的1~5頁是第一份五聯單、6~10頁為第二份五聯單...類推
所以不曉得該更改哪些部分

想請大大們幫忙一下，感激不盡~

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

3^#

發表於 2014-4-10 15:33 | 顯示全部帖子

本帖最後由 jackson7015 於 2014-4-10 15:41 編輯

回復 4# yen956
回復 5# GBKEE

感謝版大和前輩們的協助
今天研究了一天
愚鈍的我一直不曉得該把程式法放在哪個地方
有放置到工作表單1內的時候，可以動作
但是造成點擊到[B3]就會執行程式碼
其他試過放在物件、表單、模組..內的程式碼都沒有反應
且程式碼執行時，無法預覽列印
只有直接列印出來才能知道是否正確(花了蠻多張紙的...)

是否指導小弟該正確放在何處...感激不盡...:L

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

4^#

發表於 2014-4-11 16:20 | 顯示全部帖子

回復 7# GBKEE

感謝GBKEE版大的指導
原本以為是會以Workbook_BeforePrint，所以才搞混了
重新查看了一遍網站上的舊文，慢慢瞭解編譯的方式了

巨集運作得很完美，再次感謝版上的大大們的幫忙
謝謝~

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

5^#

發表於 2015-6-5 08:46 | 顯示全部帖子

回復 7# GBKEE

不好意思，想再請GBKEE大大幫忙看一下

因之前都直接手KEY，最近才開始使用此程式
發現了一些問題

列印範圍的部份有錯誤
第一聯要從J:X；第二聯要從Y:AN；類推..

列印部分變成第一聯的J:W有五份
應該要1~5聯各一份，每聯的列印範圍為22R*16C

執行列印前無法先執行ActiveSheet.PrintPreview '預覽列印

再請大大幫忙看看要更改哪些部分

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

6^#

發表於 2015-6-8 08:15 | 顯示全部帖子

回復 10# GBKEE

感謝GBKEE版主回覆

附檔資料在第44列開始還有資料，共到791列
因每聯沒有標註聯號，所以要在最後欄位標註聯號，共計五聯
在依據票數資料來決定列印份數，每份五聯

最後附上新的格式，一樣是第44列開始有格式

未到期支票5聯標準.rar (468.37 KB)

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

7^#

發表於 2015-6-9 17:02 | 顯示全部帖子

回復 12# GBKEE

感謝GBKEE版主幫忙
測試6.7次後，皆可正常運作

不過1.2次會發生公式沒有帶入的情況，內容會出現000000的狀況
研究了一下程式的部分，好像不好帶入預覽列印的部分

再次感謝大大的幫忙:D

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

8^#

發表於 2015-6-15 09:19 | 顯示全部帖子

回復 14# GBKEE

感謝GBKEE版主的詳細協助
讓小弟有個另個方向思考
原本想試試看使用MsgBox把所有要列印的份數資訊一次顯示，不過做不出來
就把版主所提供的單筆資訊做詳細整理

If MsgBox(" 票據號碼：" & Range("L12") & Chr(13) & " 日期：" & Range("O12") & " 年 " & Range("P12") & " 月 " & Range("Q12") & " 日 " & Chr(13) & " 金額：" & Range("M12") & " 元", vbYesNo, "票據明細") = vbYes Then

複製代碼

再次感謝幫忙~