Re: Multi-Column Report - Add a border and line between columns

You can add code like:
Private Sub Report_Page()
Dim intLineCount As Integer
Dim intColumnWidth As Integer
Dim intReportHeight As Integer
intReportHeight = (9 * 1440)
intColumnWidth = 2800
For intLineCount = 0 To 4
Me.Line (intLineCount * intColumnWidth, 0)-Step(0, intReportHeight)
Next
Me.Line (0, 0)-Step(4 * intColumnWidth, intReportHeight), , B
End Sub

--
Duane Hookom
MS Access MVP


"John" <John@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:B5BB554B-2AB9-4D1F-B6A6-E0C40537E4F3@xxxxxxxxxxxxxxxx
> Does anyone know a way to put a border around a report and between the
> columns of a multi-column report? I tried just adding the lines in the
> report detail and it did not give a line on the far right side plus the
> border was not complete if there were not enough records to fill the whole
> page.
>
> Thanks in advance,
> John


.

Relevant Pages

  • Re: Printed report does not match print Preview
    ... I am unfamiliar with how the report process works. ... > Dim rstReport As DAO.Recordset ... > Dim intX As Integer ... > Private Sub Detail_Format ...
    (microsoft.public.access.reports)
  • Re: Error: Microsoft jet database engine does not recognize " as a va
    ... If you are attempting to create a crosstab report with dynamic columns, ... > Dim rstReport As DAO.Recordset ... > Dim intX As Integer ... > Private Sub Detail_Format ...
    (microsoft.public.access.reports)
  • Re: Printed report does not match print Preview
    ... I am unfamiliar with how the report process works. ... Dim rstReport As DAO.Recordset ... Dim intX As Integer ... Private Sub Detail_Format ...
    (microsoft.public.access.reports)
  • Re: Error: Microsoft jet database engine does not recognize " as
    ... Report Propoerties window or would it need to be done through the VB code? ... >> ' Variables for Database object and Recordset. ... >> Dim rstReport As DAO.Recordset ... >> Private Sub Detail_Format ...
    (microsoft.public.access.reports)
  • mad report.. =/
    ... report directly form VBA is printed perfect. ... >Private Sub Detail_Format(Cancel As Integer, ... >Dim intOpcion As Integer ...
    (microsoft.public.access.reports)