• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Cách hiển thị report (Print Preview) tự canh giữa

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Report
  • Hướng Dẫn Cách hiển thị report (Print Preview) tự canh giữa
• Cách hiển thị report (Print Preview) tự canh giữa

• Cách hiển thị report (Print Preview) tự canh giữa

  NganNguyen > 06-09-15, 12:54 AM

  Mình muốn khi xuất báo cáo ở dạng Print Preview cho đẹp thì dùng lệnh gì vậy mấy bạn. 
  Mình vào Report chọn, Auto Center nhưng khi xuất ra vẫn mặc định là gó bên trái à. Mọi người giúp đỡ tí nhé!

• RE: Cách hiển thị report (Print Preview) tự canh giữa

  tranthanhan1962 > 06-09-15, 03:34 PM

  (06-09-15, 12:54 AM)NganNguyen Đã viết: Mình muốn khi xuất báo cáo ở dạng Print Preview cho đẹp thì dùng lệnh gì vậy mấy bạn. 
  Mình vào Report chọn, Auto Center nhưng khi xuất ra vẫn mặc định là gó bên trái à. Mọi người giúp đỡ tí nhé!

  
  Report print preview có phần khác với form view. Trong form view, khi thiết đặt Auto center : yes thì form sẽ canh giữa màn hình trong chế độ resize. Nhưng trong report print preview, khi thiết đặt Auto center : yes thì report (thực ra đây cũng là một dạng form) chứa các trang báo cáo sẽ canh giữa màn hình trong chế độ resize. Còn cân chỉnh các trang trong report thì là vấn đề khác.
  Cũng hơi kỳ cục một chút, trong khi code canh giữa report thì đặt tại event Report_Open. Nhưng code xử lý zoom của các trang thì access lại đưa vào code gọi report.
  Ví dụ bạn có một nút lệnh gọi report là cmdXemBaocao gọi report BAOCAO
  Code của cmdXemBaocao như sau:
  
  

  Mã:

  Private Sub cmdXemBaocao _Click()
        DoCmd.OpenReport " BAOCAO", acPreview
        DoCmd.RunCommand acCmdZoom100
'Zoom = 100%
End Sub

  
  Theo mình đẹp nhất là 
  Code của cmdXemBaocao
  
  

  Mã:

  Private Sub cmdXemBaocao _Click()
        DoCmd.OpenReport " BAOCAO", acPreview
        DoCmd.RunCommand acCmdZoomSelection
End Sub

  
  Code BAOCAO
  
  

  Mã:

  Private Sub Report_Open(Cancel As Integer)
        DoCmd.Maximize
End Sub
• Bài trước Bài tiếp