| Вопрос: Как распечать опред..страницу наж..кн..и | Добавлено: 21.01.06 00:50 |
Автор вопроса:  Tsar
|
|
Возник вопрос, с эти пока не сталкивался
но сочинав небольшую прог..., возникла неообходимость вывода на печать нажатием кнопки расположенной на UserForm, при нажатии на которую печатается определенная страница Exsel, к примеру List5 Нужна помощь!!! |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  SLAVA Вопросов: 8 Ответов: 22 |
Профиль | | #1 | Добавлено: 21.01.06 18:22 |
|
Sub PRN11()
Sheets("11"  .Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub |
||
|
Номер ответа: 2 Автор ответа: SLAVAВопросов: 8 Ответов: 22 |
Профиль | | #2 | Добавлено: 21.01.06 18:24 |
|
Sub PRN11()
Sheets("5" .Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub |
||
|
Номер ответа: 3 Автор ответа:  TsarВопросов: 4 Ответов: 14 |
Профиль | | #3 | Добавлено: 24.01.06 13:17 |
| Усли можно нужны небольшие пояснения, что к чему | ||
|
Номер ответа: 4 Автор ответа: SLAVAВопросов: 8 Ответов: 22 |
Профиль | | #4 | Добавлено: 24.01.06 22:50 |
|
stavish liuboi risunok
pravii klik po resunku naznaciti macros sozdati tuda copiruesh Sheets("лист1" .Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True |
||
|
Номер ответа: 5 Автор ответа: SLAVAВопросов: 8 Ответов: 22 |
Профиль | | #5 | Добавлено: 24.01.06 22:54 |
|
copirues mejdu
sub() Sheets("лист1" .Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True end sub ("лист1" - nazvania lista pecati
potom vse zacroi i najmi na risunoi ili cto ti vibral dlea zapuska macrosa |
||
|
Номер ответа: 6 Автор ответа: SLAVAВопросов: 8 Ответов: 22 |
Профиль | | #6 | Добавлено: 24.01.06 22:54 |
|
esli nado vishliu primer! |
||
Страница: 1 |