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.
Expand|Select|Wrap|Line Numbers
- 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