este codigo esta en el formualrio donde esta el reportwiever:
Imports Microsoft.Reporting.WinForms
Public Class REP_CTA_GRAL
Private Sub REP_CTA_AUX_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintL ayout)
Me.ReportViewer1.ZoomMode = ZoomMode.PageWidth
Me.ReportViewer1.RefreshReport()
End Sub
Public Sub CREAR_REPORTE(ByVal COD_CTA As String, ByVal DESC_CTA As String, ByVal MES1 As String, ByVal MES2 As String, ByVal ORDEN As String)
Dim parametros As New List(Of ReportParameter)
'Parámetros
parametros.Add(New ReportParameter("EMPRESA", DESC_empresa))
parametros.Add(New ReportParameter("RUC", RUC_EMPRESA))
parametros.Add(New ReportParameter("AÑO", año))
parametros.Add(New ReportParameter("COD_CUENTA", COD_CTA))
parametros.Add(New ReportParameter("DESC_CUENTA", DESC_CTA))
parametros.Add(New ReportParameter("MES1", MES1))
parametros.Add(New ReportParameter("MES2", MES2))
parametros.Add(New ReportParameter("ORDEN", ORDEN))
parametros.Add(New ReportParameter("COD_USU", cod_usu))
Me.ReportViewer1.LocalReport.SetParameters(paramet ros)
''--------------------------------------------------------
Me.DataTable1TableAdapter.Connection = con
Me.DataTable1TableAdapter.Fill(Me.DT_REP_CTA_GRAL. DataTable1, año, MES1, MES2, COD_CTA)
End Sub
y este en otro form donde elijo que deseo que muestre mi report wiever
If Me.CBO_MES_1.SelectedIndex = -1 Then MessageBox.Show("Debe elegir el Mes", "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) : CBO_MES_1.Focus() : Exit Sub
If Me.CBO_MES_2.SelectedIndex = -1 Then MessageBox.Show("Debe elegir el Mes", "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) : CBO_MES_2.Focus() : Exit Sub
If Trim(txt_cod_cta0.Text) = "" Then MessageBox.Show("Debe elegir ula Cuenta Contable", "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) : txt_cod_cta0.Focus() : Exit Sub
If Me.CBO_ORDEN.SelectedIndex = -1 Then MessageBox.Show("Debe elegir el Orden", "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) : CBO_ORDEN.Focus() : Exit Sub
'If dtp_del.Value.Date > dtp_al.Value.Date Then MessageBox.Show("Rango de fechas incorrecto", "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) : dtp_del.Focus() : Exit Sub
Dim COD_CTA, MES1, MES2, ORDEN As String
COD_CTA = txt_cod_cta0.Text
MES1 = CBO_MES_1.Text
MES2 = CBO_MES_2.Text
ORDEN = CBO_ORDEN.Text
''----------------
OFR.CREAR_REPORTE(COD_CTA, txt_desc_cta0.Text, MES1, MES2, ORDEN)
OFR.ShowDialog()
'---------------
en este formulario como puedo agregar un boton que me guarde en formato pdf y excel mi report wiever que se encuentra en otro formulario si alguien sabe se lo agradecere
