返回列表 上一主題 發帖

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

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
1# 跳轉到 »
發表於 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

        靜思自在 : 要比誰更受誰．不要比誰更怕誰。
返回列表 上一主題