次の方法で共有


ComboBox.FontName プロパティ (Access)

FontName プロパティを使用して、次の状況でテキストのフォントを指定します。

  • フォームおよびレポートのコントロールを表示または印刷するとき。
  • レポートで Print メソッドを使うとき。

読み取り/書き込みが可能な String です。

構文

FontName

ComboBox オブジェクトを表す変数。

注釈

"FontName/フォント名" プロパティの設定値は、テキストが表示されるときに使われるフォントの名前です。

このプロパティの既定値は、コントロールの既定のコントロール スタイルまたは Visual Basic の DefaultControl プロパティを使用して設定できます。

レポートの場合、このプロパティは、イベント プロシージャ内で、または " OnPrint /印刷時" イベント プロパティの設定値で指定されたマクロ内でのみ設定することができます。

使用可能なフォントは、使うシステムおよびプリンターによって異なります。 システムで表示できない、または組み込まれていないフォントが指定された場合は、類似したフォントに置き換えられます。

次の例は、 Print メソッドを使って、テキストを Report1 というレポートに表示します。 TextWidth メソッドおよび TextHeight メソッドは、テキストを垂直方向および水平方向に中央寄せする目的で使います。

Private Sub Detail_Format(Cancel As Integer, _ 
 FormatCount As Integer) 
 Dim rpt as Report 
 Dim strMessage As String 
 Dim intHorSize As Integer, intVerSize As Integer 
 
 Set rpt = Me 
 strMessage = "DisplayMessage" 
 With rpt 
 'Set scale to pixels, and set FontName and 
 'FontSize properties. 
 .ScaleMode = 3 
 .FontName = "Courier" 
 .FontSize = 24 
 End With 
 ' Horizontal width. 
 intHorSize = Rpt.TextWidth(strMessage) 
 ' Vertical height. 
 intVerSize = Rpt.TextHeight(strMessage) 
 ' Calculate location of text to be displayed. 
 Rpt.CurrentX = (Rpt.ScaleWidth/2) - (intHorSize/2) 
 Rpt.CurrentY = (Rpt.ScaleHeight/2) - (intVerSize/2) 
 ' Print text on Report object. 
 Rpt.Print strMessage 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。