'Смена принтера
Private Sub П_Выбор_Принт_AfterUpdate()
    Set Application.Printer = _
        Application.Printers.Item(Me.П_Выбор_Принт.Value)
    MsgBox "Принтер по умолчанию: " & Me.П_Выбор_Принт
End Sub
Private Sub Form_Load()
    Dim prt As Printer
    For Each prt In Printers
        Me.П_Выбор_Принт.AddItem prt.DeviceName
    Next prt
    Me.П_Выбор_Принт = Application.Printer.DeviceName
End Sub

Private Sub П_Выбор_Печать_AfterUpdate()
    Dim rpt1 As Forms
    Set rpt1 = Forms
    If П_Выбор_Печать = "Односторонняя" Then
       Printer.Duplex = acPRDPSimplex
    Else
       Printer.Duplex = acPRDPHorizontal ' - acPRDPVertical rpt.Ф_Увед_Конверт_Должн
    End If
End Sub

  Private Sub Кн_Конверт_Должн_ОТЧ_Click()
    Dim stLinkCriteria As String
    Dim stDocName As String
stDocName = "О_Увед_Конверт_Должн"
   With Me
    If .OpenArgs = "Односторонняя" Then
       .Printer.Duplex = acPRDPSimplex
    Else
       .Printer.Duplex = acPRDPHorizontal ' - acPRDPVertical rpt.Ф_Увед_Конверт_Должн
    End If
    End With
    DoCmd.OpenReport stDocName, acViewPreview
    DoCmd.OpenReport stDocName, acViewNormal
    DoCmd.Close acReport, stDocName
    DoCmd.Close acForm, Me.Name
    End Sub

Sub mm160224()           '''запускается при закрытом отчете
CheckCustomPage "query1"
End Sub
Public Sub CheckCustomPage(ByVal rptName As String)
 
    Dim DevString As str_DEVMODE
    Dim DM As type_DEVMODE
    Dim strDevModeExtra As String
    Dim rpt As Report
    Dim intResponse As Integer
    
    ' Opens report in Design view.
    DoCmd.OpenReport rptName, acDesign
    Set rpt = Reports(rptName)
    
    If Not IsNull(rpt.PrtDevMode) Then
        strDevModeExtra = rpt.PrtDevMode
        
        ' Gets current DEVMODE structure.
        DevString.RGB = strDevModeExtra
        LSet DM = DevString
        
        
            intResponse = MsgBox("d=" & DM.intDuplex, vbDefaultButton1)
        
        If intResponse = vbYes Then
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
DM.intDuplex = 2
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
''попробовать не могу, у меня нет такого принтера
''An Integer. For a printer capable of duplex printing, specifies whether the output is printed on both sides of the paper. The values are
''1 (simplex), 2 (horizontal), and 3 (vertical).
           
'' Для принтера, способного двусторонней печати,
''указывает ли печатается выходной на обеих сторонах бумаги. Значения
'' 1 (симплекс), 2 (по горизонтали), а 3 (по вертикали).
           
            ' Update property.
            LSet DevString = DM
            Mid(strDevModeExtra, 1, 94) = DevString.RGB
            rpt.PrtDevMode = strDevModeExtra
        End If
    End If
    
    Set rpt = Nothing
    
End Sub

Private Sub cmdPrint_Click()
    Dim rpt As Report
    
    Set rpt = Reports(mstrName)
    With rpt.Printer
        .ColorMode = cboColorMode.Value
        .Copies = txtCopies.Value
        .Duplex = cboDuplex.Value
        .Orientation = cboOrientation.Value
        .PaperBin = cboPaperBin.Value
        .PaperSize = cboPaperSize.Value
        .PrintQuality = cboPrintQuality.Value
    End With
End Sub