Все поля с данными в ОбластиДанных - установить свойство Расширение=Да
Тогда и линии печататься будут и автоподбор ширины строк будеьт. Круто вообщем-то. Спасибо не известному автору за этот маленький пример.

' в отчете
Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
Call Report_Load_Format(Me.Name)
End Sub

' в модуле
Public Function Report_Load_Format(ReportName As String)
Dim CtlDetail As Control
Dim intLineMargin As Integer
intLineMargin = 1 '5

Reports(ReportName).ScaleMode = 1

For Each CtlDetail In Reports(ReportName).Section(acDetail).Controls
With CtlDetail
Reports(ReportName).Line ((.Left + .Width + intLineMargin), 1)-(.Left + .Width + intLineMargin, Reports(ReportName).Height)
Reports(ReportName).DrawWidth = 10
End With
Next
With Reports(ReportName)
Reports(ReportName).Line (0, 0)-(.Width, .Height), vbBlack, B
' Me.Line (0, 0)-Step(.Width, .Height), vbBlack, B
Reports(ReportName).DrawWidth = 10 ' òîëùèíà ðîâíî 1/2 ïóíêò
End With

Set CtlDetail = Nothing
End Function