Dim Settaggio As New StdFont
Public Sub Setta_Font(ByVal Grassetto As Integer, ByVal Italico As Integer, ByVal NomeFont As String, ByVal Dimensione As Integer) Settaggio.Bold = Grassetto Settaggio.Italic = Italico (True o False) Settaggio.Name = NomeFont (True o False) Settaggio.Size = Dimensione Set Printer.Font = Settaggio End Sub |