Tạo trang in liên tục (1 người xem)

[nguyenmanhhao]

Tôi có 2 sheet, sheet 1 là danh sách các hộ dùng điện có chỉ số đầu chỉ số cuối, sheet 2 là hóa đơn sử dụng điện (theo từng mức - Hóa đơn mẫu có sẵn chỉ nhập tên và các chỉ số và điện năng tiêu thụ). Tôi đã tạo được mẫu in nhưng khi in phải nhập từng số (theo số thứ tự ở danh sách vì tôi tôi dùng hàm vlookup để tham chiếu dữ liệu). Bây giờ tôi muốn khi in hóa đơn (1/2 trang A4) thì số thứ tự để tham chiếu bên hóa đơn tự động nhảy lên 2, 3,... để dùng lệnh in luôn mà không phải nhập lại số thứ tự.
Kính nhờ các anh chị trên diễn đàn giúp đỡ.
Thanks

 

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

Tôi có 2 sheet, sheet 1 là danh sách các hộ dùng điện có chỉ số đầu chỉ số cuối, sheet 2 là hóa đơn sử dụng điện (theo từng mức - Hóa đơn mẫu có sẵn chỉ nhập tên và các chỉ số và điện năng tiêu thụ). Tôi đã tạo được mẫu in nhưng khi in phải nhập từng số (theo số thứ tự ở danh sách vì tôi tôi dùng hàm vlookup để tham chiếu dữ liệu). Bây giờ tôi muốn khi in hóa đơn (1/2 trang A4) thì số thứ tự để tham chiếu bên hóa đơn tự động nhảy lên 2, 3,... để dùng lệnh in luôn mà không phải nhập lại số thứ tự.
Kính nhờ các anh chị trên diễn đàn giúp đỡ.
Thanks

Qua miêu tả của bạn, yêu cầu của bạn giống bài sau:
http://www.giaiphapexcel.com/forum/showthread.php?p=216513#post216513

Chỉ cần sửa lại 1 chút là xong

Sub InPhieu()
'Danh dau in
Dim wsD As Worksheet
Dim wsI As Worksheet
Set wsD = Worksheets("Data")
Set wsI = Worksheets("Print")
Dim rStart As Long
Dim rEnd As Long
Dim r As Long
rStart = wsD.Cells(Rows.Count, 1).End(xlUp).Row + 1
rEnd = wsD.Cells(Rows.Count, 2).End(xlUp).Row
r = rEnd - rStart + 1
For r = 1 To r
  wsI.Range("c5").Value = wsD.Range("c" & rStart + r - 1)
[COLOR=green][B]'wsI.PrintPreview
[/B][/COLOR][COLOR=black]  [/COLOR][B][COLOR=green][COLOR=black]wsI.PrintOut[/COLOR]
[/COLOR][/B]  wsD.Range("A" & rStart + r - 1).Value = "X"
Next r
End Sub

 

[hopthuhuy]

Bạn có thể tham khảo thêm chức năng Mail Merge trong bài viết dưới :
http://www.giaiphapexcel.com/forum/showthread.php?t=6421

 

[nguyenmanhhao]

Tôi đã làm theo Macro của các anh chị trên diễn đàn nhưng không thể thực hiện được. Đây là file tôi đính kèm, nhờ các anh chị viết giúp macro để in liên tục nhé. Xin cảm ơn rất nhiều./.

Tôi quên không đính kèm tập tin, xin lỗi nhé.
Đây là file đính kèm của tôi, nhờ các anh chị trên diễn đàn giải quyết giúp nhé. Tôi đang cần gấp.

 

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

Tôi quên không đính kèm tập tin, xin lỗi nhé.
Đây là file đính kèm của tôi, nhờ các anh chị trên diễn đàn giải quyết giúp nhé. Tôi đang cần gấp.

Bạn xem file đính kèm nhé.
Tôi có ghi lại đoạn phim chỉ bạn cách sử dụng.

 

[MinhNguyệt]

Tôi đã làm theo Macro của các anh chị trên diễn đàn nhưng không thể thực hiện được. Đây là file tôi đính kèm, nhờ các anh chị viết giúp macro để in liên tục nhé. Xin cảm ơn rất nhiều./.

