| |
|
|
| | Как настроить предварительный вывод на печать (Preview), чтобы сразу получить режим 100 % , а не <Fit>. Спасибо | |
| |
| |
| |
|
|
| | имеется в виду "На весь экран"? - DoCmd.Maximize, а вернуть в зад - DoCmd.Restore
или именно установить масштаб 100% | |
| |
| |
| |
|
|
| | http://www.sql.ru/forum/actualthread.aspx?tid=237988
вот тута | |
| |
| |
| |
|
|
| | With DoCmd
.OpenReport ReportName, View:=acViewPreview
.Maximize
End With
Reports(ReportName).ZoomControl = 100
spasibo. prekrasno rabotaet | |
| |
| |
| |
|
|
| |
Function PreviewAndZoomReport(ReportName As String, ZoomCoeff As Integer)
'Автор Radu Lascae <R.Lascae@ind.tno.nl>,
On Error GoTo Error_Handler
If Not (ZoomCoeff >= 0 And ZoomCoeff <= 2500) Then
ZoomCoeff = 0
End If
With DoCmd
.OpenReport ReportName, View:=acViewPreview
.Maximize
End With
Reports(ReportName).ZoomControl = ZoomCoeff
Exit Function
Error_Handler:
MsgBox Err.Description
Resume Next
End Function
|
| |
| |
| |
| |
|
|
| | With DoCmd
.OpenReport ReportName, View:=acViewPreview
.Maximize
End With
Reports(ReportName).ZoomControl = 100
spasibo. prekrasno rabotaet | |
| |
| |
| |
|
|
| | У объекта Report есть скрітое св-во ZoomControl.
With DoCmd
.OpenReport ReportName, View:=acViewPreview
.Maximize
End With
Reports(ReportName).ZoomControl = 100
|
Еще можно попробовать DoCmd.RunCmd acCmdZoom100 | |
| |
| |
| |
|
|
| |
Еще можно попробовать DoCmd.RunCmd acCmdZoom100
|
Тогда надо, наверное предварительно выделить отчет
DoCmd.SelectObject acReport, "RptName"
DoCmd.RunCommand acCmdZoom100 | |
| |
| |
|
|
| |
|
|
| | With DoCmd
.OpenReport ReportName, View:=acViewPreview
.Maximize
End With
Reports(ReportName).ZoomControl = 100
Spasibo. Prekrasno rabotaet. | |
| |
| |
