[發問] 列印表單不同資料

　暱稱: 加菲貓

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-3-26 20:42 | 只看該作者

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

列印表單.rar (19.81 KB)
謝謝了^^

　頭銜: 麻辣路人甲

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-3-26 22:13 | 只看該作者

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

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

複製代碼

　暱稱: 加菲貓

3^#

發表於 2012-3-27 19:40 | 只看該作者

回復 2# register313

謝謝你阿~~可以了^^

靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。