|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
16.07.2009, 11:33 | #1 |
Новичок
Джуниор
Регистрация: 16.07.2009
Сообщений: 11
|
Помогите Пожалуйста новичку
Макрос должен при открытии документа автоатически
выводить на печать но при работе вылазит ошибка 91 Sub Auto_Open() ' ' Ìàêðîñ1 Ìàêðîñ ' Ìàêðîñ çàïèñàí (Administrator) ' ' With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.787401 575) .RightMargin = Application.InchesToPoints(0.787401 575) .TopMargin = Application.InchesToPoints(0.984251 969) .BottomMargin = Application.InchesToPoints(0.984251 969) .HeaderMargin = Application.InchesToPoints(0.5) .FooterMargin = Application.InchesToPoints(0.5) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 60 .PrintErrors = xlPrintErrorsDisplayed End With ActiveWindow.SelectedSheets.PrintOu t Copies:=1, Collate:=True End Sub |
16.07.2009, 13:32 | #2 |
Форумчанин
Регистрация: 03.04.2009
Сообщений: 412
|
В макросе ошибок нет. При открытии выводится на печать. Ищите "собаку" в другом месте.
|
16.07.2009, 13:40 | #3 |
Новичок
Джуниор
Регистрация: 16.07.2009
Сообщений: 11
|
если можно подскажите хоть где искать
а то второй день мозг вынимаю |
16.07.2009, 13:43 | #4 |
Форумчанин
Регистрация: 03.04.2009
Сообщений: 412
|
Прикрепите файлик, попробуем на примере.
|
16.07.2009, 14:09 | #5 |
Новичок
Джуниор
Регистрация: 16.07.2009
Сообщений: 11
|
прикрепляю два файла один из них тот который должен печаться
другой конвертер необходимый для чтения этих файлов спасибо большое |
16.07.2009, 15:27 | #6 |
Форумчанин
Регистрация: 03.04.2009
Сообщений: 412
|
Файл "Печать" доступен только для чтения. В сохранённой копии всё работает. А какой антивирус Вы используете?
|
16.07.2009, 15:30 | #7 |
Новичок
Джуниор
Регистрация: 16.07.2009
Сообщений: 11
|
антивирусника нет вообще
|
16.07.2009, 15:33 | #8 |
Форумчанин
Регистрация: 03.04.2009
Сообщений: 412
|
Я так понимаю, что файл генерируется из 1С. А как в него попадает макрос. Спрашиваю потому, что в Вашем файле его нет.
|
16.07.2009, 15:34 | #9 |
Новичок
Джуниор
Регистрация: 16.07.2009
Сообщений: 11
|
ну вообщето я макрос сохранил в личную книгу макросов
|
16.07.2009, 15:42 | #10 |
Новичок
Джуниор
Регистрация: 16.07.2009
Сообщений: 11
|
Поясню детально задачу
Из 1С генериуется файл *.mxl он по почте уходит на отдаленый компютер где почтовик его открывает с помощью EXCEl и вот в этот момент должен срабатывать макрос который бы его отправил на печать |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
НУЖНА СРОЧНАЯ ПОМОЩЬ НОВИЧКУ,ПОМОГИТЕ С КУРСОВОЙ,ПОЖАЛУЙСТА | sparxxxxx | Помощь студентам | 4 | 17.05.2009 14:45 |
Помогите пожалуйста новичку :) | snowyowl | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 13.01.2009 10:23 |
Помогите новичку Пожалуйста | niva622 | Помощь студентам | 1 | 09.04.2008 22:26 |
Пожалуйста помогите новичку... | Дмитрий Соколов | Помощь студентам | 1 | 12.12.2007 02:14 |