How to remove the blank space between details and botom margin of datareport

[Tessy Mithu]

Am trying to print a receipt from VB6.0 with MS.Access as db.
While generating the data report iam getting blank spaces between detailed section and Bottom margin of the report.
Required to know is there any possibilities which i can remove these blank space by coding.

Following codes are used for printing report.

  With DO_Receipt.Sections(1).Controls
        .Item("Lbl_Date").Caption = Frm_Counter.Lbl_RcptDate.Caption
        .Item("Lbl_Rcptnum").Caption = Frm_Receiver.Lbl_Rcptnumber.Caption
        .Item("Lbl_Blnum").Caption = UCase(Frm_Receiver.Lbl_BlNumber.Caption)
        .Item("Lbl_DONum").Caption = Frm_Receiver.Lbl_DONumber
        .Item("Lbl_Voy").Caption = Frm_Receiver.Lbl_Voyageno
        .Item("Lbl_Payer").Caption = pyr
 End With

 With DO_Receipt.Sections(3).Controls
        .Item("Lbl_Csh_Cheq").Caption = pymd
        .Item("Lbl_chq").Caption = chqdt
        .Item("Lbl_Ttlamnt").Caption = Frm_Counter.Txt_AmountPaid.Text
        .Item("Lbl_Rcpt_Isud").Caption = UCase(usrnm)
 End With
 
Load DataEnvironment1
With DataEnvironment1
  .Receiptform Frm_Receiver.Lbl_Rcptnumber.Caption, Frm_Receiver.Lbl_BlNumber.Caption, Frm_Receiver.Lbl_Voyageno.Caption
End With
DO_Receipt.BottomMargin = 6400
DO_Receipt.Refresh
If DO_Receipt.Visible = False Then
DO_Receipt.PrintReport
DO_Receipt.Hide
Unload DO_Receipt
MsgBox "Receipt send to Printer...", vbInformation, "Print receipt"
End If