'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