[Resolvido]Comandos para abrir gaveta automática

oliveiraferraz 11/7/2023, 22:29

oliveiraferraz: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 83
Registrado : 26/09/2012

Mensagem nº1

[Resolvido]Comandos para abrir gaveta automática

Mensagem oliveiraferraz 11/7/2023, 22:29

Senhores, boa noite.

Alguém possuem algum exemplo de comando para abrir gaveta de dinheiro automática Bematech?

Sd

Oliveira

**JPaulo** 12/7/2023, 11:59

JPaulo

JPaulo: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009

Mensagem nº2

Re: [Resolvido]Comandos para abrir gaveta automática

Mensagem JPaulo 12/7/2023, 11:59

Não sei se funciona, mas se testar não se perde nada;

Código:: Private Sub AbreCaixa() On Error GoTo Errorhandler Dim PortaLocal As String PortaLocal = "Com4" 'Substitua Com4 pela porta COM que você está usando. Exemplo é Com3, Com2, etc..... Open PortaLocal & ":9600,n,8,1" For Output As #1 Print #1, "" 'Isto está apenas enviando um sinal como se estivesse imprimindo algo, mas não é. Close #1 Exit Sub Errorhandler: MsgBox "Error " & Err.Number & ": " & Err.Description & " in " & _ VBE.ActiveCodePane.CodeModule, vbCritical, "Erro no AbreCaixa" End Sub

.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

Pay-Pal R$ Aqui
Pay-Pal € Aqui

Ou ainda: Aqui (Novo)

Sucesso e Bons Estudos
Success and Good Studies

[Resolvido]Comandos para abrir gaveta automática Folder_announce_new