Private Sub Command11_Click() 'Emissão de DANFE. Utilize o arquivo de distribuição para emitir. Dialog1.Filter = "xml|*.xml" Dialog1.ShowOpen Dim arquivo As String arquivo = Dialog1.FileName Dim nfe As nfec.nfecsharp Set nfe = New nfec.nfecsharp Call nfe.NFeDanfe(arquivo, "", 3, False) '1o parametro: path do arquivo xml a ser emitido o DANFE '2o parametro: path do PDF a ser gerado '3o parametro: Tipo de Emissão (1 - direto para impressora default; 2 - PDF; 3 - preview em tela '4o parametros: Emissao em form de seguranca (true/false) Neste caso deverá localizar o arquivo assinado (..\nfe\arquivos\assinado), caso false, o arquivo deverá ser o de distribuicao (..\nfe\arquivos\procNFe) End Sub