Jump to content

Archived

This topic is now archived and is closed to further replies.

Fedebarri

Imprimir formulario en Horizontal

Recommended Posts

Buenas,

Me gustaría poder imprimir un formulario en Horizontal, es decir el formulario ocupa el tamaño A5 y se muestra en la pantalla de manera vertical, tengo un botón con el código:

me.printform

Hasta aquí todo perfecto, lo que yo quisiera es poder imprimir de manera horizontal para que me ocupe medio folio (cuartilla), he visto por otras pagina que hablan mucho de este tema pero las soluciones que han dado no me ha funcionado ninguna.

Si alguien sabe como hacer esto agradezco cualquier idea.

Muchas gracias

Share this post


Link to post
Share on other sites
Sub Imprimir_Click()

'Se centra el texto en la hoja para imprimir
Sheets("Listado").Select
Range("A:A,B:B,C:C,D:D,E:E").HorizontalAlignment = xlHAlignCenter

intRespuesta = MsgBox("¿Realmente quiere imprimir este documento?", vbQuestion + vbYesNo, "ATENCIÓN")
If intRespuesta = 6 Then
  MsgBox "Se imprimiran los datos, por favor espere"
  'Se elije la hoja para imprimir
  Sheets("Listado").Select
  'Si imprime horizontalmente
  ActiveSheet.PageSetup.Orientation = xlLandscape
   'Si imprime al 100 %
  ActiveSheet.PageSetup.Zoom = 100
  'Imprime una copia
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  End If

End Sub

Hola amigo, felices fiestas prueba esto

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy