Đánh giá chủ đề:
  • 1 Votes - 3 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Làm sao để in được trang chẳn hoặc trang lẻ trong report access?
#1
Question 
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.
040040040040040040040
Chữ ký của nhattiensinh Hãy chia sẻ kinh nghiệm cùng mình trên HeartThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#2
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).
Chữ ký của nhannt4 Xin chào, mình là nhannt4, Tham gia http://thuthuataccess.com/forum từ ngày 22-07 -12.
Reply
Những người đã cảm ơn Noname
#3
(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!
Chữ ký của nhattiensinh Hãy chia sẻ kinh nghiệm cùng mình trên HeartThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#4
(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ẻ...

[Hình: 3005167027_1737981820_574_574.jpg]

[Hình: 3005167028_406134094_574_574.jpg]

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

Download Demo

Chúc Vui! 015
Chữ ký của MTNQ Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn Noname , mrsiro , maidinhdan , tieu_ngao
#5
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é 015
Chữ ký của MTNQ Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn trunghieu , Noname , mrsiro , ledangvan , maidinhdan , advnamk
#6
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. 040

        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?
Chữ ký của hoanghai902 Xin chào, mình là hoanghai902, Tham gia http://thuthuataccess.com/forum từ ngày 19-11 -13.
Reply
Những người đã cảm ơn
#7
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
Chữ ký của MTNQ Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn maidinhdan , hoanghai902
#8
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
Chữ ký của MTNQ Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn
#9
(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ẻ...

[Hình: 3005167027_1737981820_574_574.jpg]

[Hình: 3005167028_406134094_574_574.jpg]

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

Download Demo

Chúc Vui! 015

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?
Chữ ký của tieu_ngao Xin chào, mình là tieu_ngao, Tham gia http://thuthuataccess.com/forum từ ngày 20-04 -15.
Reply
Những người đã cảm ơn
#10
Đã 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
Chữ ký của MTNQ Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn tieu_ngao


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Menu in trên Report tieu_ngao 4 183 13-08-17, 09:51 PM
Bài mới nhất: tieu_ngao
  Hướng Dẫn Report từ nguồn Data khác-ADODB btnnhut 2 85 12-08-17, 08:40 AM
Bài mới nhất: lehongduc
  Tạo nút lệnh trên Form để view report (Single view) DooHoaangPhuuc 26 836 11-08-17, 12:45 AM
Bài mới nhất: DooHoaangPhuuc
  Hình ảnh bị vỡ khi xem trên report thanhtruong 2 134 05-07-17, 05:27 PM
Bài mới nhất: thanhtruong
  [Hỏi] Tạo khoảng trống mặc định số dòng trên report ngochuong279 8 278 04-07-17, 09:56 AM
Bài mới nhất: ongke0711

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