Necesito una macro para imprimir lo que seleccione y no logro variar esta macro grabada

Tengo esta macro grabada :
Sub Macro1()
Range("F3:H38").Select
Range("H38").Activate
ActiveSheet.PageSetup.PrintArea = "$F$3:$H$38"
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Pero necesitaría, cambiarla lo que yo seleccione en cada momento, ya que necesito grabar distintos rangos de la hoja.

1 Respuesta

Respuesta
2

Así quedaría:

Sub Macro1()
    ActiveSheet.PageSetup.PrintArea = Selection.Address
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas