[發問] 怎樣將DATA (Sheet 2)的數據搬去INVOICE(Sheet 1)後逐頁列印

Hero2013

各位大大,
小弟又有問題請教囉;P
怎樣將DATA (Sheet 2)的數據搬去INVOICE(Sheet 1)後逐頁列印 ???
感激:P

Hsieh

回復 1# Hero2013

1. Sub PrintData()
   
2. With 工作表2
   
3.    ar = .Range("A1").CurrentRegion
   
4.    r = 3
   
5.    Do Until r > UBound(ar, 1)
   
6.       With 工作表1
   
7.       .[B8] = ar(r, 11)
   
8.       .[C13] = ar(r, 13)
   
9.       .[B15:B18] = Application.Transpose(Array(ar(r, 2), ar(r, 15), ar(r, 16), ar(r, 17)))
   
10.      ' .PrintOut '列印
    
11.       .PrintPreview '預覽列印
    
12.       End With
    
13.       r = r + 1
    
14.     Loop
    
15. End With
    
16. End Sub

複製代碼

Hero2013

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

Hsieh

回復 3# Hero2013

下載 (30.52 KB)

2013-8-12 09:25