OK! Fixed the run time error but still no progress...The report still don't add column..
Here's the code:
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
iLines = iLines
If addBlank = True Then
SetControls False, True, True, vbBlack, False
Else...