Amigos... me perdoem a insistência.
Coloquei todo o projeto em uma só pasta “ACBrSATLib” localizada no desktop inclusive a ACBrSAT32.dll (versão StdCall 32bits) . O Erro: "Run time error 53. File not found ACBrSAT32.dll" persiste.
Tentei colocar a dll nas seguintes pastas:
· Path Local do programa EXE.
· C:\WINDOWS
· C:\WINDOW\SYSTEM32
· C:\Program Files\Microsoft Visual Studio\VB98
Chegue até a alterar o local do arquivo na declaração da função:
Public Declare Function SAT_Inicializar Lib "C:\WINDOW\SYSTEM32\ACBrSAT32.dll" (ByVal eArqConfig As String, ByVal eChaveCrypt As String) As Long
Nada disto fez com que a dll fosse localizada/reconhecida.
Outro problema, mais fácil é que temos duas chamadas que estão com a quantidade de parâmetros não coincidentes.
retorno = SAT_ImprimirExtratoVenda(CommonDialog1.FileName, vbNullString, buffer, bufferLen)
retorno = SAT_ImprimirExtratoResumido(CommonDialog1.FileName, vbNullString, buffer, bufferLen)
Public Declare Function SAT_ImprimirExtratoVenda Lib "ACBrSAT32.dll" (ByVal eArquivoXml As String, ByVal eNomeImpressora As String) As Long
Public Declare Function SAT_ImprimirExtratoResumido Lib "ACBrSAT32.dll" (ByVal eArquivoXml As String, ByVal eNomeImpressora As String) As Long