VBA macros for Printing

[Mabocat]

This macro is to print a graph from a spreadsheet

Sub Print_Graph()
'
' Print_Graph Macro
'
'      Application.ScreenUpdating = False

    Application.Goto Reference:="AM_Graph"
    ActiveSheet.PageSetup.PrintArea = "$A$2:$DW$57"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Range("A1").Select
    
    Application.ScreenUpdating = True

End Sub

Two things:-
even though I have set Screenupdate to false so it doesn't show selections etc, it still does - also see below
PrintArea is $A$2:$DW$57 but what if the area which has the range name of AM_Graph gets varied with an additional row - can I have the PrintArea also shown as AM_Graph?


When I go to print the data from two sheets - firstly Page 1 of Sheet 1, then all of Sheet 2 then page 2 of sheet 1, the screen flips back & forth between both sheets when I don't want it to.

Ron

 

[Trevor G]

First in your code it looks as though you have commented out the Application.ScreenUpdating = False line

Second if the area is variable then you could try either an offset method or .CurrentRegion.Select which will adjust to the cells that have content.

 

[Mabocat]

First in your code it looks as though you have commented out the Application.ScreenUpdating = False line

Second if the area is variable then you could try either an offset method or .CurrentRegion.Select which will adjust to the cells that have content.

Trevor, what does this mean ? have commented out the Application.ScreenUpdating = False line



I will try the CurrentRegion.Select method


looks like I will have to obtain a book on VBA & the various words to use.

 

[jim may]

Mabocat;

Where Trevor G says:
First in your code it looks as though you have commented out the Application.ScreenUpdating = False line

He is saying that you have preceded your 3rd line of code

Application.ScreenUpdating = False WITH AN APOSTROPHE " ' " - causing the code to NEGLECT the complete code line. OK?

 

[Mabocat]

Jim, thanks for that - now I know why that line was pale green in colour.

Ron