Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

360 - Imprimir Datagrid

Función que recorre las filas de un control DataGrid para poder imprimirlas

A la función Imprimir, se le debe pasar como parámetro el control DataGrid, el Recordset asociado al DataGrid y un título, por ejemplo :

Call imprimir (DataGrid1, rs, "Ejemplo")

Nota: Agregar la referencia a Microsoft Activex data Objects

Código fuente en el formulario

Option Explicit Dim cn As Connection Dim rs As Recordset ' función que imprime los datos de la grilla '''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function imprimir(ByVal DataGrid As DataGrid, _ ByVal rs As ADODB.Recordset, _ ByVal Titulo As String) As Boolean On Error GoTo Error_Function Dim c As Integer Dim dato As String Dim Titles As String Dim Header As String Dim l As Integer 'number of lines For portrait Dim LLCount As Integer 'temporary line counter Dim MyArray(20) As Integer Dim Rowado As Integer Dim Rowdatag As Integer Dim mAllowAddNew As Boolean mAllowAddNew = DataGrid.AllowAddNew DataGrid.AllowAddNew = False DataGrid.row = 0 Screen.MousePointer = vbHourglass Header = " - Página n°: " ' REcupera los encabezados de columna For c = 1 To DataGrid.Columns.Count MyArray(c) = Len(DataGrid.Columns(c - 1).Caption) + 10 Titles = Titles & Space(10) & DataGrid.Columns(c - 1).Caption Next ' Configura la fuente de la impresión para el encabezado Printer.Font.Size = 8 Printer.Font.Bold = True Printer.Font.Name = "Courier New" Printer.Orientation = vbPRORPortrait l = 82 ' imprime el titulo , el encabezado y el número de página Printer.Print Space(40) & Titulo Printer.Print Header; Printer.Page Printer.Print Titles Printer.Font.Bold = False DataGrid.Refresh ' recorre los datos del datagrid For Rowado = 1 To Int((rs.RecordCount - 1) / 13) + 1 For Rowdatag = 0 To DataGrid.VisibleRows - 1 DataGrid.RowBookmark (Rowdatag) dato = Space(10) For c = 1 To DataGrid.Columns.Count dato = dato & DataGrid.Columns(c - 1).CellText(DataGrid.Bookmark) & _ Space(MyArray(c) - _ Len(DataGrid.Columns(c - 1).CellText(DataGrid.Bookmark))) Next LLCount = LLCount + 1 If LLCount <= l Then Printer.Print dato Else ' Agrega una nueva hoja Printer.NewPage Printer.Print Space(40) & Titulo Printer.Print Header; Printer.Page Printer.Print Titles Printer.Print dato LLCount = 0 End If rs.MoveNext Next Rowdatag DataGrid.Scroll 0, DataGrid.VisibleRows Next Rowado Printer.Print " " Printer.EndDoc Screen.MousePointer = vbNormal imprimir = True DataGrid.AllowAddNew = mAllowAddNew Exit Function ' error Error_Function: MsgBox Err.Description, vbCritical DataGrid.AllowAddNew = mAllowAddNew Screen.MousePointer = vbNormal End Function ' botón que imprime '''''''''''''''''''''''''''''''''' Private Sub Command1_Click() Call imprimir(DataGrid1, rs, "Ejemplo") End Sub Private Sub Form_Load() Set cn = New Connection cn.CursorLocation = adUseClient ' usa la base de datos Nwind del directorio de visual basic cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ "C:\Archivos de programa\Microsoft Visual Studio\" & _ "VB98\NWIND.MDB;Persist Security Info=False" ' abre la conexión ado cn.Open ' Crea un nuevo recordset Set rs = New Recordset ' abre el conjunto de registros rs.Open "Select IdEmpleado,Apellidos,Nombre From Empleados", _ cn, adOpenStatic, adLockOptimistic ' enlaza el datagrid Set DataGrid1.DataSource = rs End Sub

Este otro proyecto es igual al anterior, con algunas modificaciones, para poder indicar el máximo número de caracteres a tener en cuenta para cada dato. Este caracter se indica en la constante Max_Caracteres. Por ejemplo si tengo la cadena "Esto es una prueba de ejemplo" y se indica como maximo de caracteres el valor 20, entonces se recorta la palabra y quedaria : "Esto es una prueba d.."

Descargar

Capturar la imagen del datagrid para luego imprimirla

Este código usa el método CaptureImage, devuelve una imagen capturada de la vista de la cuadrícula en su estado actual y poder recuperar una instantánea de la cuadrícula, luego dicha imagen se puede usar para mandarla impresora con el objeto printer

Option Explicit ' para abrir la imagen BMP con el programa asociado ''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Const SW_SHOWNORMAL = 1 ' variables Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub Command1_Click() On Error GoTo error_Sub ' ejecuta CaptureImage para establecer la imagen en el portapapeles Clipboard.SetData DataGrid1.CaptureImage ' cheque si el formato de imagen es válido If Clipboard.GetFormat(1) Then ' opcional '''''''''''''''''''''''''' ' guarda en el app.path el BMP SavePicture Clipboard.GetData(0), App.Path & "\temp.bmp" ' Lo abre ShellExecute Me.hwnd, _ vbNullString, _ App.Path & "\temp.bmp", _ vbNullString, "C:\", SW_SHOWNORMAL '''''''''''''''''''''''''''''''' ' imprimir la imagen Printer.PaintPicture Clipboard.GetData(0), 0, 0 Printer.EndDoc ' lo manda End If ' rutina de error Exit Sub error_Sub: If Err.Number = 482 Then MsgBox "error al acceder a la impresora", vbCritical, "No se puede imprimir " End If End Sub Private Sub Form_Load() Set cn = New ADODB.Connection With cn .CursorLocation = adUseClient .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _ "Source=C:\Archivos de programa\Microsoft" & _ " Visual Studio\VB98\NWIND.MDB;Persist Security " & _ "Info=False" .Open ' abre la conexión End With Set rs = New ADODB.Recordset rs.Open "SELECT [NombreCompañía],[NombreContacto],[CargoContacto] " & _ " FROM Proveedores", cn, adOpenStatic, adLockOptimistic 'cargar el datagrid con datos Set DataGrid1.DataSource = rs Command1.Caption = "Generar instantanea del datagrid " End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb