Двусторонняя печать отчета

Public Sub Print2SizeReport(S As String)
    DoCmd.OpenReport S, acPreview
    DoCmd.Minimize
    Dim KolPages As Integer, KolList As Integer, i As Integer
    KolPages = Reports(S)![Страниц]
    KolList = Int(KolPages / 2) + IIf(KolPages Mod 2 = 0, 0, 1)
If MsgBox("Вставьте в принтер " & KolList & " листов !", vbOKCancel) = vbOK Then
    For i = 1 To KolList * 2 - 1 Step 2
        DoCmd.SelectObject acReport, S
        DoCmd.PrintOut acPages, i, i
    Next i
    For i = KolList * 2 To 2 Step -2
        If i > KolPages Then
            DoCmd.OpenReport "Пустой отчет", acNormal
        Else
            DoCmd.SelectObject acReport, S
            DoCmd.PrintOut acPages, i, i
        End If
    Next i
End If
DoCmd.Close acReport, S
End Sub

If MsgBox("По закінченню друку  перекладіть папір іншою стороною та натисніть кнопку 'ОК'.", 64, "Увага !") = 1 Then

Option Compare Database
Option Explicit
 
Public Function fPrintReport()
Dim intAmountPages As Integer, intAmountList As Integer, i As Integer
' визначаєм кількість сторінок
intAmountPages = Reports(Screen.ActiveReport.name)![AmountPages]
' визначаєм кількість листків паперу
intAmountList = Int(intAmountPages / 2) + IIf(intAmountPages Mod 2 = 0, 0, 1)
 If MsgBox("Необхідна кількість листків паперу для друку: " & intAmountList & ". Друкуємо?", 36, "Увага !") = 6 Then
  'Якщо в звіті 1 сторінка - друкуєм її і виходим з функції  
If intAmountPages = 1 Then
            DoCmd.SelectObject acReport, Screen.ActiveReport.name
            DoCmd.PrintOut acPages
            DoCmd.Close acReport, "YourReport"
            Exit Function            
    End If
 
     ' якщо кількість сторінок непарна       
    If intAmountPages Mod 2 = 1 Then
 
    ' починаєм друк з останньої парної (від кількості сторінок віднімаєм 1)
        For i = intAmountPages - 1 To 2 Step -2
            DoCmd.SelectObject acReport, Screen.ActiveReport.name
            DoCmd.PrintOut acPages, i, i
        Next i
 
    Else
' якщо кількість сторінок парна - починаєм з останньої
        For i = intAmountPages To 2 Step -2
            DoCmd.SelectObject acReport, Screen.ActiveReport.name
            DoCmd.PrintOut acPages, i, i
        Next i
    End If
    
' друкуєм непарні сторінки
 If MsgBox("По закінченню друку парних сторінок перекладіть папір іншою стороною та натисніть кнопку 'ОК'.", 64, "Увага !") = 1 Then
        For i = 1 To intAmountPages Step 2
            DoCmd.SelectObject acReport, Screen.ActiveReport.name
            DoCmd.PrintOut acPages, i, i
        Next i    
    End If
 
DoCmd.Close acReport, "YourReport"
End If
 
End Function