Cần code VBA để in bảng mẫu

[Kool_Kool]

Mình có bảng mẫu chỉ in tối đa được 14 dòng.
Giờ mình muốn khi nhập sang dòng 15 thì nó sẽ in ra trang thứ 2 mình đang sử dung code bên dưới mong cả nhà giúp đỡ
Ví dụ khi minh nhập dòng bắt đầu từ 1 đến 20 thì nó sẽ lấy dữ lieu tối đa là 14 dòng và in ra tờ 1 thôi. Dòng 15 đến 20 sẽ in ra tờ 2.

Sub PrintSubLabel()
If MsgBox("Do you want to print label ?", vbYesNo, "Well note") = vbYes Then
Else
Exit Sub
End If
Dim bd As Integer, kt As Integer, i As Integer
bd = InputBox("Please input the first line.", "Well noted!")
kt = InputBox("Please input the ended line", "Well noted!")
For i = bd To kt
Sheet7.[B1].Value = Sheet6.Range("B" & (i + 1)).Value
Sheet7.[B5].Value = Sheet6.Range("B" & (i + 3)).Value
Sheet7.[B9].Value = Sheet6.Range("B" & (i + 5)).Value
Sheet7.[B13].Value = Sheet6.Range("B" & (i + 7)).Value
Sheet7.[B17].Value = Sheet6.Range("B" & (i + 9)).Value
Sheet7.[B21].Value = Sheet6.Range("B" & (i + 11)).Value
Sheet7.[B25].Value = Sheet6.Range("B" & (i + 13)).Value
Sheet7.[E1].Value = Sheet6.Range("B" & (i + 2)).Value
Sheet7.[E5].Value = Sheet6.Range("B" & (i + 4)).Value
Sheet7.[E9].Value = Sheet6.Range("B" & (i + 6)).Value
Sheet7.[E13].Value = Sheet6.Range("B" & (i + 8)).Value
Sheet7.[E17].Value = Sheet6.Range("B" & (i + 10)).Value
Sheet7.[E21].Value = Sheet6.Range("B" & (i + 12)).Value
Sheet7.[E25].Value = Sheet6.Range("B" & (i + 14)).Value
Sheet7.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Next i
End Sub

 

[snow25]

Mình có bảng mẫu chỉ in tối đa được 14 dòng.
Giờ mình muốn khi nhập sang dòng 15 thì nó sẽ in ra trang thứ 2 mình đang sử dung code bên dưới mong cả nhà giúp đỡ
Ví dụ khi minh nhập dòng bắt đầu từ 1 đến 20 thì nó sẽ lấy dữ lieu tối đa là 14 dòng và in ra tờ 1 thôi. Dòng 15 đến 20 sẽ in ra tờ 2.

Sub PrintSubLabel()
If MsgBox("Do you want to print label ?", vbYesNo, "Well note") = vbYes Then
Else
Exit Sub
End If
Dim bd As Integer, kt As Integer, i As Integer
bd = InputBox("Please input the first line.", "Well noted!")
kt = InputBox("Please input the ended line", "Well noted!")
For i = bd To kt
Sheet7.[B1].Value = Sheet6.Range("B" & (i + 1)).Value
Sheet7.[B5].Value = Sheet6.Range("B" & (i + 3)).Value
Sheet7.[B9].Value = Sheet6.Range("B" & (i + 5)).Value
Sheet7.[B13].Value = Sheet6.Range("B" & (i + 7)).Value
Sheet7.[B17].Value = Sheet6.Range("B" & (i + 9)).Value
Sheet7.[B21].Value = Sheet6.Range("B" & (i + 11)).Value
Sheet7.[B25].Value = Sheet6.Range("B" & (i + 13)).Value
Sheet7.[E1].Value = Sheet6.Range("B" & (i + 2)).Value
Sheet7.[E5].Value = Sheet6.Range("B" & (i + 4)).Value
Sheet7.[E9].Value = Sheet6.Range("B" & (i + 6)).Value
Sheet7.[E13].Value = Sheet6.Range("B" & (i + 8)).Value
Sheet7.[E17].Value = Sheet6.Range("B" & (i + 10)).Value
Sheet7.[E21].Value = Sheet6.Range("B" & (i + 12)).Value
Sheet7.[E25].Value = Sheet6.Range("B" & (i + 14)).Value
Sheet7.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Next i
End Sub

thêm cái step nữa.

For i = bd To kt Step 14

Bước nhảy của vòng lặp.