Nhờ giúp thực hiện in tự động từ 1 danh sách (1 người xem)

[duysangvgs]

Chào các anh chị
Em cần in 1 thư theo mẫu gửi các Doanh nghiệp
Danh sách các Doanh nghiệp ở 1 sheet và form thư ở 1 sheets
Do danh sách doanh nghiệp rất nhiều mà nội dung thư giống nhau (chỉ khác nhau mỗi chỗ kính gửi)
Em muốn tự động in thư theo danh sách mà không phải gõ lại từng tên Doanh nghiệp
anh chị nào rành VB bớt thời gian giúp em vụ này nha
Chân thành cảm ơn các anh chị và diễn đàn

 

[nghiaphuc]

Chào các anh chị
Em cần in 1 thư theo mẫu gửi các Doanh nghiệp
Danh sách các Doanh nghiệp ở 1 sheet và form thư ở 1 sheets
Do danh sách doanh nghiệp rất nhiều mà nội dung thư giống nhau (chỉ khác nhau mỗi chỗ kính gửi)
Em muốn tự động in thư theo danh sách mà không phải gõ lại từng tên Doanh nghiệp
anh chị nào rành VB bớt thời gian giúp em vụ này nha
Chân thành cảm ơn các anh chị và diễn đàn

Nhìn hình trong file có thể thấy bạn đã biết cách tạo Form. Giả sử 2 Combobox trên Form có tên lần lượt là CbbFrom và CbbTo. Khi đó code cho nút lệnh thực hiện có dạng như sau:
[GPECODE=vb]Sub InPhieu()
Dim i As Long
For i = CbbFrom To CbbTo
With Sheets("Sheet1")
.[A5] = "Kính g" & ChrW(7917) & "i: " & Sheets("Sheet2").Cells(i + 1, 3)
.[A1:A30].PrintOut
End With
Next
End Sub[/GPECODE]
Còn vấn đề tên sub là gì hoặc làm sao để đảm bảo giá trị của CbbTo không được nhỏ hơn giá trị CbbFrom thì bạn tự giải quyết nhé.

 

[duysangvgs]

Nhìn hình trong file có thể thấy bạn đã biết cách tạo Form. Giả sử 2 Combobox trên Form có tên lần lượt là CbbFrom và CbbTo. Khi đó code cho nút lệnh thực hiện có dạng như sau:
[GPECODE=vb]Sub InPhieu()
Dim i As Long
For i = CbbFrom To CbbTo
With Sheets("Sheet1")
.[A5] = "Kính g" & ChrW(7917) & "i: " & Sheets("Sheet2").Cells(i + 1, 3)
.[A1:A30].PrintOut
End With
Next
End Sub[/GPECODE]
Còn vấn đề tên sub là gì hoặc làm sao để đảm bảo giá trị của CbbTo không được nhỏ hơn giá trị CbbFrom thì bạn tự giải quyết nhé.

tks bác nhiều, e tham khảo file in bảng lương liên tục chứ ko tự làm được bác ạ, hic
nếu làm được e cũng chịu khó làm, nhưng mà ko hiểu gì về ngôn ngữ lập trình, lọ mọ mãi ko được nên mới post lên đây, bác bớt chút thời gian làm dùm em với
tks bác nhiều ạ