Macro to Print Active Rows Only

[Scottc71]

I have the below Macro that I cannot apply this to a new sheet

can someone please help with this, I have the code below

Sub PrintRefSheet()
'
' Print Install Macro
' Macro recorded 10/05/2011 DMG Communications
'
Application.ScreenUpdating = False
Range("b14").Select
Do Until ActiveCell = "end"
If ActiveCell = 0 Then
ActiveCell.Offset(0, 0).Rows("1:1").EntireRow.Select
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 3).Select
End If
If ActiveCell > 0 Then
ActiveCell.Offset(1, 0).Select
End If
Loop
ActiveSheet.PageSetup.PrintArea = "$A$1:$v$99"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$A$1:$v$99"
Rows("14:94").Select
Selection.EntireRow.Hidden = False
Application.ScreenUpdating = True
Range("A1").Select
End Sub

Thankyou

 

[AlphaFrog]

It's not clear what you "want" to do.

This will hide rows where column B (from B14 to B99) =0 and print only the visible rows.

Sub PrintRefSheet2()

    Range("B13:B99").AutoFilter Field:=1, Criteria1:=">0"
    ActiveSheet.PageSetup.PrintArea = "$A$1:$V$99"
    'ActiveWindow.SelectedSheets.PrintPreview
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveSheet.AutoFilterMode = False

End Sub

 

[Scottc71]

Thanks

That did the job for me

Cheers