返回列表 上一主題 發帖

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

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

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

收費單.rar (15.34 KB)

杜小平

回復 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

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

TOP

        靜思自在 : 能善用時間的人,必能掌握自己努力的方向。
返回列表 上一主題