Product Support: FAQ

Find the answer...

BizPlanBuilder v9

Fix: Intermediate Financial Model Print Macro

There are couple of possibilities...

First, Run the Microsoft Office Install.

Like Windows, there is a place to select which options to install.

Add the 'Binder' and install it.

If the above didn't do the trick, highlight the mile-long list of the text below the '---' just below these instructions right here on this page (but not the ‘---‘).

While it is highlighted, Pull-down under 'Edit' and let go on 'Copy' (or use Ctrl + 'C')

Then…
With intermediate financial model open in Excel, pull down under ‘Tools’ to ‘Macros’

(or press Alt + F8)

Click on ‘All by Month-BS’ to highlight the section.
(It’s at the very top.)

Click ‘Edit’

(Scroll to the very top).

Highlight the entire mile-long listing of code…

Click ‘Paste’ (Ctrl + ‘V’)

Close the window (click the red X in the upper right corner.)

Copy everything below this line (down to the next line):
-----------------------

Sub AllByMonth_IS()

'Income Statement

Sheets("Income Statement").Select

With ActiveSheet.PageSetup

.PrintArea = "$B$6:$R$70"

.PrintTitleRows = "$1:$5"

.PrintTitleColumns = "$A:$A"

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.CenterFooter = "&9Page 1"

.LeftMargin = Application.InchesToPoints(0.5)

.RightMargin = Application.InchesToPoints(0.5)

.TopMargin = Application.InchesToPoints(0.5)

.BottomMargin = Application.InchesToPoints(0.5)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0.25)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.PrintQuality(1) = 300

.PrintQuality(2) = 300

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlLandscape

.Draft = False

.PaperSize = xlPaperLetter

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = False

.FitToPagesWide = 1

.FitToPagesTall = 1

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

With ActiveSheet.PageSetup

.PrintArea = "$S$6:$AI$70"

.CenterFooter = "&9Page 2"

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

With ActiveSheet.PageSetup

.PrintArea = "$AJ$6:$AZ$70"

.CenterFooter = "&9Page 3"

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("B6").Select

End Sub

Sub AllByMonth_BS()

'Balance Sheet

Sheets("Balance Sheet").Select

With ActiveSheet.PageSetup

.PrintArea = "$B$6:$S$44"

.PrintTitleRows = "$1:$5"

.PrintTitleColumns = "$A:$A"

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.CenterFooter = "&9Page 1"

.LeftMargin = Application.InchesToPoints(0.5)

.RightMargin = Application.InchesToPoints(0.5)

.TopMargin = Application.InchesToPoints(0.5)

.BottomMargin = Application.InchesToPoints(0.5)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0.25)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.PrintQuality(1) = 300

.PrintQuality(2) = 300

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlLandscape

.Draft = False

.PaperSize = xlPaperLetter

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = False

.FitToPagesWide = 1

.FitToPagesTall = 1

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

With ActiveSheet.PageSetup

.PrintArea = "$T$6:$AJ$44"

.CenterFooter = "&9Page 2"

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

With ActiveSheet.PageSetup

.PrintArea = "$AK$6:$BA$44"

.CenterFooter = "&9Page 3"

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("B6").Select

End Sub

Sub AllByMonth_CF()

'Cash Flow

Sheets("Cash Flow").Select

With ActiveSheet.PageSetup

.PrintArea = "$B$6:$R$39"

.PrintTitleRows = "$1:$5"

.PrintTitleColumns = "$A:$A"

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.CenterFooter = "&9Page 1"

.LeftMargin = Application.InchesToPoints(0.5)

.RightMargin = Application.InchesToPoints(0.5)

.TopMargin = Application.InchesToPoints(0.5)

.BottomMargin = Application.InchesToPoints(0.5)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0.25)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.PrintQuality(1) = 300

.PrintQuality(2) = 300

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlLandscape

.Draft = False

.PaperSize = xlPaperLetter

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = False

.FitToPagesWide = 1

.FitToPagesTall = 1

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("CFMYr1").EntireColumn.Hidden = True

Range("CFAYr1").EntireColumn.Hidden = True

With ActiveSheet.PageSetup

.PrintArea = "$S$6:$AI$39"

.CenterFooter = "&9Page 2"

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("CFMYr2").EntireColumn.Hidden = True

Range("CFAYr2").EntireColumn.Hidden = True

With ActiveSheet.PageSetup

.PrintArea = "$AJ$6:$AZ$39"

