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

Nimda

Thành viên chính thức
Tham gia ngày
12 Tháng mười 2014
Bài viết
56
Được thích
2
Điểm
170
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 ạ.
 

File đính kèm

be09

TNMT_Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
8,087
Được thích
7,817
Điểm
560
Tuổi
62
Nơi ở
Biên Hòa, Đồng Nai
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

❆❆❆❆❆❆❆❆
Thành viên BQT
Administrator
Tham gia ngày
18 Tháng ba 2008
Bài viết
7,328
Được thích
14,179
Điểm
1,910
Nơi ở
Đồng ruộng Long An
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:

Mã:
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

Thành viên chính thức
Tham gia ngày
12 Tháng mười 2014
Bài viết
56
Được thích
2
Điểm
170
Có phải bạn muốn như sau:

Mã:
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:

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 ạ
 
Top Bottom