Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Format exported to RTF file.

Status
Not open for further replies.

Freckles

Technical User
May 1, 2000
138
US
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.
 
The problem is that different algorithms are used to set up RTF displays/output. Try OutputTo in "snapshot format", which uses the same display/output as Access. Someone else may have a way to get the RTF to do what you want, but my guess is that it will be trial-and-error to get it to work.
 
I really apprecriate your response, but putting out in Snapshot is my normal method, and the other end "wants" RTF/Word ::) Deb Koplen
deb.koplen@verizon.com

A person can stand almost anything except a succession of ordinary days.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top