Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas tardes, perfecto la macro que me ha ayudado Riddle :
Sub Imprimir_Vistaprevia_seleccion()
'preparar la hoja para la impresión
With ActiveSheet.PageSetup
.Orientation = xlLandscape 'xlPortrait es vertical xlLandscape es horizontal
.PaperSize = xlPaperA5 'formato A5
.BlackAndWhite = False 'incluir colores o no
.FitToPagesWide = 1 'reduce el tamaño de la hoja (ancho)
.FitToPagesTall = 1 'reduce el tamaño de la hoja (alto)
.CenterHorizontally = 1 'centrar horizontalmente
.CenterVertically = 1 'centrar verticalmente
End With
Selection.PrintPreview
End Sub
una vez configurada en tamaño, doy a imprimir y perfecto.
Pero necesito la alternativa de guardarlo en Pdf. para mandarlo por correo esa misma seleccion:
en = G:\Factura\Pedidos\Wakonda
con el nombre = Range("B333").Select