nhattiensinh > 13-03-14, 04:35 PM
nhannt4 > 14-03-14, 11:24 AM
nhattiensinh > 29-04-14, 12:15 PM
(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).
MTNQ > 02-05-14, 01:48 AM
(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!
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
MTNQ > 03-05-14, 01:41 AM
hoanghai902 > 08-12-16, 11:55 PM
Trích dẫn:Bản cập nhật: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?
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
MTNQ > 11-12-16, 10:14 AM
MTNQ > 03-04-17, 11:26 PM
tieu_ngao > 12-08-17, 06:54 PM
(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!
MTNQ > 13-08-17, 04:46 PM