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

[levanninh]

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

 

[anhphuong81]

Ðề: 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

 

[mr_tranthuc]

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

CÔNG TY CỔ PHẦN IN HÀ NỘI
Khai trương văn phòng giao dịch tại số 475 Nguyễn Khang - Cầu Giấy - Hà Nội
Với nhiều ưu đãi cho khách hàng đặt in hóa đơn VAT và các sản phẩm in trên giấy khác.
-Tư vấn miễn phí về thủ tục đặt in và phát hành.
-Miễn phí thiết kế.
-Miễn phí giao hàng.
-Chất lượng - Uy tín.
Quý khách hàng có nhu cầu xin liên hệ ngay để có nhiều ưu đãi nhất !
Liên hệ:
VPGD: Số 475 Nguyễn Khang - Cầu Giấy - Hà Nội
ĐT: 04.6293 5552 - Hotline: 0973 228 498 - 0942 325 317
Email: hoadonhanoi@gmail.com
Website: inhoadonhanoi.net

Ngoài ra Công ty, cá nhân nào có nhu cầu in các sản phẩm như: Catalogue, tờ rơi, kẹp file, phong bì, Phiếu thu-chi, hộp sản phẩm, tem-nhãn ... thì cứ alo mình nhé.
Cảm ơn mọi người !