Tôi quên không đính kèm tập tin, xin lỗi nhé.
Đây là file đính kèm của tôi, nhờ các anh chị trên diễn đàn giải quyết giúp nhé. Tôi đang cần gấp.

1/ Bạn sửa lại đoạn code như sau và chép nó vào một modul

Sub InPhieu()
    Dim wsD As Worksheet
    Dim wsH As Worksheet
    Set wsD = Worksheets("Danhsach")
    Set wsH = Worksheets("Hoadon")
    Dim rEnd As Long
    Dim r As Long
    rEnd = wsD.Range("A65000").End(xlUp).Row
    For r = 5 To rEnd
        wsH.Range("AK4") = r - 4
        wsH.PrintOut
        ''wsH.PrintPreview
    Next
End Sub

2/ Kích nút phải vào biểu tượng In hoá đơn chọn Assign Macro, Trong khung hiện ra chọn InPhieu

Thân

 

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

1/ Bạn sửa lại đoạn code như sau và chép nó vào một modul

Sub InPhieu()
    Dim wsD As Worksheet
    Dim wsH As Worksheet
    Set wsD = Worksheets("Danhsach")
    Set wsH = Worksheets("Hoadon")
    Dim rEnd As Long
    Dim r As Long
    rEnd = wsD.Range("A65000").End(xlUp).Row
    For r = 5 To rEnd
        wsH.Range("AK4") = r - 4
        wsH.PrintOut
        ''wsH.PrintPreview
    Next
End Sub

2/ Kích nút phải vào biểu tượng In hoá đơn chọn Assign Macro, Trong khung hiện ra chọn InPhieu

Thân

Bạn nên đưa ra lựa chọn cho người in muốn in cái gì và in phiếu nào, đâu phải lúc nào cũng in hết đâu bạn.

 

[MinhNguyệt]

Và đây là đoạn code in theo trang chỉ định :

 Sub InPhieu2()
    Dim wsD As Worksheet
    Dim wsH As Worksheet
    Set wsD = Worksheets("Danhsach")
    Set wsH = Worksheets("Hoadon")
    Dim rEnd As Long
    Dim r1, r2 As Long
    rEnd = wsD.Range("A65000").End(xlUp).Row
    r1 = InputBox("Bat dau in tu so", "In theo tung hoa don", "1")
    r2 = InputBox("Den so", "In theo tung hoa don", "10")
    If r1 > r2 Then
        MsgBox "Ban xem lai, so sau phai lon hon so truoc", , "Chu y"
        Exit Sub
    ElseIf r1 > rEnd - 4 Or r2 > rEnd - 4 Then
        MsgBox "So TT vuot qua tong so", , "Chu y"
        Exit Sub
    End If
    For r = r1 To r2
        wsH.Range("AK4") = r
        wsH.PrintOut
        ''wsH.PrintPreview
    Next
End Sub

 

[nguyenmanhhao]

Cảm ơn tất các các anh chị. Chúc các anh chị luôn vui, hạnh phúc và có nhiều bài giải đáp giúp các thành viên nhé.

 

[nguyenmanhhao]

Lần trước anh Doomfootwear và bạn Minh Nguyệt có viết cho code in liên tục. Nhưng khi đó hoá đơn điện của em là 1/2 trang A4. Bây giờ hoá đơn là 1 trang A4 và in được cho 2 hộ sử dụng. Các anh chị sửa giúp em code với ạ
Cảm ơn các anh chị

 

[nguyenmanhhao]

Bác Doom, Bác Sa, Bác Nguyệt đâu rồi. Giúp em với ạ

 

[viehoai]

Lần trước anh Doomfootwear và bạn Minh Nguyệt có viết cho code in liên tục. Nhưng khi đó hoá đơn điện của em là 1/2 trang A4. Bây giờ hoá đơn là 1 trang A4 và in được cho 2 hộ sử dụng. Các anh chị sửa giúp em code với ạ
Cảm ơn các anh chị

Mình thêm If trong vòng For để giải quyết vấn đề bạn đưa

 

[vanhung2506]

Nhờ tạo code in phiếu liên tục

Em thấy các anh chị có những code in phiếu liên tục, em làm mà không được, vậy em gửi file lên GPE nhờ các anh chị tạo dùm em code in phiếu chi liên tục trong file này nhé! Rất mong được sự giúp đỡ của anh chị!