terminando dos nuevos moduloa falta funcion de imprimir

OI/Circular.aspx.vb

@@ -0,0 +1,32 @@
+Imports System.Data
+Imports System.Linq
+Imports Extensiones
+
+Partial Class OI_Circular
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            IniciarFiltros()
+            CargaDatos()
+        End If
+    End Sub
+    Private Sub IniciarFiltros()
+        Dim FechaI As DateTime = New DateTime(Today.Year, Today.Month, 1)
+        Dim FechaF As DateTime = New DateTime(Today.Year, Today.Month, 1).AddMonths(1).AddDays(-1)
+        TxtFechaI.Text = FechaI.ToString()
+        TxtFechaF.Text = FechaF.ToString
+    End Sub
+    Private Sub CargaDatos()
+        Dim ObjOI As New ClsOIEventos
+        If ObjOI.GetCircular(UsuarioActual.CveEmpresa, -1, TxtFechaI.Text, TxtFechaF.Text) Then
+            GvDatos.DataSource = ObjOI.DtResultados
+        End If
+        ObjOI.Dispose()
+        GvDatos.DataBind()
+    End Sub
+
+    Protected Sub btConsultar_Click() Handles btConsultar.Click
+        CargaDatos()
+    End Sub
+End Class