Добавление пустой строчки в отчет

[RS219]

Здраствуйте.
каким образом можно добавить пустую строчку в отчете
когда отчет состоит из двух столбцов (параметры страницы-количестов солбцов) и поля заносяться с слева на право,
то когда число записей четное, то количество строчек в отчете равно (они все заполнены)
А когда число записей не четное, то количество строчек в отчете не равно друг другу, в правом столбце на одну строчку меньше. Каким образом можно добавить пустую строку в отчете, чтобы эти столбцы были равными, не зависимо четные или не четные строчки.

Я приложил файл с примером, как во второй столбец добавить пустую строчку?, что бы поля 1 и 2 столбца выровнялись.

[Teslenko_EA]

Здравствуйте RS219.
поместите подобный код в модуль отчета, и будет Вас счастье.

Private Sub Report_Open(Cancel As Integer)
Const sQ = "SELECT  ", sQ1 = " наименование, цена FROM (SELECT  наименование, цена, 0 as srt " + _
"FROM Таблица1 union select '', '', 1 as srt FROM Таблица1) T ORDER BY T.srt,  T.наименование"
Dim rs As Recordset, db As Database, i&
Set db = CurrentDb
Set rs = db.OpenRecordset(sQ + sQ1)
i = rs.RecordCount \ 2
Me.RecordSource = sQ + " top " + Str(i * 2) + sQ1
End Sub

Евгений.