Xin hỏi về code In theo điều kiện số dòng

[tam8678]

Rất mong các anh, em trên GPE xem và hướng dẫn về code in theo điều kiện số dòng (được nêu trong File đính kèm).
Cám ơn

 

[TrungChinhs]

Rất mong các anh, em trên GPE xem và hướng dẫn về code in theo điều kiện số dòng (được nêu trong File đính kèm).
Cám ơn

Bác thử cái này xem có được không ?

Sub PrintArea()
    ActiveSheet.PageSetup.PrintArea = "B1:H" & [h65536].End(3).Row
End Sub

 

[tam8678]

Bác thử cái này xem có được không ?

Sub PrintArea()
    ActiveSheet.PageSetup.PrintArea = "B1:H" & [h65536].End(3).Row
End Sub

---
Chắc tại tôi diển đạt không tốt, theo file đính kèm thì sheets"PhieuNhap" có dữ liệu từ B5:B21 thì khi run code sẽ in được 2 tờ phiếu nhập bên sheets"InPhieuNhap": 1tờ từ vật tư 1 đến vật tư 9, tờ thứ 2 là phần còn lại, (In ngắt dòng đó anh). Mong anh hiểu
Thân chào

 

[TrungChinhs]

Có phải ý Bác là đếm trong Phiếu nhập Kho có bao nhiêu dòng trống thì copy bấy nhiêu dòng dữ liệu bên phiếu nhập Paste sang Phiếu này để in sau đó lại copy - in tiếp ?

 

[tam8678]

Có phải ý Bác là đếm trong Phiếu nhập Kho có bao nhiêu dòng trống thì copy bấy nhiêu dòng dữ liệu bên phiếu nhập Paste sang Phiếu này để in sau đó lại copy - in tiếp ?

---
Đúng vậy đó anh, nhưng phụ thuộc vào số dòng bên sheets"PhieuNhap".
In:1 PNhập nếu 1<= stt =<9, 2 PNhập nếu 18>= stt >9
Cám ơn anh.

 

[nghiaphuc]

Rất mong các anh, em trên GPE xem và hướng dẫn về code in theo điều kiện số dòng (được nêu trong File đính kèm).
Cám ơn

Bạn thử Code này xem nhé.

Sub InPhieu()
    Dim i As Integer
    i = 5
    Do While Sheets("PhieuNhap").Cells(i, 2) <> ""
        Sheets("PhieuNhap").Range("A" & i & ":G" & i + 8).Copy
        Sheets("InPhieuNhap").Range("A5").PasteSpecial Paste:=xlValues
        Sheets("InPhieuNhap").PrintOut
        i = i + 9
    Loop
End Sub