Dim fnt As New StdFont
Private Sub Command2_Click()
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
fnt.Name = CommonDialog1.FontName
fnt.Size = CommonDialog1.FontSize
fnt.Bold = CommonDialog1.FontBold
fnt.Italic = CommonDialog1.FontItalic
fnt.Underline = CommonDialog1.FontUnderline
fnt.Strikethrough = CommonDialog1.FontStrikethru
Private Sub Command1_Click()
Set DataReport1.Font = fnt
when i set the datareport.font to stdfont(fnt), it doesn't
make any change or effect in the data report. how to make it possible and also how to catch the selected color property from the font dialog box.help me.
Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.