Abrir Gaveta Bematech Automática

Pessoal, já pesquisei aqui no fórum e também na net mas não encontrei nenhuma solução em vba, por isso resolvi postar aqui a minha dúvida. Estou precisando de um código que abra a gaveta automática da Bematech através de um botão, ela esta conectada na minha impressora MP-4200 TH.

Se alguém puder me ajudar, agradeço muito!!

Obrigado!!

Eu também tenho a mesma duvida. Alguém por favor pode nos ajudar?

boa,

Podes tentar esta função



Public Function Abrir_Gaveta()
'encontrada na internet
'proprietário desconhecido

On Error Resume Next

LPT = FreeFile
Open Funcao.Configurar("Imprime", "Porta") For Output As #LPT

If MODELOIMPRESSORA = "BEMATECH" Then
Print #LPT, Chr$(27) + Chr$(118) + "2"
Print #LPT, Chr$(27) + Chr$(118) + Chr$(140)
ElseIf MODELOIMPRESSORA = "DARUMA" Then
Print #LPT, Chr$(27) + Chr$(112)
ElseIf MODELOIMPRESSORA = "EPSON" Then
Print #LPT, Chr$(27) + Chr$(112) + Chr$(0) + Chr$(48) + Chr$(0) + Chr$(255)
ElseIf MODELOIMPRESSORA = "ELGIN" Then
Print #LPT, Chr$(27) + Chr$(118) + "n"
Print #LPT, Chr$(27) + Chr$(118) + Chr$(110)
Else
Print #LPT, Chr$(27) + Chr$(118) + "2"
Print #LPT, Chr$(27) + Chr$(118) + Chr$(140)
Print #LPT, Chr$(27) + Chr$(112)
Print #LPT, Chr$(27) + Chr$(112) + Chr$(0) + Chr$(48) + Chr$(0) + Chr$(255)
End If
Close #LPT

End Function

Obrigado pela ajuda!
Imprimir e abrir ta resolvido pela própria configuração da impressora.
Entendi o vídeo, porem é programação em delphi.
Eu gostaria de um botão para somente abrir a gaveta
E quando a gaveta estiver aberta exibir uma mensagem assim: Aguardando fechamento da gaveta...
e bloquear qualquer evento até a gaveta ser fechada novamente.
Nó...! ia fica doido!!!