'Imprime DACTE' Private Sub cmdImprimir_Click(Index As Integer) 'Imprimir Dialog1.Filter = "xml|*.xml" Dialog1.ShowOpen Dim arquivo As String arquivo = Dialog1.FileName If arquivo <> Empty Then 'funcao para imprimir Dim asscte As asscshcte.asscshcte Set asscte = New asscshcte.asscshcte Call asscte.DACTE(arquivo, "", 3) txtStatus.Text = txtStatus.Text + "(8) Imprime CT-e:" + vbCrLf + arquivo + vbCrLf End If End Sub