| Вопрос: печать опр. кол-ва экземпляров | Добавлено: 11.12.08 11:39 |
Автор вопроса:  oleg
|
| Подскажите возможно ли задать условия печати по какому либо собитию (закрытие, сохранение или просто CommandButton_Click) количество экземпляров документа, которое рассчитывается в ячейке, то есть происходит рассчет по встроенным функциям и из ячейки берется готовый результат, равный количеству экз., при этом возможен результат равный "" или 0. Или нужно писать всю процедуру описывать на VB? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Father Вопросов: 0 Ответов: 159 |
Профиль | | #1 | Добавлено: 11.12.08 12:21 |
|
Sub Кнопка1_Щелкнуть() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(1) Dim i As Integer i = Val(ws.Range("A1"  ) ' равный количеству экз.,
i = IIf(i, i, i + 1) ' при этом возможен результат равный "" или 0. ws.PrintOut , , i End Sub |
||
|
Номер ответа: 2 Автор ответа: FatherВопросов: 0 Ответов: 159 |
Профиль | | #2 | Добавлено: 11.12.08 12:22 |
| p.s. чертов смайлик не в тему. | ||
|
Номер ответа: 3 Автор ответа: oleg Вопросов: 12 Ответов: 23 |
Профиль | | #3 | Добавлено: 11.12.08 14:03 |
| Спасибо за науку. Только учусь,а без примеров очень плохо. | ||
|
Номер ответа: 4 Автор ответа: olegВопросов: 12 Ответов: 23 |
Профиль | | #4 | Добавлено: 11.12.08 14:55 |
|
Еще один вопрос. Попытался решить немного другую задачу печатать не текущий, а другой лист книги и столкнулся с печатью текущего листа. Подскажите, пожалуйста, где заблудился. Большое спасибо.
Sub CommandButton10_Click() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(лист1) Dim i As Integer i = Val(ws.Range("A1" ) ' равный количеству экз.,
i = IIf(i, i, i + 1) ' при этом возможен результат равный "" или 0. Sheets(Array("лист3" ).Select ' выбираю нужный лист
ws.PrintOut , , i ' печатаем количество Sheets(Array("лист1" ).Select ' возвращаюсь обратно
End Sub |
||
|
Номер ответа: 5 Автор ответа: FatherВопросов: 0 Ответов: 159 |
Профиль | | #5 | Добавлено: 11.12.08 15:29 |
| ActiveSheet.PrintOut , , i | ||
Страница: 1 |