Printing with Excel Macro in Visual Basic

Closed
zessie Posts 1 Registration date Sunday 11 July 2010 Status Member Last seen 11 July 2010 - 11 Jul 2010 à 02:36
rizvisa1 Posts 4478 Registration date Thursday 28 January 2010 Status Contributor Last seen 5 May 2022 - 18 Jul 2010 à 22:24
Hello,

Hi,

Newbie at macro here..help!!

How do you do conditional printing of worksheets for macro (using recorded macro)?
Bacially I have to print for A-E(total of 5) under heading (cell D161).
Sometimes, I do not need to print for all 5 as there maybe only information for A-B and E,
no information for C and D.

Hence I should do a for or if/else loop to run?
What is e proper syntax?
Thanks.

Below is a sample of my recorded macro.

Code:

Selection.AutoFilter Field:=4, Criteria1:="A"
Range("D161").Select
ActiveWindow.View = xlPageBreakPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.View = xlNormalView
Selection.AutoFilter Field:=4, Criteria1:="B"
ActiveWindow.View = xlPageBreakPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=4, Criteria1:="C"
ActiveWindow.View = xlPageBreakPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=4, Criteria1:="D"
ActiveWindow.View = xlPageBreakPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=4, Criteria1:="E"
ActiveWindow.View = xlPageBreakPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Related:

1 response

rizvisa1 Posts 4478 Registration date Thursday 28 January 2010 Status Contributor Last seen 5 May 2022 766
18 Jul 2010 à 22:24
What do you mean by printing conditionally ?