не обробатывает установки печати

Guest

Гость

23.03.2011 10:48:32

Изменяю настройки печати после чего отпровляю по почте. Ексель как бы не успивает из применить и приклепляет к отправке фаил не настроеный на печать
если делать из 2х макросов то все получиться. но нужнобы из одного.

'настройки печати
Application.PrintCommunication = False
With Workbooks(NewName).Sheets("лист1").PageSetup
.PrintTitleRows = "$1:$7"
.PrintTitleColumns = ""
.FitToPagesWide = 1
.FitToPagesTall = 2
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
End With
'отправка по почте
Application.Dialogs(xlDialogSaveAs).Show
Application.Workbooks(NewName).Close

ikki Пользователь Сообщений: 9709 Регистрация: 22.12.2012	#2 23.03.2011 10:52:25 а сохранять файл перед отправкой кто должен? фрилансер Excel, VBA - контакты в профиле "Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг

Guest Гость	#3 23.03.2011 11:18:44 Пробывал сохронять Workbooks(NewName).Save Всеровно не получаеться такое ощущение что не успевает.

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#4 23.03.2011 11:31:44 Application.PrintCommunication Property ( http://msdn.microsoft.com/en-us/library/ff835544.aspx ) Specifies whether communication with the printer is turned on. Boolean Read/write Version Added: Excel 2010 Фигасе. Попробуйте назад вернуть перед отправкой по почте ... Application.PrintCommunication = True 'отправка по почте Application.Dialogs(xlDialogSaveAs).Show Application.Workbooks(NewName).Close

Читают тему