Print area based on cell text

[brunosm]

Hello,

How can I set the print area automatically based on a cell with a range?

For example, lets suppose that I have this in cell A1 --> E2:K4;E7:K9;E18:K19;E23:K25

Using VBA, how can I set this print area? I suppose that I have to use ActiveSheet.PageSetup.PrintArea function but I don't know how (VBA noob!)

Thanks a lot,

brunosm

 

[lrobbo314]

This is how you would do it.

Sub setPrintArea()
Dim ws As Worksheet
Set ws = Sheets("Sheet1")

ws.PageSetup.PrintArea = Range("A1").Text

End Sub

Also, you need to change your text in A1. Separate your ranges by commas, not semicolons.

E2:K4,E7:K9,E18:K19,E23:K25

 

[brunosm]

Works like a charm!

Thanks a lot,

Brunosm

This is how you would do it.

Sub setPrintArea()
Dim ws As Worksheet
Set ws = Sheets("Sheet1")

ws.PageSetup.PrintArea = Range("A1").Text

End Sub

Also, you need to change your text in A1. Separate your ranges by commas, not semicolons.

E2:K4,E7:K9,E18:K19,E23:K25

 

[lrobbo314]

Cool!

No problem.