.CenterFooter = "&9Page 3"

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("B6").Select



End Sub

Sub Years2_3ByQtr_IS()

'Income Statement

Sheets("Income Statement").Select

With ActiveSheet.PageSetup

.PrintArea = "$B$6:$R$70"

.PrintTitleRows = "$1:$5"

.PrintTitleColumns = "$A:$A"

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.CenterFooter = "&9Page 1"

.LeftMargin = Application.InchesToPoints(0.5)

.RightMargin = Application.InchesToPoints(0.5)

.TopMargin = Application.InchesToPoints(0.5)

.BottomMargin = Application.InchesToPoints(0.5)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0.25)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.PrintQuality(1) = 300

.PrintQuality(2) = 300

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlLandscape

.Draft = False

.PaperSize = xlPaperLetter

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = False

.FitToPagesWide = 1

.FitToPagesTall = 1

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

With ActiveSheet.PageSetup

.PrintArea = "$S$6:$AZ$70"

.CenterFooter = "&9Page 2"

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("B6").Select

End Sub

Sub Years2_3ByQtr_BS()

'Balance Sheet

Sheets("Balance Sheet").Select

With ActiveSheet.PageSetup

.PrintArea = "$B$6:$S$44"

.PrintTitleRows = "$1:$5"

.PrintTitleColumns = "$A:$A"

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.CenterFooter = "&9Page 1"

.LeftMargin = Application.InchesToPoints(0.5)

.RightMargin = Application.InchesToPoints(0.5)

.TopMargin = Application.InchesToPoints(0.5)

.BottomMargin = Application.InchesToPoints(0.5)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0.25)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.PrintQuality(1) = 300

.PrintQuality(2) = 300

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlLandscape

.Draft = False

.PaperSize = xlPaperLetter

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = False

.FitToPagesWide = 1

.FitToPagesTall = 1

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

With ActiveSheet.PageSetup

.PrintArea = "$T$6:$BA$44"

.CenterFooter = "&9Page 2"

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("B6").Select

End Sub

Sub Years2_3ByQtr_CF()

'Cash Flow

Sheets("Cash Flow").Select

With ActiveSheet.PageSetup

.PrintArea = "$B$6:$R$39"

.PrintTitleRows = "$1:$5"

.PrintTitleColumns = "$A:$A"

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.CenterFooter = "&9Page 1"

.LeftMargin = Application.InchesToPoints(0.5)

.RightMargin = Application.InchesToPoints(0.5)

.TopMargin = Application.InchesToPoints(0.5)

.BottomMargin = Application.InchesToPoints(0.5)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0.25)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.PrintQuality(1) = 300

.PrintQuality(2) = 300

.CenterHorizontally = True

.CenterVertically = True

.Orientation = xlLandscape

.Draft = False

.PaperSize = xlPaperLetter

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = False

.FitToPagesWide = 1

.FitToPagesTall = 1

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("CFMYr1").EntireColumn.Hidden = True

Range("CFAYr1").EntireColumn.Hidden = True

With ActiveSheet.PageSetup

.PrintArea = "$S$6:$AZ$39"

.CenterFooter = "&9Page 2"

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("B6").Select

End Sub

Sub AllYears_IS()

'Income Statement

Sheets("Income Statement").Select

With ActiveSheet.PageSetup

.PrintArea = "$B$6:$AZ$70"

.PrintTitleRows = "$1:$5"

.PrintTitleColumns = "$A:$A"

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.CenterFooter = "&9Page 1"

.LeftMargin = Application.InchesToPoints(0.5)

.RightMargin = Application.InchesToPoints(0.5)

.TopMargin = Application.InchesToPoints(0.5)

.BottomMargin = Application.InchesToPoints(0.5)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0.25)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.PrintQuality(1) = 300

.PrintQuality(2) = 300

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlPortrait

.Draft = False

.PaperSize = xlPaperLetter

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = False

.FitToPagesWide = 1

.FitToPagesTall = 1

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("B6").Select

End Sub

Sub AllYears_BS()

'Balance Sheet

Sheets("Balance Sheet").Select

With ActiveSheet.PageSetup

.PrintArea = "$B$6:$BA$44"

.PrintTitleRows = "$1:$5"

.PrintTitleColumns = "$A:$A"

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.CenterFooter = "&9Page 1"

.LeftMargin = Application.InchesToPoints(0.5)

