---

baje el ejemplo pero no hace nada, da un error.
estoy tratando de enviar directamente a la impresora con el PrinttoPrinter un parametro. Cuando va a Viewer todo bien pero al mandarlo a la impresora me da error. PUEDEN AYUDARME PORFIS..
Gracias

---

Muy bueno el articulo

---

Gracias por el Ejemplo, ,era lo que buscaba desde hace Días...

---

Saludos:

Muchas gracias por tu aporte. En verdad me ayudo mucho para la construcción de un ejemplo muy similar. Tenía la necesidad de generar reportes dinámicos desde un DataSet que llenaba en código, y no tenía idea de como hacerlo.

Tu ejemplo me ayudo mucho para dar solución a mi problema. Nuevamente gracias y te invitó a continuar aportando al mundo lo mejor.

Saludos.

---

Oye amigo, solo kiero pedirte y pedirle la ayuda de todos los colaboradores, yo necesito relizar reportes con cristal report pero con visual basic 6, alguien tiene ejemplos o ejercicos de como relaizar se los voy agradecer mucho, mi correo es: miguevat@gmail.com.


Soi novato en esto y nunca en mi vida eh echo un reporte con cristal report, lo demas de visual basic eso si lo manejo bien, pero lo de cristal no, alguien tiene ejmplos o un manual ilustrativo de como realizar un reporte con cristl y visual basic 6 se lo agradecere me lo pueda proporcionar.

Gracias

---

PD: Bien, como comenta un colega, no he incluido el Web Service que utilizo para acceder a los datos. Aquí os lo adjunto. Imports System.Web.Services Imports System.Data Imports System.Data.SqlClient Imports System.Data.OleDb _ Public Class SGisNetBD Inherits System.Web.Services.WebService Dim cadenaConexionSQL As String Dim cadenaconexion400 As String Dim conexionSQL As SqlConnection Dim cmSQL As SqlCommand Dim daSQL As SqlDataAdapter Dim drSQL As SqlDataReader Dim conexionOLE As OleDbConnection Dim cmOLE As OleDbCommand Dim daOLE As OleDbDataAdapter Dim drOLE As OleDbDataReader Dim dts As DataSet Dim gisNet_util As GisNet_Utilidades.GisNet_Utilidades Código generado por el Diseñador de servicios Web . . . . Private Sub iniciaConexion() cadenaConexionSQL = System.Configuration.ConfigurationSettings.AppSettings("cadenaSQL") conexionSQL = New SqlConnection(cadenaConexionSQL) End Sub ' iniciaConexion _ Public Function devuelveReporte(ByVal explotacion As String, ByVal codigoReporte As String, ByRef cadenaError As String) As DataSet Dim MiSQL As String iniciaConexion() cadenaError = "" MiSQL = "Select * From Reportes Where EXPLOT = '" + explotacion + "' and codigoReporte = '" + codigoReporte + "'" ' Saco los datos de la BD daSQL = New SqlDataAdapter(MiSQL, conexionSQL) dts = New DataSet Try conexionSQL.Open() daSQL.Fill(dts, "Reportes") conexionSQL.Close() Catch ex As Exception conexionSQL.Close() cadenaError = ex.Message Return (Nothing) End Try If (dts.Tables("Reportes").Rows.Count

---

Este codigo presenta muchos errores, No existe la clase "SGisNetBD", no existe no existe el componente "WControlesWeb.CMessageBox" y si es para controlar errores en Net existe los "Validator" , existe llamada a definiciones que no existe entre otros.