Hi David,
 
  I ain't gota show Ya no stinkin Blanks, Mam !
 
 
Report
  Variable Definition
    Name        Value to Store  Initial Value   Reset    Calculate
  group1band       1               0             Source    Nothing
  group2band       2               0             Account   Nothing
  group3band       3               0             Part No.  Nothing
  group4band       4               0             Buyer     Nothing
 
*!*******************************************************************
*! Function..........: NoBlanks()
*! Author............: dkb
*! Project...........: Any
*! Created...........: Dec-04-1996
*! Copyright.........: (c) 1996
*) Description.......: Called by Report Writer in Printer Driver Setup
*)                   : as User Procedure at Start Line to eliminate
*)                   : unwanted blank lines in Reports when the User
*)                   : chooses not to subtotal some of the data groups
*! Syntax............: Must create the 4 flags from the User selected
*!                   : Fields in the calling Program that wants to
*!                   : Print a Report and set to .T. if subtotaled.
*! Parameter list....: group1subt - first grouped field flag
*!                   : group2subt - second grouped field flag
*!                   : group3subt - third grouped field flag
*!                   : group4subt - fourth grouped field flag
*! Platform..........: DOS
*! Major change list.: None
*! Called by.........: Report Writer
*! Calls.............: Nothing
*!*******************************************************************
 
FUNC NoBlanks
PARA group1subt, group2subt, group3subt, group4subt
PRIVATE band_break, curentband, new_band, ;
        group1band, group2band, group3band, group4band
PUBLIC  group1subt, group2subt, group3subt, group4subt
 
  If group1band  0
     new_band = group1band
     Else group2band  0
     new_band = group2band
     Else group3band  0
     new_band = group3band
     Else group4band  0
     new_band = group4band
  Endif
 
  Iff (curentband  new_band, band_break = .T., band_break = .F.)
 
  If band_break = .T. and group1band = 1 and group1subt = .F.
     _PLINENO = _PLINENO + 1
     Else band_break = .T. and group2band = 2 and group2subt = .F.
     _PLINENO = _PLINENO + 1
     Else band_break = .T. and group3band = 3 and group3subt = .F.
     _PLINENO = _PLINENO + 1
     Else band_break = .T. and group4band = 4 and group4subt = .F.
     _PLINENO = _PLINENO + 1
  Endif
 
  curentband = new_band
  Return
 
 
                                            1 picture save 1000 words,
                                            den
 
P. S. (I made up 2 Field names cause I could not figure out Your 3&4.)
 
PP. S. (Try it out, if it does not make it, I will try to correct it.)
--- TMail v1.31.5
---------------