Saltar al contenido

Macro vba excel para agregar imagen a los ajustes de impresión


Recommended Posts

Hola a todos;

-Estoy intentando añadir una imagen a los ajustes de impresión y no la carga. No sé donde puede estar el error.

Y una duda, ¿como puedo insertar una línea a lo ancho de la hoja?. Lo que tengo ahora mismo solo la inserta a la derecha, podría hacer lo mismo con left y center pero me deja un espacio en blanco y la línea no queda continua.

Private Sub btn_Imprimir_Click(): On Error Resume Next
With ActiveSheet.PageSetup
   .PrintArea = ActiveSheet.UsedRange.Address
   If IsNumeric(Me.TextBox1) Then
      .Zoom = CDbl(TextBox1)
      .CenterHeaderPicture.Filename = "C:\Users\Via Norte\Pictures\1.jpg"
      .RightFooter = "__________________________" & Chr(10) & "&P de &N"
   Else
      .Zoom = False
      .FitToPagesWide = 1
      .FitToPagesTall = 1
      .CenterHeaderPicture.Filename = "C:\Users\Via Norte\Pictures\1.jpg"
      .RightFooter = "__________________________" & Chr(10) & "&P de &N"
   End If
End With
Me.Hide
ActiveSheet.PrintPreview
Me.Show
End Sub

Adjunto macro e imagen.

saludos

Consulta.zip

Enlace a comentario
Compartir con otras webs

Hola de nuevo Antoni;

Ahora en principio va, te adjunto la macro si quieres revisar por las dudas.

Lo que sigo sin saber como se hace es lo de la línea continua al pie.

Saludos e boa tarde.

Private Sub btn_Imprimir_Click() ': On Error Resume Next

With ActiveSheet.PageSetup
   .PrintArea = ActiveSheet.UsedRange.Address
   If IsNumeric(Me.TextBox1) Then
      .Zoom = CDbl(TextBox1)
      .LeftHeader = "&G" '<<<< faltaba esto
      .CenterHeaderPicture.Filename = "C:\Users\Via Norte\Pictures\1.jpg"
      .RightFooter = "__________________________" & Chr(10) & "&P de &N"
   Else
      .Zoom = False
      .FitToPagesWide = 1
      .FitToPagesTall = 1
      .LeftHeader = "&G" '<<<< faltaba esto
      .CenterHeaderPicture.Filename = "C:\Users\Via Norte\Pictures\1.jpg"
      .RightFooter = "__________________________" & Chr(10) & "&P de &N"
   End If

End With

Me.Hide
ActiveSheet.PrintPreview
ActiveSheet.PageSetup.LeftHeader = "" '<<<< Esto lo pongo para que elimine la imagen que carga en el encabezado
ActiveSheet.PageSetup.RightFooter = "" '<<<< Esto elimina el pie cargado
Me.Show
End Sub

 

MImprimir2.xlsm

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.