Noname > 25-08-10, 12:27 PM
Dim stDocName As String
stDocName = "R01_Du An Moi"
DoCmd.OpenReport stDocName, acPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdZoom75
' DoCmd.RunCommand acCmdFitToWindow
' DoCmd.RunCommand acCmdZoom10
' DoCmd.RunCommand acCmdZoom25
' DoCmd.RunCommand acCmdZoom50
' DoCmd.RunCommand acCmdZoom75
' DoCmd.RunCommand acCmdZoom100
' DoCmd.RunCommand acCmdZoom150
' DoCmd.RunCommand acCmdZoom200
haquocquan > 14-10-10, 01:36 AM
Noname > 14-10-10, 09:24 AM
(14-10-10, 01:36 AM)haquocquan Đã viết: Đặt đoạn code này vào đâu vậy a Noname.Đây là bài viết sưu tầm và No chưa thử demo nữa. Nhưng nếu như Quân lo chuyện đó thì có thể lấy về kích cỡ form trước khi chạy các lệnh trên. Sau đó trả về kích cỡ như cũ lúc close report
Khi sử dụng đoạn code này, ảnh hưởng tới kích cỡ form không (có giống như docmd.maximize)
truckhoa2006 > 13-07-11, 04:47 PM
domfootwear > 13-07-11, 05:43 PM
(13-07-11, 04:47 PM)truckhoa2006 Đã viết: Tôi nhĩ có thể vào On Load Forms ( Report) thì phải. Nhưng cũng đáng phải thử lắm đó.Bỏ vào cái nút bấm trên form chứ bạn
Private Sub cmdNutBamMoReport_Click()
Dim stDocName As String
stDocName = "TenReportCanMo"
DoCmd.OpenReport stDocName, acPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdZoom75
End Sub