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

dou10801

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

Andy2483

回復 1# dou10801


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

下載次數: 14

2024-3-8 16:39

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

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