Tips de programación Visual Basic Net

- septiembre 13, 2015

Hola amigos programadores a lo largo de mis publicaciones iré adjuntado tips necesarios para solucionar problemas con vbNet y controles Dotnetbar

1. Exportar a Pdf un ReportViewer y guardar a ruta predeterminada
Luego de publicar el post:
http://jossm03.blogspot.com/2015/08/exportar-reporviewer-pdf-de.html
Surgieron las opiniones por parte de lectores, en decir que si mejor se puede exportar a Pdf directamente a un directorio predeterminado sin necesidad de que se muestre el cuadro de dialogo. Siendo asi, simplemente se tenia que agregar la ruta donde queríamos que se guarde acompañado del nombre y la extension " .pdf", quedando la nueva rutina del blog del link previamente expuesto

Sub Exportar_directo_PDF()
  Dim ruta As String = My.Application.Info.DirectoryPath & "\prueba.pdf"
  Reporte.ReportViewer1.LocalReport.DataSources.Clear()
  Reporte.ReportViewer1.LocalReport.DataSources.Add(fuente)
  Reporte.ReportViewer1.LocalReport.ReportEmbeddedResource = "DatagridviewNoconectado.Fact.rdlc" 'exactamente como se llaman el proyecto y reporte
  Reporte.ReportViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("Productos", "DataSet1"))
  'Aplica el render y toma como datos la dataset creadas
    Dim byteViewer As Byte() = Reporte.ReportViewer1.LocalReport.Render("PDF")
  Dim newFile As New FileStream(ruta, FileMode.Create)
  newFile.Write(byteViewer, 0, byteViewer.Length)
  newFile.Close()
  ' System.Diagnostics.Process.Start(ruta)
  ' esta parte por si quieres ejecutar enseguida el pdf
 End Sub

Esta ruta lo exporta al debug de la aplicacion ... buscala y veras que si, pero puedes modificarla donde tu quieras siempre al final el "nombredelarchivo.pdf," ; el nombre lo puedes agregar desde cualquier texbox como desees o cualquier variable manejable

2. Desplazar la seleccion a la fila actual del datagridview

Public Sub desplazar_seleccion(grid As DataGridView)

Dim jx As Integer = grid.Rows.Count - 1

grid.Rows(jx).Selected = True

grid.CurrentCell = grid.Rows(jx).Cells(0)

End Sub