Eu não sei de nenhuma configuração de registro para isso, mas imagino que se todos os documentos a serem impressos estivessem em uma única pasta, não seria muito difícil lidar com uma macro. exemplo de trabalho abaixo.
Sub GridsHeaders()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim FLS As Object, F As Object
Dim fWB As Workbook, fSheet As Worksheet
Dim Loc As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Select Folder"
.AllowMultiSelect = False
If .Show <> -1 Then Exit Sub
Loc = .SelectedItems(1)
End With
Set FLS = FSO.GetFolder(Loc).Files
For Each F In FLS
Loc = UCase(Mid(F.Name, InStrRev(F.Name, ".") + 1))
If Loc = "XLS" Or Loc = "XLSX" Then
Set fWB = Workbooks.Open(F.Path)
For Each fSheet In fWB.Sheets
fSheet.PageSetup.PrintGridlines = True
fSheet.PageSetup.PrintHeadings = True
Next fSheet
fWB.Close True
End If
Next F
End Sub