Gridlines when printing

  • Thread starter Thread starter Neal
  • Start date Start date
N

Neal

To show gridlines, each time I print I select "Print
Preview", "Setup", "Sheet" and then check Gridlines. How
can I set a default for showing gridlines?

Please send reply to (e-mail address removed).

Thanks!

Neal
 
Set up a workbook the way you want (number of sheets, formatting, print
gridlines, etc).

Save it as a template named Book.xlt (Workbook, for Macs - no extension)
in the XLStart directory (Office:Startup:Excel folder for Macs).

New workbooks will then be printed with gridlines by default.


To print ALL workbooks showing gridlines, put this in a workbook in your
startup folder. You can use Personal.xls (Personal Macro Workbook for
Macs) or another workbook:

In a new Class module, named GridLineClass

Public WithEvents GLApp As Application

Private Sub GLApp_WorkbookBeforePrint( _
ByVal Wb As Excel.Workbook, Cancel As Boolean)
Dim wkSht As Worksheet
Dim bGL As Boolean
Cancel = True
Application.EnableEvents = False
For Each wkSht In ActiveWindow.SelectedSheets
With wkSht
bGL = .PageSetup.PrintGridlines
.PageSetup.PrintGridlines = True
.PrintOut
.PageSetup.PrintGridlines = bGL
End With
Next wkSht
Application.EnableEvents = True
End Sub

and in the ThisWorkbook module:

Dim oGridLine As New GridLineClass

Private Sub Workbook_Open()
Set oGridLine.GLApp = Application
End Sub

Restart XL and all workbooks will print with gridlines.
 
Back
Top