[ô]Preenchedo dados de Structures
        subLerPastas()

        [ô]Declarando as Variaveis
        Dim strCaminhoXSD As String = PastasIniciais.Pasta_principal & [Ô]Schemas\nfe_v1.10.xsd[Ô]
        Dim strCaminhoXML As String
        Dim strPathImagem As String = PastasIniciais.Pasta_principal & [Ô]teste.jpg[Ô]
        Dim myXmlDataDocument As New XmlDataDocument()

        [ô]Definindo Variaveis
        [ô]Criando nova Instancia do Dataser
        Dim dtsNewXML As New dstXML
        Dim dr As dstXML.ImageRow = dtsNewXML.Image.NewImageRow

        [ô]Pegando o Parametro do Executavel
        If (Command() <> [Ô][Ô]) Then
            strCaminhoXML = (Command())
        Else
            strCaminhoXML = PastasIniciais.Pasta_principal & [Ô]xml_teste\32100106030812000166550000000002050198681748_Autorizada.xml[Ô]
        End If

        [ô]Gerando Codigo de Barras e Salvando na Pasta
        Dim Barcode As New BarcodeLib.Barcode([Ô]32091004632835000115550000000000152848786600[Ô], BarcodeLib.TYPE.CODE128C)
        picPictureBox1.Image = Barcode.Encode(BarcodeLib.TYPE.CODE128, [Ô]32091004632835000115550000000000152848786600[Ô], 300, 75)
        Barcode.SaveImage(strPathImagem, SaveTypes.JPG)

        Try

            [ô]Definindo Arquivo XML e carregando
            myXmlDataDocument.DataSet.DataSetName = [Ô]NFe[Ô]
            myXmlDataDocument.DataSet.ReadXmlSchema(strCaminhoXSD)
            myXmlDataDocument.Load(strCaminhoXML)

            [ô]Carregando Relatorio
            rdD.Load(PastasIniciais.Pasta_relatorios & [Ô]Relatorios\danfe.rpt[Ô])

            [ô]Carregando Imagem e inserindo no Datatable
            dr.strPath = [Ô]eeeeeeeeee[Ô]
            dr.img_Barra = carregaImagem(strPathImagem)
            dtsNewXML.Image.Rows.Add(dr)

            [ô]Definindo o DataSource do relatorio e configurando
            rdD.SetDataSource(dtsNewXML)
            relat_Danfe.crv.ReportSource = rdD
            relat_Danfe.crv.Zoom(130)

            [ô]Lançando Dados no Relatório
            fctInsere_Parametros(myXmlDataDocument.DataSet, [Ô]infNFe[Ô], [Ô]Id[Ô], rdD, [Ô]strChave[Ô])
            fctInsereFormataParametros(myXmlDataDocument.DataSet, [Ô]emit[Ô], [Ô]cnpj[Ô], rdD, [Ô]emi_CNPJ[Ô], True, FORMATA_CNPJ)

            [ô]Exportando PDF
            ExportPDF(rdD, PastasIniciais.Pasta_principal, [Ô]testando_exportacao[Ô])
            Process.Start(PastasIniciais.Pasta_principal & [Ô]testando_exportacao.pdf[Ô], AppWinStyle.MaximizedFocus)

            End

        Catch ex As Exception

            [ô]Se ocorrer algum erro grava o Log do Erro
            Dim Log As New clsDanfe
            Log.Gravar(ex)
            [ô]Depois informa o Usuario
            Throw New Exception([Ô]Ocorreu um erro na Exportação[Ô], ex)

        End Try