Mình có một report biên bản nghiệm thu của rất nhiều người
Mỗi người 1 biên bản có 2 mặt giấy
Mình muốn in thành 2 mặt giấy. Nhưng ACCESS không có chức năng in chẳn lẻ như WORD
Bây giờ mình muốn in 1 loạt trang lẻ rồi đến 1 loạt trang chẳn thì phải làm thế nào.,
Mong các PRO trợ giúp.

Nếu muốn nhiều tùy biến giống như Word thì sao bạn không xuất dữ liệu ra file Word? Trong 4rum này có nhiều bài viết về xuất dữ liệu ra Word rồi đó (Report là File Word có ưu điểm là đễ tùy biến, đẹp).

(14-03-14, 11:24 AM)nhannt4 Đã viết: Nếu muốn nhiều tùy biến giống như Word thì sao bạn không xuất dữ liệu ra file Word? Trong 4rum này có nhiều bài viết về xuất dữ liệu ra Word rồi đó (Report là File Word có ưu điểm là đễ tùy biến, đẹp).

Mính muốn in trực tiếp từ access luôn, không cần chuyển sang định dạng khác!

(29-04-14, 12:15 PM)nhattiensinh Đã viết: Mính muốn in trực tiếp từ access luôn, không cần chuyển sang định dạng khác!

Có hai cách:

1/ Gọi hộp thoại print dialog box (Giống như bấm Ctrl + P trong Word)


2/Tự tạo form cho phép chọn máy in, chọn trang in, chọn kiểu in chẵn, lẻ...





Bạn xem cách làm trong file ví dụ nhé:

Download Demo

Chúc Vui!

Bản cập nhật:
1/Sửa lỗi "Từ trang", "Đến trang" bị bỏ trống hoặc bằng 0
2/Sửa lỗi "Từ trang" > "Đến trang"
3/Bổ sung thêm tùy chọn "Số bản sao" và "Chất lượng in"

Demo Print Options 2.rar

Có yêu cầu gì thêm các bạn góp ý nhé

Trích dẫn:Bản cập nhật:
1/Sửa lỗi "Từ trang", "Đến trang" bị bỏ trống hoặc bằng 0
2/Sửa lỗi "Từ trang" > "Đến trang"
3/Bổ sung thêm tùy chọn "Số bản sao" và "Chất lượng in"

Demo Print Options 2.rar

Có yêu cầu gì thêm các bạn góp ý nhé undefined

Bạn ơi giúp mình với, mình sử dụng file của bạn để import dữ liệu module và fdlgPrinter vào file của mình nhưng sao khi chạy lệnh in thì số liệu ở ô đến trang không tự động điền tổng số trang mà chỉ có giá trị "0" vậy bạn?
ko biết sai chổ nào nữa, bạn có thể giải thích dùm, ban thông cảm do file dữ liệu của mình là tài liệu mật của ngành, nên kko thể up file lên cho bạn xem được.

        Me!txtPageTo = Reports(strReport).Pages

sao đoan mã code này lại không trả về giá trị tổng số trang mà lại trả về giá trị "0" không vậy?

Bạn chú ý trong file Demo của MTNQ ở phần page footer của report có một text box (Text12) có control Source ="Page " & [Page] & " of " & [Pages]

Vì sao phải có text box như vậy thì bạn tham khảo link sau nhé:

https://msdn.microsoft.com/en-us/library...22467.aspx

MTNQ vừa mới Up lại cái file: Demo Print Options 2.mdb
Lý do:
- sửa lại đk lọc cho form tìm kiếm (sửa hàm iif của  qryDanhsach) 
- Thêm một số bẫy lỗi cho form fdlgPrinter như không kết nối được máy in. Buộc nhập số cho từ trang, đến trang,số bản sao,chất lượng in,...( dùng thuộc tính validation rule )

Bạn nào quan tâm có thể tải lại ở bài #5 hoặc ở đây

(02-05-14, 01:48 AM)MTNQ Đã viết:

(29-04-14, 12:15 PM)nhattiensinh Đã viết: Mính muốn in trực tiếp từ access luôn, không cần chuyển sang định dạng khác!

Có hai cách:

1/ Gọi hộp thoại print dialog box (Giống như bấm Ctrl + P trong Word)

Mã:

Private Sub cmdPrintdlgBox_Click()
On Error GoTo Err_cmdPrintdlgBox_Click

   DoCmd.OpenReport "rptDanhsach", acViewPreview
   
   On Error Resume Next
   DoCmd.RunCommand acCmdPrint
   DoCmd.Close acReport, "rptDanhsach"

Exit_cmdPrintdlgBox_Click:
   Exit Sub

Err_cmdPrintdlgBox_Click:
   MsgBox Err.Description
   Resume Exit_cmdPrintdlgBox_Click
   
End Sub

2/Tự tạo form cho phép chọn máy in, chọn trang in, chọn kiểu in chẵn, lẻ...





Bạn xem cách làm trong file ví dụ nhé:

Download Demo

Chúc Vui!

Anh cho em hỏi là ở bản demo của anh phần print dialog box thấy trang trắng vậy anh?

Đã sửa lỗi:
-MTNQ đã thêm DoEvents sau lệnh DoCmd.OpenReport "rptDanhsach", acViewPreview. 
-Tạo riêng một hàm gọi Print Dialog Box (trong module modPrint) để tiện cho việc sử dụng với các report khác

Bạn tải lại ở bài #5 hoặc ở đây