Imprime Report Sql

Implementación:

 Sub ImprimeReportSql(
     aSql As String,
     Optional aColDescrip As Collection = Nothing,
     Optional aColCamposAgrupar As Collection = Nothing,
     Optional aTitulo As String,
     Optional aColCampos As Collection,
     Optional aColWidth As Collection,
     Optional aObjeto As String) 

Descripción:

Permite seleccionar informes de impresión ya creados e imprimirlos.

Ejemplo de uso:

    Dim lCol As Collection
     Dim lColWidth As Collection
     Dim lColDescrip As Collection
     Set lColDescrip = New Collection
     Set lColWidth = New Collection
  
     gCn.AhoraProceso "ImprimeReportSql", False,
     pSQL, lColDescrip, lCol, pCol.Descripcion, , lColWidth,
     pCol.Propiedades("HijoDefecto")