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:

• Có file ứng dụng excel quản lý kho
• Hỏi: VAT đầu ra?
• QLK bằng excel đã chỉnh thêm Row
• Sổ sách kế toán hình thức nhật ký chung nè bà con
• Phần mềm kế toán excel rất hay theo Quyết định 48
• Các bạn học kết toán máy ở đâu?
• Nhờ Các cao thủ ra tay để em có thể xuống núi....
• File quy đổi lương net sang gross khi tính thuế TNCN => download now
• Phần mềm sổ sách bằng excel TT200
• Cách đổi số ra chữ trong Excel

[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