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 nfse As asscshnfse.asscshnfse Set nfse = New asscshnfse.asscshnfse Call nfse.Imprime(arquivo, "", 3) txtStatus.Text = txtStatus.Text + "(6) Imprime RPS:" + vbCrLf + arquivo + vbCrLf End If End Sub