riddders, thanks for your reply. below is the code I've used;
Private Sub print_Click()
DoCmd.OpenReport "annual_leave_form", acViewPreview, "", "", acNormal
DoCmd.PrintOut acPrintAll, , , , Me.quantity
DoCmd.close acReport, "annual_leave_form"
End Sub