Print Macro - Landscape Orientation Graph

Hi. I need to print on a landscape piece of A4 a graph (which also needs to fill the entire page). I already have the basic function down.

Sub PrintChart()
    Sheet4.PageSetup.Orientation = xlLandscape.ChartObjects("Chart 6").Chart.PrintOut
End Sub

For some reason, I get 'Invalid Qualifier'. What is the solution to this?

I think that should be 2 lines of code not 1

Sub PrintChart()
    Sheet4.PageSetup.Orientation = xlLandscape
    Sheet4.ChartObjects("Chart 6").Chart.PrintOut
End Sub

Do you have a worksheet with the code name Sheet4.
Does that worksheet contain a chart object called "Chart 6"?

can you post example file to illustrate the error as my test does not fail.

I can post the actual file if you wish. Sheet4 would be the sheet labelled Graph

Your sheet tab maybe called "Graph" but in the code you are using codename syntax. The actual codename is Sheet3.

Sub PrintChart()
    With Worksheets("Graph")
        .PageSetup.Orientation = xlLandscape
        .ChartObjects("Chart 6").Chart.PrintOut
    End With
End Sub

Try this which sets the layout of the chartobject when printed rather than the sheet which it is located on

Sub PrintChart()
    With Worksheets("Graph")
        With .ChartObjects("Chart 6").Chart
            .PageSetup.Orientation = xlLandscape
            .PrintOut
        End With
    End With
End Sub