返回列表 上一主題 發帖

[發問] 製作三聯式收費單請益

dou10801

帖子
152 
主題
45 
精華
0 
積分
239 
點名
232  
作業系統
WIN10 
軟體版本
2010 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2011-6-21 
最後登錄
2026-10-3 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2024-3-7 15:30 | 只看該作者

[發問] 製作三聯式收費單請益

如何用固定套表模組,產生三聯式,收費單,感恩.

收費單.rar (15.34 KB)

收藏 分享
杜小平

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
2#
發表於 2024-3-8 16:39 | 只看該作者
回復 1# dou10801


    謝謝前輩發表此主題與範例
後學藉此帖練習VBA控制分頁列印,方案如下,請前輩參考
收費單_20240308.zip (251.42 KB)

Option Explicit
Sub TEST()
Application.ScreenUpdating = False: Application.DisplayAlerts = False
Dim Brr, i&, xR As Range
Brr = Range([學生名冊!C2], [學生名冊!A65536].End(3))
With Sheets("結果")
   .UsedRange.EntireRow.Delete: Set xR = .[A1]
   For i = 1 To UBound(Brr)
      [模版套表!D3] = Brr(i, 1): [模版套表!K3] = Brr(i, 2): [模版套表!P3] = Brr(i, 3)
      [模版套表!1:15].Copy xR: Set xR = xR(16)
      [模版套表!1:15].Copy xR: xR(5, 28) = "第二聯自留": Set xR = xR(16)
      [模版套表!1:14].Copy xR: xR(5, 28) = "第三聯收據": Set xR = xR(15)
      xR.PageBreak = xlPageBreakManual
   Next
   .UsedRange.Interior.ColorIndex = xlNone
   .Names.Add Name:="PrintArea", RefersTo:=Range(.[A1], xR(0, 28)): .PageSetup.PrintArea = "PrintArea"
   .Activate: MsgBox "執行完成"
End With
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

dou10801

帖子
152 
主題
45 
精華
0 
積分
239 
點名
232  
作業系統
WIN10 
軟體版本
2010 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2011-6-21 
最後登錄
2026-10-3 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章
3#
發表於 2024-3-11 08:30 | 只看該作者
回復 2# Andy2483
Andy2483前輩指導,大方向己完成,小細節自行學習完成感恩.
杜小平

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題