AKBAMAPUH
09-10-2012, 15:04
по пункту 1 мне вот что подсказали
'отключение крестика на UserForm1
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = -1
End Sub
но хотелось бы решить данный вопрос используя пример, представленный в файле Forma
А вот как сделал по пункту 2
'Распечатываем. Ждём окончания процесса печати.
'А то не будет распечатываться ничего, сразу закроется всё.
ActiveDocument.PrintOut Background:=False
'закрываем приложение Word без сохранения изменений и без возможности выбора
Application.Quit SaveChanges:=wdDoNotSaveChanges
'отключение крестика на UserForm1
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = -1
End Sub
но хотелось бы решить данный вопрос используя пример, представленный в файле Forma
А вот как сделал по пункту 2
'Распечатываем. Ждём окончания процесса печати.
'А то не будет распечатываться ничего, сразу закроется всё.
ActiveDocument.PrintOut Background:=False
'закрываем приложение Word без сохранения изменений и без возможности выбора
Application.Quit SaveChanges:=wdDoNotSaveChanges