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

[Benito Bartolomé]

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

[Antoni]

Quita On Error Resume Next a ver que te dice.

[Benito Bartolomé]

Hola Antoni ;

-Se le he quitado pero no salta ningún error y abre la previsualización sin la imagen.

Te dejo el link de un video a ver si te da más luz.

video:

Imprimir imagen

Cualquier cosa me comentas.

Gracias como siempre por tú generosidad.

 

[Benito Bartolomé]

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

[Benito Bartolomé]

Buenos días;

-Adjunto macro corregida.

Ahora se puede elegir el logo que se coloca en el título de impresión.

A ver que os parece.

 

Saludos.

MAjustesImpresión.zip