菜单和控件 Cdl. Flags= cdICCRGBInit Cd. Action =3 Text1. Font. Italic= Cd1. Fontitalic text1. Fore Color= Cd1. Color Text1. Font Underline ErrHandler 3 Cd1. FontUnderline Text 1. Font strikethru Case 4 Cd1. CancelError= True Cd1. Font Strikethru On Error goto errhandler4 Text1. Fore Color= Cd1. Color Cdl. Flags= cdICFEffects Or ErrHandler4 dICFBoth C Cdl. cancelerror True Cdl. ShowFont On error goto errhandler s Textl. font name= Cdl fontName Textl. font. size= Cdl fontsize Cd1 Show Printer Text1. Font Bold= Cd1. Font Bold BeginPage =Cd1 FromPage菜单和控件 Cd1.Flags = cdlCCRGBInit Cd1.Action = 3 text1.ForeColor = Cd1.Color ErrHandler3: Case 4 Cd1.CancelError = True On Error GoTo ErrHandler4 Cd1.Flags = cdlCFEffects Or cdlCFBoth Cd1.ShowFont Text1.Font.Name = Cd1.FontName Text1.Font.Size = Cd1.FontSize Text1.Font.Bold = Cd1.FontBold Text1.Font.Italic = Cd1.FontItalic Text1.Font.Underline = Cd1.FontUnderline Text1.FontStrikethru = Cd1.FontStrikethru Text1.ForeColor = Cd1.Color ErrHandler4: Case 5 Cd1.CancelError = True On Error GoTo ErrHandler5 Cd1.ShowPrinter BeginPage = Cd1.FromPage