| Вопрос: Помогите!!! | Добавлено: 16.05.06 18:38 |
Автор вопроса:  ScorpionS | Web-сайт: www.odisseyaco.ru | ICQ: 237494026 |
| Как по клику на кнопку распечатать содержимое пикчебокса? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  LeX ICQ: 301424893 Вопросов: 28 Ответов: 277 |
Web-сайт: Профиль | | #1 | Добавлено: 16.05.06 19:12 |
|
Может так:
Public Sub PrintPictureToFitPage(Prn As Printer, Pic As Picture)
Const vbHiMetric As Integer = 8 Dim PicRatio As Double Dim PrnWidth As Double Dim PrnHeight As Double Dim PrnRatio As Double Dim PrnPicWidth As Double Dim PrnPicHeight As Double If Pic.Height >= Pic.Width Then Prn.Orientation = vbPRORPortrait Else Prn.Orientation = vbPRORLandscape End If PicRatio = Pic.Width / Pic.Height PrnWidth = Prn.ScaleX(Prn.ScaleWidth, Prn.ScaleMode, vbHiMetric) PrnHeight = Prn.ScaleY(Prn.ScaleHeight, Prn.ScaleMode, vbHiMetric) PrnRatio = PrnWidth / PrnHeight If PicRatio >= PrnRatio Then PrnPicWidth = Prn.ScaleX(PrnWidth, vbHiMetric, Prn.ScaleMode) PrnPicHeight = Prn.ScaleY(PrnWidth / PicRatio, vbHiMetric, Prn.ScaleMode) Else PrnPicHeight = Prn.ScaleY(PrnHeight, vbHiMetric, Prn.ScaleMode) PrnPicWidth = Prn.ScaleX(PrnHeight * PicRatio, vbHiMetric, Prn.ScaleMode) End If Prn.PaintPicture Pic, 0, 0, PrnPicWidth, PrnPicHeight End Sub |
||
|
Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 17.05.06 19:34 |
| Printer.PaintPicture Picture1 | ||
|
Номер ответа: 3 Автор ответа: LeXICQ: 301424893 Вопросов: 28 Ответов: 277 |
Web-сайт: Профиль | | #3 | Добавлено: 17.05.06 19:42 |
|
А я думал, что это только для печати содержимого текст бокса.. Вот как я пытался:
Printer.print picture1.picture.... 
|
||
Страница: 1 |