Imports DevExpress.XtraPrintingLinks
Imports DevExpress.XtraGrid
Imports DevExpress.XtraPrinting
Private Sub cmdExcel_Click(sender As Object, e As EventArgs) Handles cmdExcel.Click
Me.Cursor = Cursors.WaitCursor
Try
Using SFD As SaveFileDialog = GetExcelSaveFileDialog()
If (SFD.ShowDialog(Me) = DialogResult.OK) Then
Dim ps As New PrintingSystem
Dim CompositeLink As New DevExpress.XtraPrintingLinks.CompositeLink
CompositeLink.PrintingSystem = ps
'con este metodo podemos exportar varias grillas mas no data grid view.
declaramos un vector y asignamos las grillas necesarias.
Dim lgc() As DevExpress.XtraGrid.GridControl = {gc_ventas, gridVacia, gc_Stock, gridVacia, gc_0kmAsignado, gridVacia, gc_0kmS_Asignar, gridVacia, gc_TTVU}
For i As Integer = 0 To lgc.Length - 1
Dim link As New PrintableComponentLink
link.Component = lgc(i)
CompositeLink.Links.Add(link)
Next
CompositeLink.ExportToXls(SFD.FileName)
End If
End Using
Me.Cursor = Cursors.Default
Catch ex As Exception
XtraMessageBox.Show("" & ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
