Para Dante Amor: Centrar en el encabezado de la Celda y los Títulos y Autoajustar la columna para que se vea su contenido.
Mira Dante, te referencio, ya que me colaboraste con la macro y ahora, necesito centrar en el encabezado de la Celda los Títulos y Autoajustar la columna para que se vea todo su contenido antes de imprimir.
También quiero que el texto a imprimir, se imprima, con el tipo de Letras "Arial Norrow" a tamaño 11.
¿
También es posible ocultar la hoja imprimir?, para que no se vea, ya que solo la necesitaré para copiar temporalmente los datos para poderlos imprimir y no se necesita para nada más.
Gracias. Quedo atento.
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro con:
1. Centrar los encabezados.
2. Ajustar columnas
3. Font "Arial Narrow"
4. Tamaño 11
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h = Sheets("imp")
h.Cells.Clear
h.Range("A1:E1") = Array("NO", "GRADO", "APELLIDOS", "NOMBRE", "CÉDULA")
col = ListBox1.ColumnCount
f = ListBox1.ListCount
h.Range(h.[A2], h.Cells(f + 1, col)) = ListBox1.List
u = h.Range("A" & Rows.Count).End(xlUp).Row
If u = 1 Then
MsgBox "No hay registros a imprimir"
Else
h.Rows("1:1").HorizontalAlignment = xlCenter
h.Cells.EntireColumn.AutoFit
h.Cells.Font.Name = "Arial Narrow"
h.Cells.Font.Size = 11
h.PrintOut Copies:=1, Collate:=True
End If
End SubPuedes ocultar la hoja y no pasa nada.
Saludos. Dante Amor
No olvides valorar la respuesta.
