Here is my coding..
Code:
cmdPrint.Visible = False cmdMoveFirst.Visible = False cmdMoveNext.Visible = False cmdMoveLast.Visible = False cmdMovePrevious.Visible = False cmdFind.Visible = False Label6.Visible = False txtCriteria.Visible = False cmdGo.Visible = False cmdCancelFind.Visible = False cmdBack.Visible = False cmdGoTo.Visible = False cmdExit.Visible = False cmdNewRecord.Visible = False cmdSaveRecord.Visible = False cmdCancelNew.Visible = False cmdDeleteRecord.Visible = False cmdUndo.Visible = False 'center the form: Me.Top = (Screen.Height - Me.Height) / 10 Me.Left = (Screen.Width - Me.Width) / 280 'display date & time lblDate.Caption = Format$(Date, "d/m/yyyy") lbltime.Caption = Format$(Time, "h:nn AM/PM") Printer.PrintQuality = vbPRPQDraft 'printer.height=7920 'printer.width=12240 Printer.FontSize = 10 Printer.CurrentX = 28000 Printer.CurrentY = 1500 CustDetails.PrintForm cmdPrint.Visible = True cmdMoveFirst.Visible = True cmdMoveNext.Visible = True cmdMoveLast.Visible = True cmdMovePrevious.Visible = True cmdFind.Visible = True Label6.Visible = True txtCriteria.Visible = True cmdGo.Visible = True cmdCancelFind.Visible = True cmdBack.Visible = True cmdGoTo.Visible = True cmdExit.Visible = True cmdNewRecord.Visible = True cmdSaveRecord.Visible = True cmdCancelNew.Visible = True cmdDeleteRecord.Visible = True cmdUndo.Visible = True End Sub