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

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

論壇贊助勳章

15^#

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

複製代碼

再次感謝幫忙~

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兔年全勤獎章

14^#

發表於 2015-6-11 15:28 | 只看該作者

回復 13# jackson7015
[預覽列印] 可關閉它或是選擇印列,但無法傳回參數供程式作中斷印列或繼續印列的判斷.

且使用:使用視窗的檢視模式切換為分頁符號預覽試試看

Sub Ex()
Dim Rng As Range, Ar(1 To 5), i As Integer, x As Integer
With Sheets("未到期支票標準")
If .Range("B3") = 0 Then
MsgBox "沒有資料可印列 ?"
Exit Sub
End If
ActiveWindow.View = xlPageBreakPreview '使用中視窗的檢視模式切換為分頁符號預覽
Ar(1) = "第一聯"
Ar(2) = "第二聯"
Ar(3) = "第三聯"
Ar(4) = "第四聯"
Ar(5) = "第五聯"
.ScrollArea = "I6:x27"
With .PageSetup
.PrintArea = "I6:x27" '印列範圍 "一張支票的範圍"
.CenterHorizontally = True '如果列印時頁面上的工作表是水平置中的則為 True
.CenterVertically = True '如果列印時頁面上的工作表是垂直置中的則為 True
.PaperSize = xlPaperA4 '設定紙張大小 '可看PaperSize 說明
.FitToPagesWide = 1 '設定頁寬=1頁
.FitToPagesTall = 1 '設定頁高=1頁
End With
For i = 1 To .[B3]
Set Rng = .Range("C6:g6").Offset(i)
.Range("L12") = Rng(1, 1) '票據號碼
.Range("M12") = Rng(1, 2) '金額
.Range("O12") = Rng(1, 3) '年
.Range("P12") = Rng(1, 4) '月
.Range("Q12") = Rng(1, 5) '日
.Range("X10") = Ar(1)
If MsgBox(.Range("L12") & " 印列", vbYesNo, "票據號碼") = vbYes Then
For x = 1 To 5
.Range("X10") = Ar(x)
.PrintOut Copies:=1 '一張支票的範圍印列五次
Next
End If
Next
.ScrollArea = ""
End With
ActiveWindow.View = xlNormalView
End Sub

複製代碼

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

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

論壇贊助勳章

13^#

發表於 2015-6-9 17:02 | 只看該作者

回復 12# GBKEE

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

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

再次感謝大大的幫忙:D

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兔年全勤獎章

12^#

發表於 2015-6-8 15:24 | 只看該作者

回復 11# jackson7015

試試看

Ex.rar (120.47 KB)

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

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

論壇贊助勳章

11^#

發表於 2015-6-8 08:15 | 只看該作者

回復 10# GBKEE

感謝GBKEE版主回覆

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

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

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

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元的贊助,人人有能力.

帖子: 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 '預覽列印

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