Imprimente Code a bare

Question

Mr Vb.
Bonjour tt le monde j'ai une petit question a vous poser, 
Comment peut on communiquer avec  une imprimente de Code a barre ( Exemlpe - Averty DENNISOn AP 2.4 ) . 
meme si elle bien configuré sur mon PC et quand je lance une impression l'imprimante ne repond pas.
pour imprimer j'utiliser la methode Printer.print
Merci

cs_trabice · Answer

c du ZPL?

fabrice

cs_trabice · Answer

normalement tu communique avec cette imprimante par hyper terminal,
sinon tu pe lui envoyer un fichier texte contenant du ZPL (je parle de ce que je connai..)

moi j utilisai ca :

dans un module :

Private Type DOCINFO: pDocName As String: pOutputFile As String: pDatatype As String: End Type
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 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
Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As String) As Long

Public portimpri(0 To 50) As String

Function PText(FilePath As String)
     Dim lhPrinter
     Dim lpcwritten
     Dim x
     Dim m$
     If FilePath = "" Then Exit Function
     If Dir(FilePath) = "" Then MsgBox "Fichier Spool introuvable (" + Command$ + ").", vbCritical: Exit Function
     Dim MyDocInfo As DOCINFO
     x = OpenPrinter(Printer.DeviceName, lhPrinter, 0)
     If x = 0 Then MsgBox "Pas d'imprimante par défaut.", vbCritical: Exit Function
     Open FilePath For Binary As #1: m$ = Space$(LOF(1)): Get 1, , m$: Close #1
     x = StartDocPrinter(lhPrinter, 1, MyDocInfo)
     x = StartPagePrinter(lhPrinter)
     x = WritePrinter(lhPrinter, ByVal m$, Len(m$), lpcwritten)
     x = EndPagePrinter(lhPrinter)
     x = EndDocPrinter(lhPrinter)
     x = ClosePrinter(lhPrinter)
End Function

ensuite reste juste a appeler la fonction avec le zpl dans ton fichier.
c'est assez rapide

fabrice

cs_ITALIA · Answer

Salut trabice,

J'utilise une Zebra et j'ai des gros soucis de lenteur d'impression avec la methode Printer.Print..
Je vais essay&#233; ta methode du Module.
mais si le fichier txt envoy&#233; contient du code ZPL, l'imprimante le traduira ? ou l'imprimera Texto ?

^XA
.....
.....
.....
^XZ

It@li@

Imprimente Code a bare

3 réponses

Discussions similaires