(23-01-21, 07:34 AM)ongke0711 Đã viết: Tốt nhất là đổ dữ liệu sang file Word để không bị hạn chế số trang và có sự linh động trong việc sửa nội dung nếu có phát sinh.

Cảm ơn anh ongke0711 đã góp ý, mình còn lơ mơ vụ này quá, xin anh hướng dẫn cho cách đổ dữ liệu sang Word và lệnh in từ form sẽ in trực tiếp từ word ra luôn (hoặc có thể mở word từ lệnh in trên form) rồi in. Chân thành cảm ơn!

(23-01-21, 10:04 AM)GaDauBac Đã viết: Cảm ơn anh ongke0711 đã góp ý, mình còn lơ mơ vụ này quá, xin anh hướng dẫn cho cách đổ dữ liệu sang Word và lệnh in từ form sẽ in trực tiếp từ word ra luôn (hoặc có thể mở word từ lệnh in trên form) rồi in. Chân thành cảm ơn!

Bạn maidinhdan vừa mới post bài liên quan vụ xuất dữ liệu sang file Word, bạn xem đường link dưới rồi làm thử xem. Nếu không xử lý được chỗ nào thì tôi sẽ hỗ trợ tiếp.
Link: https://thuthuataccess.com/forum/thread-11795.html

(23-01-21, 04:03 PM)ongke0711 Đã viết:

(23-01-21, 10:04 AM)GaDauBac Đã viết: Cảm ơn anh ongke0711 đã góp ý, mình còn lơ mơ vụ này quá, xin anh hướng dẫn cho cách đổ dữ liệu sang Word và lệnh in từ form sẽ in trực tiếp từ word ra luôn (hoặc có thể mở word từ lệnh in trên form) rồi in. Chân thành cảm ơn!

Bạn maidinhdan vừa mới post bài liên quan vụ xuất dữ liệu sang file Word, bạn xem đường link dưới rồi làm thử xem. Nếu không xử lý được chỗ nào thì tôi sẽ hỗ trợ tiếp.
Link: https://thuthuataccess.com/forum/thread-11795.html

Cảm ơn anh nhiều, mình có tải file demo của anh maidinhdan nhưng sao mở ra bị báo lỗi này anh?



Hình: https://www.upsieutoc.com/image/88qQSh

(23-01-21, 04:47 PM)GaDauBac Đã viết: Cảm ơn anh nhiều, mình có tải file demo của anh maidinhdan nhưng sao mở ra bị báo lỗi này anh?

Bạn dùng Office 64bit à?
Bạn nhờ maidinhdan gửi cho 1 file không khoá code và nhờ chuyển sang 64bit giùm. Có thể trong file có dùng các hàm API chưa khai báo cho 64 bit.

(23-01-21, 05:12 PM)ongke0711 Đã viết:

(23-01-21, 04:47 PM)GaDauBac Đã viết: Cảm ơn anh nhiều, mình có tải file demo của anh maidinhdan nhưng sao mở ra bị báo lỗi này anh?

Bạn dùng Office 64bit à?
Bạn nhờ maidinhdan gửi cho 1 file không khoá code và nhờ chuyển sang 64bit giùm. Có thể trong file có dùng các hàm API chưa khai báo cho 64 bit.

Vâng xin cảm ơn bạn nhiều!

Góp ý với Đ/c GaDauBac! Demo_Code Xuất Lý lịch của master maidinhdan là một ứng dụng khá phức tạp để xử lý hỗ trợ cho phần mềm quản lý lý lịch nhân sự còn của đ/c chỉ giải quyết 4 trang hợp đồng và khoảng mươi field. không cần phải mượn Thanh Long đao của Quan Công làm thịt chim sẻ đâu. Bạn đã biết cách sử dụng Mail merge của word thì có thể thực hiện dễ dàng với một đoạn code sau đây (đưa vào một button để bấm). Bạn đã có field HD.doc, chuyển nó thành tập tin Mail merge, giả sử tập tin này bạn để trong thư mục D, nếu ở noi khác thì sửa đường dẫn lại trong code:
Private Sub button_Click()
Dim DuongdanFileHD As String
Dim WordApp As Object
'Đường dẫn tâp tin Word
DuongdanFileHD = "D:\HD.doc"
If Dir(DuongdanFileHD) = "" Then
  MsgBox "Khong tim thay tap tin."
