Insert date when printing form (2000 SP-3)

Topic

New Reply

I use the following code to print out hard copies of a datasheet form:

Private Sub cmdFileCopy_Click()
On Error GoTo Err_cmdFileCopy_Click

Dim stDocName As String
Dim MyForm As Form

stDocName = “frmAssignmentEntrySub”
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False

Exit_cmdFileCopy_Click:
Exit Sub

Err_cmdFileCopy_Click:
MsgBox Err.Description
Resume Exit_cmdFileCopy_Click

End Sub

Does anyone know of a simple way to insert the date at the upper or lower right corner of the printout?

Reply | Quote

Replies

I do get the date in the upper right corner when I print a datasheet form, but the header and footer for a datasheet form are not configurable, so if it doesn’t work for you, you’re out of luck. I would recommend creating a report; you have complete control over the header and footer in a report.

Reply | Quote

We must be using different versions, or something. Thanks anyway!
Brady

Reply | Quote