Dear All,
I am using the following code to select a defined dynamic range and to print it.
As written here it fails with an error message saying that the method is not supported.
Private Sub CommandButton1_Click()


   With Sheets("Envelope_List")
    ActiveSheet.PageSetup.PrintArea = Range("Envelope_List_Pivot")
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
   End With
End Sub
The code was arrived at by running a macro and changing the range details. If I run it as a macro it works.
If I change the code to:-
Private Sub CommandButton1_Click()
Macro1
End Sub
It fails again as above.
Where am I going wrong?
John