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

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

論壇贊助勳章

3^#

發表於 2014-4-9 16:05 | 只看該作者

回復 2# yen956

感謝yen956前輩的指導

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

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

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

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

4^#

發表於 2014-4-9 16:47 | 只看該作者

回復 3# jackson7015
試試看:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r1, r2 As Integer, rng As Range
Set rng = Worksheets("支票").[B3]
If Not Intersect(Target, rng) Is Nothing Then
For i = 1 To [B3]
r1 = i * 22 + 22: r2 = i * 22 + 43
ActiveSheet.PageSetup.PrintArea = _
"$I$" & r1 & ":$W$" & r2 & ",$Y$" & r1 & ":$AM$" & r2 & ",$AO$" & r1 & ":$BC$" & r2 _
& ",$BE$" & r1 & ":$BS$" & r2 & ",$BU$" & r1 & ":$CI$" & r2
Next
End If
End Sub

複製代碼

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2014-4-9 18:45 | 只看該作者

回復 3# jackson7015

'支票工作表模組的程式碼
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$3" And [B3] > 0 Then
If MsgBox("印列支票 " & Target & "筆", vbYesNo + vbInformation) = vbYes Then
Sheet_PageSetup
Sheet_PrintOut
End If
End If
End Sub
Private Sub Sheet_PageSetup() '印列的設定
With PageSetup
.PrintArea = "$I$44:$W$65" '印列範圍 "一張支票的範圍"
.CenterHorizontally = True '如果列印時頁面上的工作表是水平置中的則為 True
.CenterVertically = True '如果列印時頁面上的工作表是垂直置中的則為 True
.PaperSize = xlPaperB4 '設定紙張大小 '可看PaperSize 說明
.FitToPagesWide = 1 '設定頁寬=1頁
.FitToPagesTall = 1 '設定頁高=1頁
End With
End Sub
Private Sub Sheet_PrintOut()
For I = 1 To [B3]
[L50] = Cells(I + 6, "C")
[M50] = Cells(I + 6, "D")
[O50] = Cells(I + 6, "E")
[P50] = Cells(I + 6, "F")
[Q50] = Cells(I + 6, "G")
PrintOut Copies:=5 '"一張支票的範圍" 印列五聯單
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

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

論壇贊助勳章

6^#

發表於 2014-4-10 15:33 | 只看該作者

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

回復 4# yen956
回復 5# GBKEE

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

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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2014-4-10 15:46 | 只看該作者

回復 6# jackson7015

支票工作表模組的程式碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

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

論壇贊助勳章

8^#

發表於 2014-4-11 16:20 | 只看該作者

回復 7# GBKEE

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

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

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

論壇贊助勳章

9^#

發表於 2015-6-5 08:46 | 只看該作者

回復 7# GBKEE

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

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

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

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

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

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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2015-6-7 14:54 | 只看該作者

回復 9# jackson7015
列印範圍的部份有錯誤
第一聯要從J:X；第二聯要從Y:AN；類推..
列印部分變成第一聯的J:W有五份
應該要1~5聯各一份，每聯的列印範圍為22R*16C

你1樓的附檔,資料只有A:H 欄有資料可以重新附檔說明看看嗎.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.