| Вопрос: Как печатать на VB? | Добавлено: 15.03.04 09:20 |
Автор вопроса:  Пшевлоцкий Максим | Web-сайт: mslist.rdcom.ru
|
|
Что-то я никак немогу страницу напечатать, принтер только жрет бумагу и начинает пищать. Под рукой нет никакой документации. Работаю так-сказать на глаз. Помогите в чем ошибка: Const INTERVAL As Integer = 30 Dim i As Integer Dim n As Integer Dim sum As Integer Dim a As Integer Dim b As Integer Dim tf As Long Dim y As Integer Dim lf As Integer sum = 0 a = CInt(eA.Text) b = CInt(eB.Text) tf = Printer.ScaleHeight / 100 * 20 y = Printer.TextHeight("W") Randomize 'Printer.ScaleMode = vbTwips Printer.Font.Size = 14 For i = 1 To 10 n = Int(Rnd(b - a)) + a lf = 0.5 * (Printer.ScaleWidth / 2 - Printer.TextWidth(CStr(n))) Call TextOut(Printer.hdc, lf, tf + (y + INTERVAL) * i, CStr(n), Len(CStr(n))) sum = sum + n Next i lf = 0.5 * (Printer.ScaleWidth / 2 - Printer.TextWidth("Сумма = " & CStr(sum))) Call TextOut(Printer.hdc, lf, tf + (y + INTERVAL) * i, "Сумма = " & CStr(sum), Len("Сумма = " & CStr(sum))) Printer.NewPage Printer.EndDoc |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа: M@X Вопросов: 38 Ответов: 43 |
Профиль | | #1 | Добавлено: 15.03.04 09:44 |
| Printer.Print "tvoi_text" | ||
Страница: 1 |