BEMATECH MP-4200TH NAO FISCAL USB - IMPRIMIR

TRTNCG 23/04/2012 23:03:48
#400584
Pessoal Boa Noite!

Será que poderiam me dá uma ajudinha. Um cliente meu comprou uma BEMATECH MP-4200 TH, e preciso implementar para imprimir um cupom de simples conferência. O problema que não estou conseguindo imprimir ela é INTERFACE USB. alguém teria algum exemplo para me enviar, que se não me engano apesar de ser USB simula uma porta COM. Não estou conseguindo imprimir. Uso o Windos 7 64 Bits, já coloquei a DLL MP2032.dll em system32, SYSWOW64 e nada
CLEITONSOUZA 24/04/2012 00:43:43
#400586
TRSOFTWARES
EXISTE SIM UM COMANDO QUE SIMULA A COM, POREM NAO SEI SE FUNCIONA O DIRECIONAMENTO DE USB PARA COM AINDA NAO PRECISEI, MAS FAÇA O TESTE POIS PARA DIRECIONAR PARA A COM UMA IMPRESSORA QUE é PARALELA SERIA ASSIM
MODE COM1 = LPT1 (VISE VERSA)
MARCELOKROL 24/04/2012 07:42:51
#400592
se a maquina esta na rede, instala um impressora generica somente texto para ela, compratilha ela, manda imprimi no compartilhamento que funciona. Assim:
Open [Ô]\\MaquinaOuEnderecoIP\NomeDoCompartilhamentoCriado[Ô] for output as #1
print #1, [Ô]teste de impressao[Ô]
close #1

ate mais
WILSONJOSE 24/04/2012 11:16:43
#400624
Veja se te ajuda

Dim LINHA As String [ô]Declarando a variável que manda o conteúdo para a impressora



LINHA = Space(8) & emprNome & vbCrLf
LINHA = LINHA & emprEnder & [Ô] - [Ô] & emprCid & [Ô] - [Ô] & emprUF & vbCrLf
LINHA = LINHA & Space(20) & [Ô]Tel. [Ô] & emprFone & vbCrLf
LINHA = LINHA & [Ô]------------------------------------------------[Ô] & vbCrLf
LINHA = LINHA & Space(13) & [Ô]Comprovante de Venda[Ô] & vbCrLf
LINHA = LINHA & Space(10) & [Ô]Nao valido como cupom fiscal[Ô] & vbCrLf
LINHA = LINHA & [Ô]------------------------------------------------[Ô] & vbCrLf
LINHA = LINHA & [Ô]Cliente : [Ô] & Format(TxtCodCli.Text, [Ô]00000[Ô]) & [Ô] [Ô] & Left(cboCliente.Text, 31) & vbCrLf
LINHA = LINHA & [Ô]Vendedor : [Ô] & Format(txtVen.Text, [Ô]00[Ô]) & [Ô] [Ô] & Left(txtNomeVen.Text, 19) & vbCrLf
LINHA = LINHA & [Ô]Pedido : [Ô] & Format(npedido, [Ô]000000[Ô]) & Space(2) & [Ô]Data: [Ô] & Format(Date, [Ô]dd/mm/yyyy[Ô]) & [Ô] [Ô] & Time & vbCrLf
LINHA = LINHA & [Ô]------------------------------------------------[Ô] & vbCrLf
LINHA = LINHA & [Ô]Codigo Descricao Preco Qtd Total [Ô] & vbCrLf
LINHA = LINHA & [Ô]------------ --------------- ------- ---- ------[Ô] & vbCrLf
For n = 1 To GrdItem.Rows - 1
LINHA = LINHA & Format(GrdItem.TextMatrix(n, 1), [Ô]0000000000000[Ô]) & Space(1) & Left(dprod, 15) & Space(Esp) & GrdItem.TextMatrix(n, 3) & Space(Esp1) &
next
EnviarDadosImpressora [Ô]Generic / Text Only[Ô], [Ô]Impressao de Cupom[Ô], LINHA

Public Declare Function OpenPrinter Lib [Ô]winspool.drv[Ô] Alias [Ô]OpenPrinterA[Ô] (ByVal pPrinterName As String, phPrinter As Long, ByVal pDefault As Long) As Long
Public Declare Function ClosePrinter Lib [Ô]winspool.drv[Ô] (ByVal hPrinter As Long) As Long
Public Declare Function StartDocPrinter Lib [Ô]winspool.drv[Ô] Alias [Ô]StartDocPrinterA[Ô] (ByVal hPrinter As Long, ByVal Level As Long, pDocInfo As DOCINFO) As Long
Public Declare Function EndDocPrinter Lib [Ô]winspool.drv[Ô] (ByVal hPrinter As Long) As Long
Public Declare Function StartPagePrinter Lib [Ô]winspool.drv[Ô] (ByVal hPrinter As Long) As Long
Public Declare Function EndPagePrinter Lib [Ô]winspool.drv[Ô] (ByVal hPrinter As Long) As Long
Public Declare Function WritePrinter Lib [Ô]winspool.drv[Ô] (ByVal hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, pcWritten As Long) As Long

Public Type DOCINFO
pDocName As String
pOutputFile As String
pDatatype As String
End Type

Public Function EnviarDadosImpressora(NomeImpressora As String, NomeDocumento As String, Dados As String) As Boolean
Dim llngHndPrinter As Long
Dim llngHndDoc As Long
Dim llngRetorno As Long
Dim llngBytesGravados As Long
Dim ludtDocInfo As DOCINFO

[ô]llngRetorno = OpenPrinter([Ô]MP-4000 TH[Ô], llngHndPrinter, 0)
llngRetorno = OpenPrinter([Ô]Generic / Text Only[Ô], llngHndPrinter, 0)

If llngRetorno = 0 Then
MsgBox [Ô]Impressora não localizada![Ô]
Exit Function
End If

ludtDocInfo.pDocName = NomeDocumento
ludtDocInfo.pOutputFile = vbNullString
ludtDocInfo.pDatatype = vbNullString

llngHndDoc = StartDocPrinter(llngHndPrinter, 1, ludtDocInfo)

llngRetorno = StartPagePrinter(llngHndPrinter)
llngRetorno = WritePrinter(llngHndPrinter, ByVal Dados, Len(Dados), llngBytesGravados)
llngRetorno = EndPagePrinter(llngHndPrinter)


llngRetorno = EndDocPrinter(llngHndPrinter)
llngRetorno = ClosePrinter(llngHndPrinter)

If llngBytesGravados = Len(Dados) Then
EnviarDadosImpressora = True
Else
EnviarDadosImpressora = False
End If
End Function
FUTURA 24/04/2012 11:52:56
#400632 Resposta escolhida
tenho clientes usando ela, vc instala no windows normal, e depois compartilha ela......e manda a impressão para a porta normal...
TRTNCG 24/04/2012 12:33:09
#400643
Citação:

:
tenho clientes usando ela, vc instala no windows normal, e depois compartilha ela......e manda a impressão para a porta normal...



FUTURA mas você usa o MP2032.DLL para imprimir ou o print simples
Tópico encerrado , respostas não são mais permitidas
Voltar