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.
Select from 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.
I needed to skip over some file processing within a For...Next loop in some old production code and wished that VB (classic) had a statement that would drop down to the end of the current iteration, bypassing the statements that were c…
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.
What are they?
An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…