Здравствуйте, есть макрос, после его выполнения книга должна сохраниться в сетевую папку (откуда она была открыта - \\Serverlex\FAILS (D)\Мои документы\КОМПАНИИ\Хик\Август-сентябрь\Документы 2014\ГАББРО) , она сохраняется но не всегда, через раз, то в папке Мои документы, то в сетевой.
Код |
---|
1 2 3 4 5 6 7 8 | Sub WPrintButton_Click()
Worksheets( "Упаковочный" ).Range( "A1:H35" ).PrintOut Copies:=2
Worksheets( "Инвойс" ).Range( "A1:I39" ).PrintOut Copies:=2
Worksheets( "Приложение" ).Range( "A1:H50" ).PrintOut Copies:=3
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Worksheets( "Расчетка" ).Range( "H22" ).Value
Sheets( "ДТ" ). Select
MsgBox "Документы сохранены и распечатаны, заполняйте декларацию!" , vbExclamation
End Sub
|
|
Объясните что сделал не так?