Tạo phiếu In kiểm kê

[Ngocminh19]

Em chào các anh chị.Mong các anh chị giúp em tạo code in theo số phiếu từ 1 đến số phiếu cần đặt
Em có học trên mạng mà in không như ý.
Em cảm ơn!
1.Điều kiện cần in:
Em sẽ nhập tên bộ phận và số lượng phiếu

2. Mong muốn in
Ví dụ em nhập 5.
Thì in ra 5 phiều từ 0001,0002,0003,0004,0005
Vùng in của em ntn ạ

 

[BuiQuangThuan]

Em chào các anh chị.Mong các anh chị giúp em tạo code in theo số phiếu từ 1 đến số phiếu cần đặt
Em có học trên mạng mà in không như ý.
Em cảm ơn!
1.Điều kiện cần in:
Em sẽ nhập tên bộ phận và số lượng phiếu
2. Mong muốn in
Ví dụ em nhập 5.
Thì in ra 5 phiều từ 0001,0002,0003,0004,0005
Vùng in của em ntn

Bạn nên sửa lại tiêu đề đi đã

 

[Ngocminh19]

Bạn nên sửa lại tiêu đề đi đã

Vâng.Em xin lỗi nếu câu từ có gì không phải ạ.
Em sửa rồi ạ .em cảm ơn!

 

[BuiQuangThuan]

Bạn hãy sửa tiêu đề ngắn gọn súc tích thôi. Không dùng những từ nhờ, Gấp, help me....
Có thể đặt tiêu đề " Tạo phiếu kiểm kê" là được

 

[Ngocminh19]

Bạn hãy sửa tiêu đề ngắn gọn súc tích thôi. Không dùng những từ nhờ, Gấp, help me....
Có thể đặt tiêu đề " Tạo phiếu kiểm kê" là được

Vâng.em cảm ơn bác đã góp ý.Em sửa rồi ạ

 

[BuiQuangThuan]

Vâng.em cảm ơn bác đã góp ý.Em sửa rồi ạ

Thử code

Sub ABC()
Dim BP$, Tmp&, i&
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Sheets("VPV")
    BP = .Range("U4").Value
    Tmp = .Range("U5").Value
    If IsNumeric(Tmp) = False Or Tmp < 1 Then MsgBox "Kiem tra so phieu": Exit Sub
    For i = 1 To Tmp
        .Range("H4,Q4").Value = BP
        .Range("D4,M4").Value = Format(i, "0000")
        .Range("B2:R28").PrintOut
    Next
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[Ngocminh19]

Thử code

Sub ABC()
Dim BP$, Tmp&, i&
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Sheets("VPV")
    BP = .Range("U4").Value
    Tmp = .Range("U5").Value
    If IsNumeric(Tmp) = False Or Tmp < 1 Then MsgBox "Kiem tra so phieu": Exit Sub
    For i = 1 To Tmp
        .Range("H4,Q4").Value = BP
        .Range("D4,M4").Value = Format(i, "0000")
        .Range("B2:R28").PrintOut
    Next
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Em cảm ơn Thầy ạ.Em làm được rồi ạ
Thầy ơi nếu có sheet " list " mã nhiều hơn số dòng trong phần in.
Em mong muốn in phần còn lại cùng số phiếu với 27 dòng trước nhưng ở tờ khác ạ.
Thầy và mọi người giúp em ạ. Em cảm ơn!
Tờ 1:

Tờ 2: