The following works BEAUTIFULLY when I need to print a report. BUT does not work (ie. make red/bold) when exported to a RTF file. X-)
Private Sub GroupFooter3_Print(Cancel As Integer, PrintCount As Integer)
If Color = "color" Then
USSTATE.ForeColor = 255
USSTATE_JAN.ForeColor = 255
USSTATE_FEB.ForeColor = 255
USSTATE_MAR.ForeColor = 255
USSTATE_APR.ForeColor = 255
USSTATE_MAY.ForeColor = 255
USSTATE_JUN.ForeColor = 255
USSTATE_JUL.ForeColor = 255
USSTATE_AUG.ForeColor = 255
USSTATE_SEP.ForeColor = 255
USSTATE_OCT.ForeColor = 255
USSTATE_NOV.ForeColor = 255
USSTATE_DEC.ForeColor = 255
USSTATE_YTD.ForeColor = 255
USSTATE.FontBold = True
USSTATE_JAN.FontBold = True
USSTATE_FEB.FontBold = True
USSTATE_MAR.FontBold = True
USSTATE_APR.FontBold = True
USSTATE_MAY.FontBold = True
USSTATE_JUN.FontBold = True
USSTATE_JUL.FontBold = True
USSTATE_AUG.FontBold = True
USSTATE_SEP.FontBold = True
USSTATE_OCT.FontBold = True
USSTATE_NOV.FontBold = True
USSTATE_DEC.FontBold = True
USSTATE_YTD.FontBold = True
Else
USSTATE.ForeColor = 0
USSTATE_JAN.ForeColor = 0
USSTATE_FEB.ForeColor = 0
USSTATE_MAR.ForeColor = 0
USSTATE_APR.ForeColor = 0
USSTATE_MAY.ForeColor = 0
USSTATE_JUN.ForeColor = 0
USSTATE_JUL.ForeColor = 0
USSTATE_AUG.ForeColor = 0
USSTATE_SEP.ForeColor = 0
USSTATE_OCT.ForeColor = 0
USSTATE_NOV.ForeColor = 0
USSTATE_DEC.ForeColor = 0
USSTATE_YTD.ForeColor = 0
USSTATE.FontBold = False
USSTATE_JAN.FontBold = False
USSTATE_FEB.FontBold = False
USSTATE_MAR.FontBold = False
USSTATE_APR.FontBold = False
USSTATE_MAY.FontBold = False
USSTATE_JUN.FontBold = False
USSTATE_JUL.FontBold = False
USSTATE_AUG.FontBold = False
USSTATE_SEP.FontBold = False
USSTATE_OCT.FontBold = False
USSTATE_NOV.FontBold = False
USSTATE_DEC.FontBold = False
USSTATE_YTD.FontBold = False
End If
End Sub
: Deb Koplen
deb.koplen@verizon.com
A person can stand almost anything except a succession of ordinary days.
Private Sub GroupFooter3_Print(Cancel As Integer, PrintCount As Integer)
If Color = "color" Then
USSTATE.ForeColor = 255
USSTATE_JAN.ForeColor = 255
USSTATE_FEB.ForeColor = 255
USSTATE_MAR.ForeColor = 255
USSTATE_APR.ForeColor = 255
USSTATE_MAY.ForeColor = 255
USSTATE_JUN.ForeColor = 255
USSTATE_JUL.ForeColor = 255
USSTATE_AUG.ForeColor = 255
USSTATE_SEP.ForeColor = 255
USSTATE_OCT.ForeColor = 255
USSTATE_NOV.ForeColor = 255
USSTATE_DEC.ForeColor = 255
USSTATE_YTD.ForeColor = 255
USSTATE.FontBold = True
USSTATE_JAN.FontBold = True
USSTATE_FEB.FontBold = True
USSTATE_MAR.FontBold = True
USSTATE_APR.FontBold = True
USSTATE_MAY.FontBold = True
USSTATE_JUN.FontBold = True
USSTATE_JUL.FontBold = True
USSTATE_AUG.FontBold = True
USSTATE_SEP.FontBold = True
USSTATE_OCT.FontBold = True
USSTATE_NOV.FontBold = True
USSTATE_DEC.FontBold = True
USSTATE_YTD.FontBold = True
Else
USSTATE.ForeColor = 0
USSTATE_JAN.ForeColor = 0
USSTATE_FEB.ForeColor = 0
USSTATE_MAR.ForeColor = 0
USSTATE_APR.ForeColor = 0
USSTATE_MAY.ForeColor = 0
USSTATE_JUN.ForeColor = 0
USSTATE_JUL.ForeColor = 0
USSTATE_AUG.ForeColor = 0
USSTATE_SEP.ForeColor = 0
USSTATE_OCT.ForeColor = 0
USSTATE_NOV.ForeColor = 0
USSTATE_DEC.ForeColor = 0
USSTATE_YTD.ForeColor = 0
USSTATE.FontBold = False
USSTATE_JAN.FontBold = False
USSTATE_FEB.FontBold = False
USSTATE_MAR.FontBold = False
USSTATE_APR.FontBold = False
USSTATE_MAY.FontBold = False
USSTATE_JUN.FontBold = False
USSTATE_JUL.FontBold = False
USSTATE_AUG.FontBold = False
USSTATE_SEP.FontBold = False
USSTATE_OCT.FontBold = False
USSTATE_NOV.FontBold = False
USSTATE_DEC.FontBold = False
USSTATE_YTD.FontBold = False
End If
End Sub
: Deb Koplen
deb.koplen@verizon.com
A person can stand almost anything except a succession of ordinary days.