Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim risp As DialogResult

risp = MessageBox.Show("Vuoi stampare solo per il periodo indicato?", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If risp = Windows.Forms.DialogResult.Yes Then
Dim rep1 As New CrystalReport1
Dim data As String
Dim Rpt As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
Dim DOp As New CrystalDecisions.Shared.DiskFileDestinationOptions

data = Date.Now.Year.ToString



Dim ds1 As New XXXXXXX
Dim adp As New XXXXXXXSetTableAdapters.XXXXXXXXXXXXXXXXTableAdapt er

adp.Fill12(ds1.XXXXXXXXXXXX, Me.DateTimePicker1.Value.ToString("dd/MM/yyyy"), Me.DateTimePicker2.Value.ToString("dd/MM/yyyy"))
rep1.SetDataSource(ds1)


DOp.DiskFileName = Application.StartupPath & "\" & data & ".pdf"
With rep1.ExportOptions
.DestinationOptions = DOp
.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.Disk File
.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableD ocFormat
End With
rep1.Export()

MessageBox.Show("File salvato con successo in " & DOp.DiskFileName, "NOTIFICA", MessageBoxButtons.OK, MessageBoxIcon.Information)
Process.Start(Application.StartupPath & "\" & data & ".pdf")

Else
Dim rep1 As New CrystalReport1
Dim data As String
Dim Rpt As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
Dim DOp As New CrystalDecisions.Shared.DiskFileDestinationOptions

data = Date.Now.Year.ToString



Dim ds1 As New XXXXXXXXXX
Dim adp As New XXXXXXDataSetTableAdapters.XXXXXXXXXXXXXXTableAdap ter
adp.Fill(ds1.XXXXXXXXXX)
rep1.SetDataSource(ds1)


DOp.DiskFileName = Application.StartupPath & "\" & data & ".pdf"
With rep1.ExportOptions
.DestinationOptions = DOp
.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.Disk File
.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableD ocFormat
End With
rep1.Export()

MessageBox.Show("File salvato con successo in " & DOp.DiskFileName, "NOTIFICA", MessageBoxButtons.OK, MessageBoxIcon.Information)
Process.Start(Application.StartupPath & "\" & data & ".pdf")
End If
End Sub