Mọi người xem giúp đoạn code để in phiếu thu chi

[skyxd88]

Mình làm thế nào mà lúc in ra nó toàn bị lỗi. SQ.rar

View more random threads:

• kế toán nhà hàng
• cách tạo macro trong excel
• Phần mền KT excel theo QD 48 cho DN sản xuất
• Đổi số thành chữ
• Giúp tính tổng !
• Kế toán trên Excel và PM chuyên dùng
• Quản lý kho hàng và phiếu xuất kho, nhập kho
• Mẫu excel nhật ký- sổ cái & chứng từ ghi sổ
• Hướng dẫn lập công thức
• cách lọc sổ cái chi tiết các tài khoản

[talkmylove]

Ðề: Mọi người xem giúp đoạn code để in phiếu thu chi

Lỗi gì có thấy đâu?
Gợi ý thêm : phần phiếu thu, chi liên 2 lấy theo giá trị của liên 1, khong cần dùng hàm VLOOKUP làm gì
Thân

Oh, thấy rùi

Sub InCT()
    Dim n As Integer
    Dim i As Integer
    Dim Sh As Worksheet
    Dim Sc As Worksheet
    Set Sh = Sheets("in")
    Set Sc = Sheets("PC")
    n = Sh.Range("A10000").End(xlUp).Row
    For i = 3 To n
        Sc.Range("F6") = Sh.Range("A" & i)
        Sc.PrintOut , , Coppies:=1
    Next
End Sub