Continuo com o mesmo problema.
Enviei o anexo do log e do erro.
E abaixo esta o codigo de programação que estou utilizando, onde sera que estou errando ?
bufferLen = 256
buffer = String$(bufferLen, " ")
retorno = SAT_ConsultarSAT(buffer, bufferLen)
'CheckResult ret
SetResposta buffer, bufferLen
retornoString = GetToken(RTBRESPOSTAS.Text, 2, "|")
If retornoString <> "08000" Then
MsgBox RTBRESPOSTAS.Text
Exit Function
End If
bufferLen = 256
buffer = String$(bufferLen, " ")
'O ERRO ACONTECE NESSA LINHA ABAIXO E TRAVA O SISTEMA CONFORME ANEXO.
retorno = SAT_GerarPDFExtratoVenda(VENDAS!VEN_CAMINHOXML, Parametros!PAR_CAMINHOACBR & "\PDF\" & Numero_da_venda & ".pdf", buffer, bufferLen)
CheckResult retorno
SetResposta buffer, bufferLen
retorno = SAT_DesInicializar()
CheckResult retorno
ACBrLibSAT-20190523.log