Dim dgrResult As DialogResult
        Dim data As String
        data = Date.Now.Year.ToString
        Dim pdf As String

        dlgSalva.InitialDirectory = Application.StartupPath & "\" & data
        dgrResult = dlgSalva.ShowDialog
        If dgrResult <> Windows.Forms.DialogResult.Cancel Then
            pdf = dlgSalva.FileName
            Me.CrystalReport11.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, pdf & ".pdf")
        End If