Печать документа из формы

[Aleksandr]

Не получается вывести на печать лист из формы вот код

Private Sub OK_Click()
Unload UserForm1
    Application.CommandBars("Standard").Enabled = True
    Application.CommandBars("Formatting").Enabled = True
    Application.CommandBars("Visual Basic").Enabled = True
    Application.CommandBars("Web").Enabled = True
    Application.CommandBars("WordArt").Enabled = True
    Application.CommandBars("Clipboard").Enabled = True
    Application.CommandBars("External Data").Enabled = True
    Application.CommandBars("Picture").Enabled = True
    Application.CommandBars("Stop Recording").Enabled = True
    Application.CommandBars("Reviewing").Enabled = True
    Application.CommandBars("Drawing").Enabled = True
    Application.CommandBars("PivotTable").Enabled = True
    Application.CommandBars("Forms").Enabled = True
    Application.CommandBars("Control Toolbox").Enabled = True
    
    ActiveWindow.WindowState = xlMaximized
  
Лист1.Activate
  PrintMains

End Sub

Хотя если ставлю кнопку с кодом на лист то получается

Лист1.Activate
  PrintMains

В чем причина?

[дмидми]

Всё это - в UserForm1?
Если да, то после Unload UserForm1 хоть что-нибудь из приведенного выполняется?
Если нет, то вместо Unload попробуйте UserForm1.Hide или (что то же самое) Me.Hide

[Aleksandr]

Все выполняется. Не выполняется только Лист1.Activate
PrintMains

[Aleksandr]

Пробовал UserForm1.Hide не получается

[дмидми]

Ну, тогда остаётся искать ошибку в PrintMains.
У меня, как это ни странно,

Private Sub CommandButton1_Click()
    Unload UserForm1
    If ActiveSheet Is Лист2 Then Лист1.Activate Else Лист2.Activate
    ActiveSheet.PrintOut
End Sub

работает даже с Unload. Видимо, ёксель выгружает не где велено, а где можно

[Aleksandr]

Спасибо работает