put it in as a before print command

Private Sub Workbook_BeforePrint(Cancel As Boolean)
if activesheet.range ("A1").value = 2
then
ActiveSheet.PageSetup.PrintArea = range ("a1:d10")
end if

End Sub

"Atishoo" wrote:

Use VBA (alt F11)

if --------
then
ActiveSheet.PageSetup.PrintArea = -------
end if

"PhilosophersSage" wrote:

Is there a way to set a conditional print area? I have a spread sheet that
has several sections and want to print based on a formula. If anyone can help
thanks in advance!