---

Private Sub Report_Open(Cancel As Integer)

    Dim inArgs() As String
    Dim OrderNum
    
    If Not IsNull(Me.OpenArgs) Then
        inArgs = Split(Me.OpenArgs, "|")
    Else
        inArgs = Split("-1", "|")
    End If
    
    If UBound(inArgs) - LBound(inArgs) + 1 > 1 Then
        If inArgs(0) = "1" Then
          Me.Filter = "[НомерЗаказа]=" & inArgs(1) & " AND [Гибы] > 0"
          Me.Caption = "Задание на гибку к заказу № " & inArgs(1)
' Me.Надпись20.Caption = "Задание на гибку к заказу № "
        ElseIf inArgs(0) = "2" Then
          Me.Filter = "[НомерЗаказа]=" & inArgs(1) & " AND [КодКраски] > 0"
          Me.Caption = "Задание на покраску к заказу № " & inArgs(1)
'          Me.Надпись20.Caption = "Задание на покраску к заказу № "
        End If
    Else
        Me.Filter = "[НомерЗаказа]=" & inArgs(0)
        Me.Caption = "Задание к заказу № " & inArgs(0)
'        Me.Надпись20.Caption = "Задание к заказу № "
    End If
    
    Me.FilterOn = True
    
    Dim objPrinter As Printer
    Dim maxWidth As Single
    
    On Error Resume Next
    Set objPrinter = Application.Printer
    
    If Not objPrinter Is Nothing Then
        ' Установка принтера для получения информации о нём
        Application.Printer = objPrinter
        
        ' Получение максимальной ширины отчёта
 '       maxWidth = Application.printer.PaperWidth
 '       MsgBox "Максимальная ширина отчёта в режиме Print Preview: " & maxWidth & " единиц измерения принтера"
    Else
 '       MsgBox "Принтер не найден."
    End If

Dim pageWidth As Single
'pageWidth = printer.Width

'Me.Report.Width = pageWidth
'Me.Report.Width = Me.Report.WindowWidth - Me.НазваниеИзделия.Left * 2
'Me.НазваниеИзделия.Width = Me.Report.Width - Me.Количество.Width - Me.КодМатериала.Width - Me.ПринадлежностьЗак.Width - Me.OYФайла.Width - Me.OXФайла.Width - Me.Флажок45.Width

    Dim reportLoaded As Boolean
    
    'Do Until reportLoaded
     '   DoEvents
      '  reportLoaded = Me.Report.HasData
    'Loop
   
    'MsgBox "!"
End Sub

Private Sub Report_Page()
Dim PercentWidth
'PercentWidth = Me.Width - Me.Количество.Width - Me.КодМатериала - Me.ПринадлежностьЗак.Width - Me.OYФайла.Width - Me.OXФайла.Width - Me.Флажок45.Width
'Me.НазваниеИзделия.Width = Me.Width * 0.3 'PercentWidth

'Me.НазваниеИзделия.Width = Me.Report.Width - Me.Количество.Width - Me.КодМатериала.Width - Me.ПринадлежностьЗак.Width - Me.OYФайла.Width - Me.OXФайла.Width - Me.Флажок45.Width

    Dim pageWidth

    If Me.Printer.Orientation = acPRORPortrait Then
'        PageWidth = Me.Printer.PaperSize
    ElseIf Me.Printer.Orientation = acPRORLandscape Then
'        PageWidth = Me.Height
    End If
'Me.Width = Me.Report.WindowWidth
    
End Sub