Cần giúp đỡ về hàm in liên tục

[Nimda]

Mọi người kiểm tra giúp mình sao không thể in từ 1-6 được nhé,
ở sheet PYC1, nhấn vào Prin All nhưng không thể in được từ 1-6

Các bạn giúp mình làm sao có thể in tự động theo thứ tự từ 1->6 ở sheet Data tương ứng với 7 sheet biên bản với ạ.

 

[be_09]

Mọi người kiểm tra giúp mình sao không thể in từ 1-6 được nhé,
ở sheet PYC1, nhấn vào Prin All nhưng không thể in được từ 1-6

Các bạn giúp mình làm sao có thể in tự động theo thứ tự từ 1->6 ở sheet Data tương ứng với 7 sheet biên bản với ạ.

Góp ý cho bạn:
1/ Với nội dung bạn nêu in từ số tới số thì cần phải sử dụng Macro. Vì vậy, bạn nên đăng bài trong Box Lập trình với Excel.
2/ Nếu in từ số tới số thì chỉ cần 1 sheet mẫu là đủ (không cần nhiều sheet như bạn làm đâu).
3/ Bạn nên nêu cụ thể là có bao nhiêu loại mẫu biên bản.

 

[Hai Lúa Miền Tây]

Mọi người kiểm tra giúp mình sao không thể in từ 1-6 được nhé,
ở sheet PYC1, nhấn vào Prin All nhưng không thể in được từ 1-6

Các bạn giúp mình làm sao có thể in tự động theo thứ tự từ 1->6 ở sheet Data tương ứng với 7 sheet biên bản với ạ.

Có phải bạn muốn như sau:

Sub InPhieu()
    Dim i&, p&, p1, p2
    Dim Tb As VbMsgBoxResult
    Tb = MsgBox("Mr.TuanAnh: Kiem tra lai ngay thang; dan trang in. Neu ok thi co muon in " & Range("j4") & " toi " & Range("j5") & " khong?", vbYesNo, "Mr.TuanAnh canh bao!")
    If Tb = vbYes Then
        p1 = Sheet2.Range("j4").Value
        p2 = Sheet2.Range("j5").Value
        If IsNumeric(p1) = False Or IsNumeric(p2) = False Then Exit Sub
        If p1 > p2 Then Exit Sub
        For p = p1 To p2
            Sheet2.Range("k1").Value = p
            For i = 2 To 8
                'Sheets(i).PrintPreview
                Sheets(i).PrintOut 'From:=1, To:=2
            Next i
        Next p
    End If
End Sub

 

[Nimda]

Có phải bạn muốn như sau:

Sub InPhieu()
    Dim i&, p&, p1, p2
    Dim Tb As VbMsgBoxResult
    Tb = MsgBox("Mr.TuanAnh: Kiem tra lai ngay thang; dan trang in. Neu ok thi co muon in " & Range("j4") & " toi " & Range("j5") & " khong?", vbYesNo, "Mr.TuanAnh canh bao!")
    If Tb = vbYes Then
        p1 = Sheet2.Range("j4").Value
        p2 = Sheet2.Range("j5").Value
        If IsNumeric(p1) = False Or IsNumeric(p2) = False Then Exit Sub
        If p1 > p2 Then Exit Sub
        For p = p1 To p2
            Sheet2.Range("k1").Value = p
            For i = 2 To 8
                'Sheets(i).PrintPreview
                Sheets(i).PrintOut 'From:=1, To:=2
            Next i
        Next p
    End If
End Sub

Cảm ơn bác đã dành thời gian, nhưng nó vẫn báo lỗi bác ạ, bác có thể test lại giúp em trên file em up được k ạ? Cảm ơn bÁC

Bài đã được tự động gộp: 24/9/18

Góp ý cho bạn:
1/ Với nội dung bạn nêu in từ số tới số thì cần phải sử dụng Macro. Vì vậy, bạn nên đăng bài trong Box Lập trình với Excel.
2/ Nếu in từ số tới số thì chỉ cần 1 sheet mẫu là đủ (không cần nhiều sheet như bạn làm đâu).
3/ Bạn nên nêu cụ thể là có bao nhiêu loại mẫu biên bản.

Vì có nhiều mẫu biên bản khác nhau ạ, bác test trên file em up hộ em với ạ