With Font.Name = Courier New.Size = 12.Bold = True.Underline = False End With frm1.ForeColor = QBColor(2) frm1.Print Courier New, 12, полужирный, зеленый End Sub Private Sub cmd2_Click() frm1.Cls End Sub
{}