.RightMargin = Application.InchesToPoints(0.5)

.TopMargin = Application.InchesToPoints(0.5)

.BottomMargin = Application.InchesToPoints(0.5)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0.25)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.PrintQuality(1) = 300

.PrintQuality(2) = 300

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlPortrait

.Draft = False

.PaperSize = xlPaperLetter

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = False

.FitToPagesWide = 1

.FitToPagesTall = 1

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("B6").Select

End Sub

Sub AllYears_CF()

'Cash Flow

Sheets("Cash Flow").Select

With ActiveSheet.PageSetup

.PrintArea = "$B$6:$AZ$39"

.PrintTitleRows = "$1:$5"

.PrintTitleColumns = "$A:$A"

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.CenterFooter = "&9Page 1"

.LeftMargin = Application.InchesToPoints(0.5)

.RightMargin = Application.InchesToPoints(0.5)

.TopMargin = Application.InchesToPoints(0.5)

.BottomMargin = Application.InchesToPoints(0.5)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0.25)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.PrintQuality(1) = 300

.PrintQuality(2) = 300

.CenterHorizontally = True

.CenterVertically = True

.Orientation = xlPortrait

.Draft = False

.PaperSize = xlPaperLetter

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = False

.FitToPagesWide = 1

.FitToPagesTall = 1

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("B6").Select

End Sub

Sub AllByMonth_FA()

'Fixed Assets

Sheets("Fixed Assets").Select

With ActiveSheet.PageSetup

.PrintArea = "$B$16:$S$25"

.PrintTitleRows = "$1:$5"

.PrintTitleColumns = "$A:$A"

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.CenterFooter = "&9Page 1"

.LeftMargin = Application.InchesToPoints(0.5)

.RightMargin = Application.InchesToPoints(0.5)

.TopMargin = Application.InchesToPoints(0.5)

.BottomMargin = Application.InchesToPoints(0.5)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0.25)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.PrintQuality(1) = 300

.PrintQuality(2) = 300

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlLandscape

.Draft = False

.PaperSize = xlPaperLetter

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = False

.FitToPagesWide = 1

.FitToPagesTall = 1

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

With ActiveSheet.PageSetup

.PrintArea = "$T$16:$AJ$25"

.CenterFooter = "&9Page 2"

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

With ActiveSheet.PageSetup

.PrintArea = "$AK$16:$BA$25"

.CenterFooter = "&9Page 3"

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("B6").Select

End Sub

Sub Years2_3ByQtr_FA()

'Fixed Assets

Sheets("Fixed Assets").Select

With ActiveSheet.PageSetup

.PrintArea = "$B$16:$S$25"

.PrintTitleRows = "$1:$5"

.PrintTitleColumns = "$A:$A"

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.CenterFooter = "&9Page 1"

.LeftMargin = Application.InchesToPoints(0.5)

.RightMargin = Application.InchesToPoints(0.5)

.TopMargin = Application.InchesToPoints(0.5)

.BottomMargin = Application.InchesToPoints(0.5)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0.25)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.PrintQuality(1) = 300

.PrintQuality(2) = 300

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlLandscape

.Draft = False

.PaperSize = xlPaperLetter

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = False

.FitToPagesWide = 1

.FitToPagesTall = 1

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

With ActiveSheet.PageSetup

.PrintArea = "$T$16:$BA$25"

.CenterFooter = "&9Page 2"

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("B6").Select

End Sub

Sub AllYears_FA()

'Fixed Assets

Sheets("Fixed Assets").Select

With ActiveSheet.PageSetup

.PrintArea = "$B$16:$BA$25"

.PrintTitleRows = "$1:$5"

.PrintTitleColumns = "$A:$A"

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.CenterFooter = "&9Page 1"

.LeftMargin = Application.InchesToPoints(0.5)

.RightMargin = Application.InchesToPoints(0.5)

.TopMargin = Application.InchesToPoints(0.5)

.BottomMargin = Application.InchesToPoints(0.5)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0.25)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.PrintQuality(1) = 300

.PrintQuality(2) = 300

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlLandscape

.Draft = False

.PaperSize = xlPaperLetter

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = False

.FitToPagesWide = 1

.FitToPagesTall = 1

End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("B6").Select

End Sub

----------------------------

(Just highlight to include the 'End Sub')

Whew! Long list huh!

OK, now copy it -- pull-down under 'Edit' and let go on 'Copy' (or use Ctrl + 'C')