VBNet - Форум - Печать.

Вопрос: Печать. Добавлено: 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 Автор ответа: ZagZag ICQ: 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 Автор ответа: ZagZag ICQ: 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-сайт: www.madnesstudio.ru Профиль \| Цитата \| #4	Добавлено: 17.06.07 14:56
	О! Да оно ещё и скрин всей формы снимает! Мегареспектище! И на печать отправляет! Вот только печать не начинается до завершения работы программы... Пишу отдельную прогу. Ответить

Номер ответа: 5 Автор ответа: ZagZag ICQ: 295002202 Вопросов: 87 Ответов: 1684	Профиль \| Цитата \| #5	Добавлено: 18.06.07 15:02
	А End не судьба поставить после отправки на печать? Просто про завершение проги вопроса вроде не было Ответить

Номер ответа: 6 Автор ответа: Wolf4D Вопросов: 20 Ответов: 131	Web-сайт: www.madnesstudio.ru Профиль \| Цитата \| #6	Добавлено: 18.06.07 17:58
	А End не судьба поставить после отправки на печать? Просто про завершение проги вопроса вроде не было Судьба. Но идея завершать работу проги после печати меня не радует. Поэтому написал отдельную прогу, в которую по отсылке на печать в первой проге передаются все данные. Прога №2 отправляет всё на печать и завершается (End). Вот так годится? Ответить

Номер ответа: 7 Автор ответа: ZagZag ICQ: 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 |