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

360 - Imprimir Datagrid

Contenido

Ejemplo 1
Ejemplo 2
Ejemplo 3
Enlaces relacionados

Ejemplo 1

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

Ejemplo 2

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

Ejemplo 3

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 vb 6.0 - Relacionados

Buscar en Recursos vb