Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Использование MSCOMM32.OCX / 2 сообщений из 2, страница 1 из 1
04.07.2007, 14:46
    #34638185
ByKiS
ByKiS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование MSCOMM32.OCX
Подскажите,
На принтер на СОМ1 надо отослать етикетку. Как можно узнать распечаталась она или нет (как вариант если закочилась бумага)? Можно ли как-то сравнить размер sEtiketka с тем что осталось в буфере после процедуры, и если оно равно (то есть в буфере осталось и он не пустой - етикетка не распечаталась) ?.. Или с какой стороны к этому подойти?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Command16_Click()
Dim sEtiketka As String: sEtiketka = "P1" & Chr( 10 ) & Chr( 13 )

With Me.MSComm5
    .CommPort =  1 
    .Settings = "9600,n,8,1"
    .InputLen =  0 
    .PortOpen = True
    .Output = sEtiketka
    .PortOpen = False
End With

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2007, 20:02
    #34642368
RUSYA
RUSYA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Использование MSCOMM32.OCX
лучше юзая апи CreateFile
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Использование MSCOMM32.OCX / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 370ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2163769]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 67ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 2ms
others: 232ms
total:  370ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]