Tạo macro in Sổ Cái từng tài khoản ?

[laianhtu]

Các bạn cho tôi hỏi làm thế nào để tạo một macro để assign macro này cho việc in liên tục các tài khoản từ sổ cái ?

Ví dụ: chọn vào nút " In liên tục TK" thì macro sẽ thực hiện việc in liên tục từ tài khoản 1111 đến tài khoản 911.

Cám ơn.

Anh Tu

 

[sealand]

Bạn thử dùng Code sau:

Sub in_lt()
With sheet6
For i = o To .ComboBox1.ListCount - 1
.ComboBox1.ListIndex = i
.PrintOut Copies:=1, Collate:=True
Next
end with
End Sub

Nguyên tắc: chọn lần lượt từng TK trong Cmbo và in (Code thiếu reset lọc và kiểm tra)

 

[cadafi]

Các bạn cho tôi hỏi làm thế nào để tạo một macro để assign macro này cho việc in liên tục các tài khoản từ sổ cái ?

Ví dụ: chọn vào nút " In liên tục TK" thì macro sẽ thực hiện việc in liên tục từ tài khoản 1111 đến tài khoản 911.

Cám ơn.

Anh Tu

Anh xem file đính kèm nha! (Sorry nha, bận quá nên quên mất, hôm nào tạ lỗi sau nhé)
Đây là đoạn code để làm việc này:

Sub InLienTuc()
Dim iR As Long, iZ As Long
iR = Sheets("CDPS").[A65536].End(xlUp).Row
For iZ = 6 To iR
Range("ma_sc").Value = Sheets("CDPS").Cells(iZ, 1).Value
    Sheets("SoCai").[10:10].AutoFilter Field:=7, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next iZ
End Sub

 

[sealand]

Mình hiệu chỉnh Code để kiểm tra khi không có phát sinh thì bỏ qua:

Sub print_all()
For i = 0 To Sheet6.ComboBox1.ListCount - 1
Sheet6.ComboBox1.ListIndex = i
  Sheet6.Range("A10:G995").AutoFilter Field:=7, Criteria1:="<>"
If Sheet6.Range("E996") + Sheet6.Range("F996") <> 0 Then
Sheet6.PrintOut Copies:=1, Collate:=True
End If
Next
End Sub

Code này kiểm tra và chỉ những TK sau có PS và được in: 1111-1424-334-627111-64211-6422-64271-64283