| Вопрос: Как розпичатать picture1.picture через commondialo | Добавлено: 23.02.07 12:58 |
Автор вопроса:  D o c a l | Web-сайт: www.doc-source.pp.net.ua/ | ICQ: 408802757 |
| подскажитє плз.Народ ви нє обижайтесь што я пишу по китайські.Просто я із Украини (Закарпаття)в нас руский язик в школах не учат |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  D o c a l  ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #1 | Добавлено: 23.02.07 12:58 |
| у вопросе должно бить commondialog | ||
|
Номер ответа: 2 Автор ответа:  Алексейblack admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #2 | Добавлено: 23.02.07 13:20 |
|
http://www.prolingoffice.com/page.aspx?l1=28
|
||
|
Номер ответа: 3 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #3 | Добавлено: 23.02.07 16:15 |
| Спасиба за заботу но думаю ми словяні поймем друг друга без online переводчиков | ||
|
Номер ответа: 4 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #4 | Добавлено: 23.02.07 16:51 |
|
Вот славянин, может поможет, если я тебя правильно понял.
CommonDialog1.ShowPrinter
С помощью этого окна юзер может выбрать принтер, номера печатаемых страниц, а также число копий. Некоторые полезные константы для свойства .Flags: cdlPDPageNums = 2 - устанавливает или возвращает статус радиокнопки Pages (Делает ее доступной при использовании свойств .Min и .Max) cdlPDCollate = 16 (&H10) - устанавливает или возвращает статус галочки Collate cdlPDNoSelection = 4 - выключает радиокнопку Selection cdlPDSelection = 1 - устанавливает или возвращает статус радиокнопки Selection cdlPDAllPages = 0 - устанавливает или возвращает статус радиокнопки All Pages cdlPDPrintSetup = 64 (&H40) - выводит на экран SetUp принтера раньше, чем диалоговое окно Чтобы управлять ориентацией листа (горизонтальная печать или вертикальная) , надо явно передать константу ориентации из диалогового окна окна в объект Printer. Printer.Orientation = CommonDialog1.Orientation Если свойству .Flags задать значение cdlPDPageNums, а затем установить свойства .Min и .Max (Минимальное и максимальное количество печатаемых страниц, то в диалоговом окне станет доступно поле Pages. По умодчанию в него можно задать номера страниц с помощью свойств .FromPage (начальная страница печати) и .ToPage (конечная страница печати): CommonDialog1.Flags = cdlPDPageNums CommonDialog1.Min = 0 ' минимальное количество страниц CommonDialog1.Max = 10 ' максимальное количество страниц CommonDialog1.FromPage = 1 'начальная страница печати CommonDialog1.ToPage = 5 'конечная страница печати Можно также по умолчанию задать количество копий с помощью свойства .Copies: CommonDialog1.Copies = 3 Вот приблизительно, как может выглядеть код для печати содержимого Text1:
Private Sub Command5_Click() On Error GoTo Cansel CommonDialog1.CancelError = True CommonDialog1.Flags = cdlPDPageNums Or cdlPDCollate Or cdlPDNoSelection Or cdlPDAllPages CommonDialog1.Copies = 2 'количество копий по умолчанию CommonDialog1.Min = 0 CommonDialog1.Max = 10 CommonDialog1.FromPage = 1 CommonDialog1.ToPage = 2 CommonDialog1.ShowPrinter Printer.Orientation = CommonDialog1.Orientation 'ориентация листа Printer.Copies = CommonDialog1.Copies 'количество копий Printer.Print Text1.Text Printer.EndDoc Exit Sub Cansel: If Err.Number = cdlCancel Then Exit Sub Else MsgBox Err.Description End If End Sub |
||
|
Номер ответа: 5 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #5 | Добавлено: 23.02.07 19:25 |
| Народ спасписаба большое век незабуду | ||
|
Номер ответа: 6 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #6 | Добавлено: 23.02.07 19:57 |
Мда... кстати огорчают такие заявления, лишний раз подчёркивает что на единой Украине мы все разные... Исторически сложилось что Харьков русский город, в школах лично я учил и русский и украинский, вокруг меня всё на руссском, но я как-то без напряга воспринимаю и русский и украинский язык... А вот например сестра моя, младше меня на 6 лет, она тоже русский в школе никогда не учила, а между собой они тоже ведь на русском общаются... Ну устно то ладно.. вот беру у неё мобильник и ужасаюсь, эти смс на таком же "русско-украинско-падонкафском" языке 
|
||
Страница: 1 |