標題: [發問] 製作三聯式收費單請益 [打印本頁]

---

作者: dou10801    時間: 2024-3-7 15:30     標題: 製作三聯式收費單請益

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

---

作者: Andy2483    時間: 2024-3-8 16:39

回復 1# dou10801


    謝謝前輩發表此主題與範例
後學藉此帖練習VBA控制分頁列印,方案如下,請前輩參考
[attach]37576[/attach]

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

---

作者: dou10801    時間: 2024-3-11 08:30

回復 2# Andy2483
Andy2483前輩指導,大方向己完成,小細節自行學習完成感恩.

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)