Else
  'Tạo phiên xử lý Word
  Set WordApp = CreateObject(Class:="Word.Application")
  WordApp.Visible = True
  'Mở tài liệu Word
  WordApp.Documents.Open FileName:=DuongdanFileHD
End If
End Sub
Chúc bạn thành công

(24-01-21, 06:47 PM)tranthanhan1962 Đã viết: Góp ý với Đ/c GaDauBac! Demo_Code Xuất Lý lịch của master maidinhdan là một ứng dụng khá phức tạp để xử lý hỗ trợ cho phần mềm quản lý lý lịch nhân sự còn của đ/c chỉ giải quyết 4 trang hợp đồng và khoảng mươi field. không cần phải mượn Thanh Long đao của Quan Công làm thịt chim sẻ đâu. Bạn đã biết cách sử dụng Mail merge của word thì có thể thực hiện dễ dàng với một đoạn code sau đây (đưa vào một button để bấm). Bạn đã có field HD.doc, chuyển nó thành tập tin Mail merge, giả sử tập tin này bạn để trong thư mục D, nếu ở noi khác thì sửa đường dẫn lại trong code:
Private Sub button_Click()
Dim DuongdanFileHD As String
Dim WordApp As Object
'Đường dẫn tâp tin Word
DuongdanFileHD = "D:\HD.doc"
If Dir(DuongdanFileHD) = "" Then
  MsgBox "Khong tim thay tap tin."
Else
  'Tạo phiên xử lý Word
  Set WordApp = CreateObject(Class:="Word.Application")
  WordApp.Visible = True
  'Mở tài liệu Word
  WordApp.Documents.Open FileName:=DuongdanFileHD
End If
End Sub
Chúc bạn thành công

Bạn có thể demo cho mình được không, quả thật là mình không hiểu vầy còn việc chèn field thì làm sao nhỉ?

Cái này làm demo sẽ hơi khó. Vì thư mục khác nhau sẽ cho ra kết quả khác nhau. Mình sẽ hướng dẫn cho bạn bằng hình ảnh. Nhưng mình sẽ lấy thư mục LoiReport của bạn gửi đặt vào ổ D:\ nên đường dẫn các tập tin sẽ là D:\LoiReport\... Khi về máy của bạn thì bạn sửa lại theo đường dẫn theo thư mục của mình.
Trước tiên bạn mở file HD.doc là tập tin hợp đồng gốc ra

Chọn Mailings / Select Recipients / Use an Existing List ...,
Luc này xuất hiện giao diện Select Data Source.

Tìm đến file nguồn Test.accdb
Khi xuất hiện giao diện select table thì chọ query qInHD. Vì query này chỉ lọc những hóa đơn sẽ in còn nếu chọn table tbKhachHang sẽ in tất cả các hóa đơn

Sử dụng Insert Merge Field để chèn các trường tương ứng vào hóa đơn

Chọn Start Mail Merge để trộn thư
Việc tạo thư trộn chắc bạn đã biết nên tôi không nhắc lại.
Sau khi tạo xong chỉ thực hiện lệnh in.
Đây là thư đã được trộn

Đoạn mã của button chỉ có nhiệm vụ mở tập tin mail merge HD.doc từ trong access mà không cần phải trở ra windows explore dể mở tâp tin HD.doc (mặc dù sử dụng cách thủ công này vẫn được).
Vây là xong! Chúc bạn thành công

Cảm ơn bạn rất nhiều nhé!