| Вопрос: Печать ЛистБокса | Добавлено: 01.04.03 10:55 |
Автор вопроса:  Istyle
|
|
Пишу вот такой код: Private Sub Command2_Click() Dim PrintAsk As String PrintAsk = MsgBox("Надрукувати результат?", vbOKCancel) If PrintAsk = vbOK Then Dim z As Integer Printer.FontName = "Courier New" Printer.FontSize = 9 For z = 1 To List1.ListCount Printer.Print List1.List(z - 1) Next z Printer.EndDoc End If End Sub Программа зависает. Первый раз - после печати. То есть печатает, то что я хочу и пишет ошибка Spool. А потом уже даже не печатает, а виснет сразу (если машину не перезагрузить). Большое спасибо наперед. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Gravity Вопросов: 6 Ответов: 120 |
Профиль | | #1 | Добавлено: 01.04.03 11:39 |
|
У меня на компе тоже было.... Но когда я перенёс исходник на другой комп стало нормально .. В первом случае Win98SE, Canon BJC-4650, во втором - WinXP, HP (какой не помню). Ошибка возникала в строке Printer.EndDoc, я сделал так и стало нормально on error goto 10 printer.enddoc 10
|
||
|
Номер ответа: 2 Автор ответа:  MilleniumICQ: 629966 Вопросов: 118 Ответов: 903 |
Web-сайт: Профиль | | #2 | Добавлено: 03.04.03 11:10 |
|
http://vbnet.ru/sample/sampledownload.asp?id=265 - Vot moy primer... skayay... tam pokazivaet kak mojno nape4atat iz listBox i iz Combo box... Daje est primer kak rabotat s printerom Poka!!! |
||
Страница: 1 |