| Вопрос: Печать. | Добавлено: 17.06.07 00:58 |
Автор вопроса:  Wolf4D | Web-сайт: www.madnesstudio.ru
|
|
Ещё раз о наболевшем.
Вопрос - как организовать печать содержимого формы (Label, TextBox, Picture, Image) или просто печать картинки средствами VB 6? |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  ZagZag ICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #1 | Добавлено: 17.06.07 02:58 |
Иди-ка, дружок, в гуглю 
|
||
|
Номер ответа: 2 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #2 | Добавлено: 17.06.07 03:05 |
|
Option Explicit
Private Declare Function BitBlt Lib "gdi32.dll" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Sub Command1_Click() BitBlt Picture1.hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, hDC, 0, 0, vbSrcCopy Set Picture1.Picture = Picture1.Image Printer.PaintPicture Picture1, 0, 0 End Sub Код нет возможности проверить, но что-то он печатает
|
||
|
Номер ответа: 3 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #3 | Добавлено: 17.06.07 03:06 |
|
Сорри, забыл
Private Sub Form_Load()
Picture1.ScaleMode = vbPixels Picture1.AutoRedraw = True End Sub |
||
|
Номер ответа: 4 Автор ответа:  Wolf4D Вопросов: 20 Ответов: 131 |
Web-сайт: Профиль | | #4 | Добавлено: 17.06.07 14:56 |
|
О! Да оно ещё и скрин всей формы снимает! Мегареспектище! И на печать отправляет!
Вот только печать не начинается до завершения работы программы... Пишу отдельную прогу. |
||
|
Номер ответа: 5 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #5 | Добавлено: 18.06.07 15:02 |
|
А End не судьба поставить после отправки на печать? Просто про завершение проги вопроса вроде не было
|
||
|
Номер ответа: 6 Автор ответа: Wolf4DВопросов: 20 Ответов: 131 |
Web-сайт: Профиль | | #6 | Добавлено: 18.06.07 17:58 |
|
А End не судьба поставить после отправки на печать? Просто про завершение проги вопроса вроде не было
Судьба. Но идея завершать работу проги после печати меня не радует. Поэтому написал отдельную прогу, в которую по отсылке на печать в первой проге передаются все данные. Прога №2 отправляет всё на печать и завершается (End).
Вот так годится? |
||
|
Номер ответа: 7 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #7 | Добавлено: 18.06.07 18:09 |
|
Ну если тебя устраивает, то все ок.
Просто я смысла невижу создавать 2 проги |
||
|
Номер ответа: 8 Автор ответа: EUGYВопросов: 0 Ответов: 454 |
Профиль | | #8 | Добавлено: 18.06.07 18:20 |
|
1. Printer.EndDoc
2. Form1.PrintForm |
||
Страница: 1 |