Set print area w/variables

[bobkap]

I am trying to include a print area in a macro, BUT I want to use variables vs a fixed range. It cannot be that difficult, but I just cannot figure it out. If I use Range function with Cells it bombs out. I tried recording what I want to do, thinking I could edit it to do what I want, but that didn't work either.

Can someone please show me how to use variables when creating a print area?

Thanks.

 

[Joe4]

I usually find it works best to create a range variable, then set the range you want with that variable.
Then use that variable in your print command.

If you run into problems, please post your code and the specifics as how to exactly dynamically determine the range you want to print.

 

[KOKOSEK]

For ex. this set your print area as range of A1: LastColumn*LastRow on activesheet

Sub CreatePrintArea()
Dim PrnArea As Range
Dim lastCol As Integer
Dim lastR As Integer
With ActiveSheet
    lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    Set PrnArea = .Range(Cells(1, 1), Cells(lastRow, lastCol))
    .PageSetup.PrintArea = PrnArea.Address
End With
End Sub

 

[bobkap]

For ex. this set your print area as range of A1: LastColumn*LastRow on activesheet

Sub CreatePrintArea()
Dim PrnArea As Range
Dim lastCol As Integer
Dim lastR As Integer
With ActiveSheet
    lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    Set PrnArea = .Range(Cells(1, 1), Cells(lastRow, lastCol))
    .PageSetup.PrintArea = PrnArea.Address
End With
End Sub

Many thanks!