Results 1 to 3 of 3
  1. #1
    Lounger
    Join Date
    Sep 2006
    Location
    Jhongli, Taiwan
    Posts
    42
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Insert date when printing form (2000 SP-3)

    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?

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Insert date when printing form (2000 SP-3)

    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.

  3. #3
    Lounger
    Join Date
    Sep 2006
    Location
    Jhongli, Taiwan
    Posts
    42
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Insert date when printing form (2000 SP-3)

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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •