Sub set_source_print(strName As String, DS As Byte)

    Dim DevString As str_DEVMODE
    Dim DM As type_DEVMODE
    Dim strDevModeExtra As String
    Dim rpt As Report
    
    DoCmd.OpenReport strName, acDesign
            
    Set rpt = Reports(strName)
    If Not IsNull(rpt.PrtDevMode) Then
        strDevModeExtra = rpt.PrtDevMode
        DevString.RGB = strDevModeExtra
        LSet DM = DevString
        
DM.intDefaultSource = DS 'лоток

        LSet DevString = DM
        Mid(strDevModeExtra,  1 ,  94 ) = DevString.RGB
        rpt.PrtDevMode = strDevModeExtra
    End If
    
DoCmd.Close acReport, strName, acSaveYes
    
End Sub