- 帖子
- 13
- 主題
- 4
- 精華
- 0
- 積分
- 24
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- SP2
- 閱讀權限
- 10
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2013-2-21
- 最後登錄
- 2021-9-16
|
Hsieh 大大,
謝謝你的回覆, 不過似乎出現Error.
然後小弟就自己嘗試寫, 不如只印了4張, 不知為啥呢:'(
找了很久也找不出原因...............
Sub INV()
Dim i As Integer, R As Integer
Set my_invoice = Worksheets("INVOICE")
Set my_data = Worksheets("PRINT")
With Worksheets("PRINT")
.Activate
R = .Cells(Rows.Count, 1).End(xlUp).Row
End With
i = 3
Do While i <= R
my_invoice.Cells(10, 3) = my_data.Cells(i, 11)
my_invoice.Cells(16, 5) = my_data.Cells(i, 13)
my_invoice.Cells(18, 2) = my_data.Cells(i, 19)
my_invoice.Cells(19, 4) = my_data.Cells(i, 2)
my_invoice.Cells(20, 4) = my_data.Cells(i, 15)
my_invoice.Cells(21, 4) = my_data.Cells(i, 16)
my_invoice.Cells(22, 4) = my_data.Cells(i, 17)
my_invoice.Cells(23, 4) = my_data.Cells(i, 18)
my_invoice.PrintOut
i = i + 1
Loop
End Sub |
|
發表於 2013-8-9 11:14
| 
