I want to print a form in paper size width 11.5" and Length 8". How can I Page setup?

[MilonMahbub]

Here is my coding..

 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