標題: [發問] 列印表單不同資料 [打印本頁]

---

作者: 霸氣走全身    時間: 2012-3-26 20:42     標題: 列印表單不同資料

請問大大
如附件
可以一張表單
就可以列印多張的資料嗎
多張不同的資料(顧客、番號)
不需要複製表單，用連結的
[attach]10159[/attach]
謝謝了^^

---

作者: register313    時間: 2012-3-26 22:13

回復 1# 霸氣走全身
試試看

1. Sub xx()
   
2. For Each R In Range([C5], [C65536].End(xlUp))
   
3.   Sheets("自主列印").[B2] = R
   
4.   Sheets("自主列印").[B3] = R.Offset(0, 1)
   
5.   Sheets("自主列印").Select
   
6.   ActiveWindow.SelectedSheets.PrintOut From:=1, To:=[R3], Copies:=1, Collate:=True
   
7. Next
   
8. End Sub

複製代碼

---

作者: 霸氣走全身    時間: 2012-3-27 19:40

回復 2# register313


    謝謝你阿~~可以了^^

---

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