'Вариант с кнопкой своего контекстного меню для отчета
Public Function PrintWithTumbling()
Dim CountPages As Integer
Dim i As Integer
If CurrentObjectType = acReport Then
CountPages = Reports(CurrentObjectName).Pages
DoCmd.PrintOut acPrintAll, 1, 1
For i = 2 To CountPages Step 2
If MsgBox("Печать страницы " & i - 1 & vbCrLf & vbCrLf & _
"Переверните лист по окончании печати страницы." & vbCrLf & vbCrLf & _
"Продолжить?", vbYesNo) = vbYes Then
DoCmd.PrintOut acPrintAll, i, i + 1
Else
Exit Function
End If
Next i
End If
End Function
|