UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Invitado


Invitado
Buenos dias, estoy usando esta macro :
Sub Imprimir_seleccion()
'preparar la hoja para la impresión
With ActiveSheet.PageSetup

.Orientation = xlPortrait 'xlLandscape
.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
'imprimir las celdas seleccionadas (1 copia)
ActiveWindow.Selection.PrintOut copies:=1, collate:=True
End Sub


necesito para imprimir en horinzontal con vista previa
Un saludo de antemano

tyno


Hola Luis.
Prueba de ingresar esta instrucción para la vista previa antes de la instrucción de imprimir: ActiveSheet.PrintPreview

Cuando salgas de la vista previa en teoría el código de la macro continua con la impresión. Saludos

Sub Imprimir_seleccion()
'preparar la hoja para la impresión
ActiveSheet.PrintPreview '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<INSERTAR

With ActiveSheet.PageSetup


.Orientation = xlPortrait 'xlLandscape
.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
'imprimir las celdas seleccionadas (1 copia)
ActiveWindow.Selection.PrintOut copies:=1, collate:=True
End Sub

Invitado


Invitado
ok todo bien
gracias

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.