| Вопрос: Работа с ESC/POS | Добавлено: 28.02.06 18:23 |
Автор вопроса:  Selek
|
|
Товарищи! выручайте!!! Разбираюсь с принтером, работающим пр помощи команд ESC/POS.
По ходу появляются вопросы... кое-как нашел, как посылать сообщения на принтер в VB6.0. Как это делать в VB.Net?? И вообще, есть ли люди, занимающиеся этой же проблематикой? Спасибо за внимание и помощь)))) |
| Ответы | Всего ответов: 12 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 28.02.06 18:54 |
Покажи как на VB6, думаю что тогда найдется решение и для точки  ?
|
||
|
Номер ответа: 2 Автор ответа: Selek Вопросов: 3 Ответов: 6 |
Профиль | | #2 | Добавлено: 01.03.06 02:40 |
|
Option Explicit
Private Type DOCINFO pDocName As String pOutputFile As String pDatatype As String End Type Dim lhPrinter As Long Dim information As String Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long Private Declare Function EndDocPrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long Private Declare Function EndPagePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long Private Declare Function GetPrinter Lib "winspool.drv" Alias "GetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, buffer As Long, ByVal pbSize As Long, pbSizeNeeded As Long) As Long Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, ByVal pDefault As Long) As Long Private Declare Function StartDocPrinter Lib "winspool.drv" Alias "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pDocInfo As DOCINFO) As Long Private Declare Function StartPagePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long Private Declare Function WritePrinter Lib "winspool.drv" (ByVal hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, pcWritten As Long) As Long Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long Private Sub printing(ByVal datasend) Dim lReturn As Long  im lpcWritten As Long
im sWrittenData As String
im llReturn As Long
Dim pLocked As Boolean Dim pHidden As Boolean Dim lDoc As Long Dim MyDocInfo As DOCINFO Dim sourcestring As String Dim deststring As String lReturn = OpenPrinter(Printer.DeviceName, lhPrinter, 0) If lReturn = 0 Then MsgBox "The Printer Name you typed wasn't recognized." Exit Sub End If MyDocInfo.pDocName = "Proba" MyDocInfo.pOutputFile = vbNullString MyDocInfo.pDatatype = vbNullString lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo) Call StartPagePrinter(lhPrinter) sWrittenData = datasend lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, _ Len(sWrittenData), lpcWritten) llReturn = EndPagePrinter(lhPrinter) llReturn = EndDocPrinter(lhPrinter) llReturn = ClosePrinter(lhPrinter) Вот такая байда((( Дал знакомый, в инете сам долго не мог нарыть.... ах да собсно сама передача ESC/POS кода... Call printing(Chr$(&H1B) & "@" & Chr$(&H1D) & "!" & Chr$(11) & "Vsem privet" & Chr(27) & "i" & vbCrLf) Call printing(information) Call printing(Chr$(&H1D) & "e" & Chr$(5) & vbCrLf) |
||
|
Номер ответа: 3 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #3 | Добавлено: 01.03.06 10:35 |
| Думаецца, что это и на vb.net перевести можно... не вижу ничего такого... | ||
|
Номер ответа: 4 Автор ответа: mich ICQ: 261800349 Вопросов: 19 Ответов: 148 |
Web-сайт: Профиль | | #4 | Добавлено: 01.03.06 21:14 |
|
Перевести можно, только будет ли работать.
sne пытаюсь твой "Дозвон до Интернета" перевести на net вроде ничего такого не переводимого, а не работает. |
||
|
Номер ответа: 5 Автор ответа: SelekВопросов: 3 Ответов: 6 |
Профиль | | #5 | Добавлено: 01.03.06 23:26 |
| можно то полюбому.... тока это нигде не описано...(( в книгах пишут про печать только о "замечательном" вызове диалогового окна печати..... | ||
|
Номер ответа: 6 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #6 | Добавлено: 01.03.06 23:42 |
2mich, там есть свои особенности Я с VB6 то маялся слегка... а с точкой да еще не знаючи ты вовсем офигивать будешь  ) ИМХО
|
||
|
Номер ответа: 7 Автор ответа: michICQ: 261800349 Вопросов: 19 Ответов: 148 |
Web-сайт: Профиль | | #7 | Добавлено: 02.03.06 22:35 |
|
ИМХО - Это че значит?
In My Humble Opinion или Имею Мнение Хрен Оспоришь |
||
|
Номер ответа: 8 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #8 | Добавлено: 02.03.06 22:54 |
| По моему скромному мнению. Humble... | ||
|
Номер ответа: 9 Автор ответа: SelekВопросов: 3 Ответов: 6 |
Профиль | | #9 | Добавлено: 04.03.06 13:15 |
| Мдя... ниужели никто не сталкивался с такой проблемой?????? | ||
|
Номер ответа: 10 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #10 | Добавлено: 04.03.06 23:22 |
| Так ты начни переводить, если что, поможем... | ||
|
Номер ответа: 11 Автор ответа: SelekВопросов: 3 Ответов: 6 |
Профиль | | #11 | Добавлено: 06.03.06 15:17 |
| в том и проблемма... не знаю с чего начать... какие библиотеки подключать и использовать? в .net должно быть все проще... вот тока как это делать((((( | ||
|
Номер ответа: 12 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #12 | Добавлено: 07.03.06 01:58 |
|
Нет, ФПИ в .нет сложнее готовься
|
||
Страница: 1 |