In tự động nhiều phiếu

[tuanh]

Chào cả nhà, mình đang làm file in phiếu thu chi. In tự dộng từ phiếu 1 đến 100. Mình dùng VB nhưng trình độ có hạn nên vẫn không in ra được. Nhờ mọi người chỉ sửa lại cho chạy được macro in phiếu nhé. Xin cảm ơn

Sub Button2_Click()
Dim i As Long
Application.ScreenUpdating = False
Sheet5.Select
For i = Range("n1").Value To i = Range("n2").Value
Sheet5.Range("F2") = Sheet5.Range("O1") & i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
End
End Sub
Ô F2 la Số phiếu VD: C1
Ô Ó là C (phiếu chi) minh tach riêng số phiếu và loai phiếu C hay T
N1 va N2 la sô 1 va 3 (tach ra tu C1 đển C3 )
Minh không gửi kèm file dc vi file vuot qua 100kb

 

[vyvba]

mình có 1 sheet1(gồm tên, số tiền) và có khoảng 30 tên và sheet2 mình soạn 1 mẫu liên kết đến sheet1 và khi click vào nút lệnh in thì có thể in được 30 phiếu được không? cho mình xin mã lệnh.

 

[adam_tran]

Chào cả nhà, mình đang làm file in phiếu thu chi. In tự dộng từ phiếu 1 đến 100. Mình dùng VB nhưng trình độ có hạn nên vẫn không in ra được. Nhờ mọi người chỉ sửa lại cho chạy được macro in phiếu nhé. Xin cảm ơn

Sub Button2_Click()
Dim i As Long
Application.ScreenUpdating = False
Sheet5.Select
For i = Range("n1").Value To i = Range("n2").Value
Sheet5.Range("F2") = Sheet5.Range("O1") & i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
End
End Sub
Ô F2 la Số phiếu VD: C1
Ô Ó là C (phiếu chi) minh tach riêng số phiếu và loai phiếu C hay T
N1 va N2 la sô 1 va 3 (tach ra tu C1 đển C3 )
Minh không gửi kèm file dc vi file vuot qua 100kb

Bạn có thể gửi file cho mình xem.
Để vòng lặp chạy 1 lượt các giá trị trong 1 vùng, bạn theo cú pháp

Dim aRange as Range
Dim SingleCell as Range
For each SingleCell in aRange.Cells
(Code ở đây)
.......
Next SingleCell