473,320 Members | 1,909 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,320 software developers and data experts.

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

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.

Expand|Select|Wrap|Line Numbers
  1.   With DO_Receipt.Sections(1).Controls
  2.         .Item("Lbl_Date").Caption = Frm_Counter.Lbl_RcptDate.Caption
  3.         .Item("Lbl_Rcptnum").Caption = Frm_Receiver.Lbl_Rcptnumber.Caption
  4.         .Item("Lbl_Blnum").Caption = UCase(Frm_Receiver.Lbl_BlNumber.Caption)
  5.         .Item("Lbl_DONum").Caption = Frm_Receiver.Lbl_DONumber
  6.         .Item("Lbl_Voy").Caption = Frm_Receiver.Lbl_Voyageno
  7.         .Item("Lbl_Payer").Caption = pyr
  8.  End With
  9.  
  10.  With DO_Receipt.Sections(3).Controls
  11.         .Item("Lbl_Csh_Cheq").Caption = pymd
  12.         .Item("Lbl_chq").Caption = chqdt
  13.         .Item("Lbl_Ttlamnt").Caption = Frm_Counter.Txt_AmountPaid.Text
  14.         .Item("Lbl_Rcpt_Isud").Caption = UCase(usrnm)
  15.  End With
  16.  
  17. Load DataEnvironment1
  18. With DataEnvironment1
  19.   .Receiptform Frm_Receiver.Lbl_Rcptnumber.Caption, Frm_Receiver.Lbl_BlNumber.Caption, Frm_Receiver.Lbl_Voyageno.Caption
  20. End With
  21. DO_Receipt.BottomMargin = 6400
  22. DO_Receipt.Refresh
  23. If DO_Receipt.Visible = False Then
  24. DO_Receipt.PrintReport
  25. DO_Receipt.Hide
  26. Unload DO_Receipt
  27. MsgBox "Receipt send to Printer...", vbInformation, "Print receipt"
  28. End If
  29.  
  30.  
Oct 30 '10 #1
0 1726

Sign in to post your reply or Sign up for a free account.

Similar topics

2
by: Al Franz | last post by:
Look at the following web page test. http://netmation.com/test61.htm Why is there blank space on the 4th row, can not get rid of it. Using the latest IE 6
2
by: barb28 | last post by:
Hello, sometimes I have noticed that in web addresses, the number: 20% will show up in the address. I think this is somehow related to a 'blank space', but am unsure, does anyone know about...
0
by: Penguin | last post by:
Using Access 97, I've created a grading sheet. To save space, the subjects are in vertical columns on a sub-report, like so: Math Spelling Reading N C T A A E U A I ...
2
by: Amir | last post by:
I really hope someone can explain this behavior. I have spend quite a bit of time and tried a bunch of things, so far nothing has worked. I have a page on which I have a datagrid with template...
2
by: Bill Nguyen | last post by:
I tried in vain to add blank space to the end of couple variables as below: mPadding = Convert.ToChar(" ") mdriverBegin.PadRight(16, mPadding) mdriverEnd.PadRight(16, mPadding) ...
3
by: ThunderMusic | last post by:
Hi, I want to make a toolbox form (like the one in Adobe Photoshop), so I would like to put many buttons one beside the others (beside, over and under, just like the toolbox in photoshop). I...
1
by: madhurjya | last post by:
please help me... i have a table namely "list" where field names are name,age,remark and table display like $=blank space name age remark ajit 22 ...
2
by: voroojak | last post by:
HI i have a proble with the blank space. i have a column for phonenumber. in phone number table each entry may have a different format. i mean one entry can be like this 228 566 59878 and the...
0
by: DolphinDB | last post by:
The formulas of 101 quantitative trading alphas used by WorldQuant were presented in the paper 101 Formulaic Alphas. However, some formulas are complex, leading to challenges in calculation. Take...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
0
by: CloudSolutions | last post by:
Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
0
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.