Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How do i print a grid on whole page

Status
Not open for further replies.

Gofaster

Technical User
Apr 23, 2001
13
GB
HOW do i fill the page with the same grid of lines that i use to seperate records when the records that exsist only fill half the page, also want to print the lines on whole page when no records exsist for some groups of data.
 
I've done this. It's a bit slow, but I could only think of one way to do it. I was actually asked to add 10 lines to each group reported on. I changed the report query to a make table one. Then did

csql = "SELECT TempRunsheet.RouteNumber, Count(TempRunSheet.TripNumber) AS CountOfTripNumber"
csql = csql & " FROM TempRunSheet"
csql = csql & " GROUP BY TempRunSheet.RouteNumber;"
Set rs1 = dbs.OpenRecordset(csql)
If Not (rs1.BOF And rs1.EOF) Then

For l1 = 1 To L
csql = "INSERT INTO TempRunSheet (RouteNumber,TripNumber,Name) "
csql = csql & " VALUES ( " & rs1("RouteNumber") & " , 1000, " & Chr$(34) & " " & Chr$(34) & " )"
DoCmd.RunSQL csql
Next l1

rs1.MoveNext
Loop
End If
rs1.Close

The 1000 made sure that the blank lines remained at the bottom. The problem is, of course, that this will run over a page boundary when you don't want it to.
Peter Meachem
peter@accuflight.com
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top