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

388 - Imprimir rango en Excel

<Volver> - Anterior - Siguiente

Ejemplo simple de la propiedad PrintArea y el método PrintOut de Vba , para seleccionar un rango de datos de la hoja activa, y poder imprimirlo

Para el formulario de ejemplo, colocar

un control Textbox llamado Text1 para indicar el path del Libro de Excel
y un text2 para especificar el rango a imprimir

Form:

Nota: no es necesario incluir la referencia a Excel

Código fuente en el formulario

Otra forma para seleccionar el rango y mandarlo a imprimir usando la propiedad Select del objeto Range

    Range("B4:C15").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1

Esto otro , imprime el rango seleccionado, en este caso B4:C15, con las líneas divisorias, con orientación vertical para la hoja, tamaño de la hoja A4, con los títulos de las filas y columnas, y con calidad de impresión de 300 ppp y en color

Option Explicit Function Print_Rango(PathLibro As String, Rango As String) On Error GoTo Error_Sub Dim ObjExcel As Object ' nueva referencia a Excel Set ObjExcel = CreateObject("Excel.Application") ' comprueba que se pasaron los parámetros If PathLibro = "" Or Rango = "" Then MsgBox "No se ha especificado el rango o la ruta del Libro", vbCritical Exit Function End If With ObjExcel ' abre el libro .WorkBooks.open PathLibro ' selecciona el rango .Range(Rango).Select With .ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With .ActiveSheet.PageSetup.PrintArea = "" With .ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = .Application.InchesToPoints(0) 'márgenes .RightMargin = .Application.InchesToPoints(0) .TopMargin = .Application.InchesToPoints(0) .BottomMargin = .Application.InchesToPoints(0) .HeaderMargin = .Application.InchesToPoints(0) .FooterMargin = .Application.InchesToPoints(0) .PrintHeadings = True .PrintGridlines = True 'Incluye las lineas de división .PrintQuality = 300 ' calidad de la impresión .CenterHorizontally = False .CenterVertically = False .Orientation = 1 ' horientación vertical .PaperSize = 9 ' Hoja A4 .BlackAndWhite = False ' Desativa la Impresión en blanco y negro .Zoom = 100 End With ' imprime .Selection.PrintOut Copies:=1, Collate:=True ' cierra este libro .WorkBooks(1).Close (False) End With ' Elimina la referencia y cierra el Excel Call DescargarObjetos(ObjExcel) Exit Function ' error Error_Sub: If Err.Number > 0 Then MsgBox (Err.Description) On Error GoTo 0 Call DescargarObjetos(ObjExcel) ' descarga End If End Function Sub DescargarObjetos(ObjExcel As Object) On Local Error Resume Next ' cierra el Excel ObjExcel.Quit ' detruye la referencia Set ObjExcel = Nothing End Sub Private Sub Command1_Click() Call Print_Rango(Text1, Text2) End Sub Private Sub Form_Load() Command1.Caption = "imprimir rango" Text1.Text = "c:\Libro1.xls" Text2.Text = "B4:C15" End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb