Irmão,

Você quer que a data apareça em algum lugar no meio da planilha que vc tá imprimindo, ou no rodapé/cabeçalho?

quero que parece um uma célula da planilha
ex: A1

Fórmula:
=AGORA()

Resultado:
01/12/2016 11:05

Uma outra solução seria com VBA.

Caso queria utilizar VBA para que a célula A1 se atualize automaticamente a cada minuto.

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:01:00"), "AtualizaHorario"
End Sub

Sub AtualizaHorario()
Worksheets("Plan1").Range("A1").Calculate
Application.OnTime Now + TimeValue("00:01:00"), "AtualizaHorario"
End Sub

obrigado lokaumz

mas não consegui executar a sua programação VBA,

eu tentei fazer uma macro

aonde ela faz exatamente isso:

CTRL+SHIFT+: = A HORA ATUAL E DEPOIS CTRL + P para imprimir automaticamente mas ela nao atualiza a hora a cada vez q a executo.

Sub HORA_ATUAL()
'
' HORA_ATUAL Macro
'

'
Range("F4").Select
ActiveCell.FormulaR1C1 = "11:40"
Range("D5:H5").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub

consegui executar a macro com a atualização da hora e minuto ao imprimir

segue o código:

Sub HORA_ATUAL()
'
' HORA_ATUAL Macro
'

'
Range("F4").Select
ActiveCell = Now()
Range("D5:H5").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub