Something

Option Explicit

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub tmrclose_Timer()

Me.PrintForm ''INITIATE FORM PRINTING

Unload frmAbsence   ''CLOSE THE FORM FROM USER VIEW

End Sub