My Print area

[adamsm]

Hi,

How could I make the following code to select visible data rows starting from Row3 and onwards of the active sheet. My data column starts from column A to column R.

Sub PrintArea()
   ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
End Sub

Any help on this could be kindly appreciated.

 

[VoG]

Hi. Try

Sub PrintArea()
   ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Address
End Sub

 

[adamsm]

Thanks for the code. But I want to exclude rows 1 to 2. How may I modify the code accordingly?

 

[VoG]

Try

Sub PrintArea()
With ActiveSheet
    .PageSetup.PrintArea = .UsedRange.SpecialCells(xlCellTypeVisible).Offset(2).Address
End With
End Sub

 

[adamsm]

Thanks for the modification Peter. But the code selects all the columns from the avtice sheet. My intention is to include columns D to T in the print range.

How may I add this change.

Any help would be kindly appreciated.

 

[VoG]

Try

Sub PrintArea()
Dim LR As Long
With ActiveSheet
    LR = .Range("D" & Rows.Count).End(xlUp).Row
    .PageSetup.PrintArea = .Range("D3:T" & LR).SpecialCells(xlCellTypeVisible).Address
End With
End Sub

 

[adamsm]

Thanks for the reply Peter. I do really appreciate it.

 

[adamsm]

I have columns F,I,J & N (with data hidden) in my worksheet.

When I run the PrintArea macro it shows print gridlines starting from row 3 to the last data row. This is fine.

But it shows print gridlines between column D & E, G & I, L& M, O & T.

How could the code be changed so that it selects the print area from column D & E as a whole.

Note: Sorry for the reason that I couldn't mention I have hidden columns within the print range in my previous post.

 

[VoG]

Perhaps something like this

Sub PrintArea()
Dim LR As Long
LR = Range("D" & Rows.Count).End(xlUp).Row
With ActiveSheet.PageSetup
    .Orientation = xlLandscape
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .PrintArea = Range("D3:T" & LR).SpecialCells(xlCellTypeVisible).Address
End With
End Sub

 

[adamsm]

Thanks for the modification Peter. Still I'm having the same problem as with your previous code. How could I over come this?