Macro not working

[josephteh]

I have the following macro to print reports. But only the 1st report printed even when the cells C6 to C8 all contains "x"?

Did I miss out some steps? Thanks so much!

My Excel is Excel 2010 version.

Regards
Joseph


MACROS

Sub PrintReport()

If Range("C6").Text = x Then
Sheets("Cover").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If

If Range("C7").Text = x Then
Sheets("Index").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If

If Range("C8").Text = x Then
Sheets("Contents").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If

End Sub

 

[Trebor76]

Hi there,

Try this:

Option Explicit
Sub PrintReport()

    If Range("C6").Text = "x" Then
        Sheets("Cover").PrintOut Copies:=1, Collate:=True
    End If
    
    If Range("C7").Text = "x" Then
        Sheets("Index").PrintOut Copies:=1, Collate:=True
    End If
    
    If Range("C8").Text = "x" Then
        Sheets("Contents").PrintOut Copies:=1, Collate:=True
    End If

End Sub

HTH

Robert

 

[josephteh]

Thanks, Robert! It works perfectly!

 

[Trebor76]

Thanks for letting us know and you're welcome