ник: час
Часто спрашивают про размер отчёта
может так найдут быстрее...
Private Sub cmdPreview_Click()
DoCmd.OpenReport "CounterInformation", acViewPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdFitToWindow
'The number at the end represents the % zoom
' DoCmd.RunCommand acCmdZoom10
' DoCmd.RunCommand acCmdZoom25
' DoCmd.RunCommand acCmdZoom50
' DoCmd.RunCommand acCmdZoom75
' DoCmd.RunCommand acCmdZoom100
' DoCmd.RunCommand acCmdZoom150
' DoCmd.RunCommand acCmdZoom200
End Sub
|