- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 168
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-7-12
               
|
回復 1# Hero2013 - Sub PrintData()
- With 工作表2
- ar = .Range("A1").CurrentRegion
- r = 3
- Do Until r > UBound(ar, 1)
- With 工作表1
- .[B8] = ar(r, 11)
- .[C13] = ar(r, 13)
- .[B15:B18] = Application.Transpose(Array(ar(r, 2), ar(r, 15), ar(r, 16), ar(r, 17)))
- ' .PrintOut '列印
- .PrintPreview '預覽列印
- End With
- r = r + 1
- Loop
- End With
- End Sub
|
|
發表於 2013-8-9 13:49
| 
