２．指定位置に指定のフォントで表示・印字

１．指定位置に指定のフォントで表示・印字 ２． ３． ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：追加なし 使用 API：なし その他　： 　　　　：

１．指定位置に指定のフォントで表示・印字

Option Explicit　　 'SampleNo=101　 2002.05.19 Private Sub sFontSet(myObj As Object, FntName As Integer, FntSize _ 　　　　　　　　　　As Integer, FntStyle As Integer) '================================================================ '*　 myObj　　= オブジェクト名(Form Or Printer 等) '*　 FntName　= フォントの名前 '*　 FntSize　= フォントサイズ '*　 FntStyle = フォントスタイル '*　 FntStyle=1　　太字　　　　 FntStyle=10　 斜体 '*　 FntStyle=50　 消線　　　　 FntStyle=100　アンダーライン '*　 スタイルの組合せはそれぞれの数値の合計で指定 '*　 sFontSet 1,12,101 のように指定して使って下さい '*　 フォントはMS Pゴシックで12ポイントで太字でアンダーライン付 '================================================================ 　　Dim intFStyle As Integer 　　On Error Resume Next 　　intFStyle = FntStyle 　　With myObj 　　　　'フォント名を設定 　　　　Select Case FntName 　　　　　　Case 0 　　　　　　　　.FontName = "MS ゴシック" 　　　　　　Case 1 　　　　　　　　.FontName = "MS Pゴシック" 　　　　　　Case 2 　　　　　　　　.FontName = "MS 明朝" 　　　　　　Case 3 　　　　　　　　.FontName = "MS P明朝" 　　　　　　Case Else 　　　　　　　　.FontName = "MS ゴシック" 　　　　End Select 　　　　If FntSize <= 0 Or FntSize > 72 Then 　　　　　　FntSize = 9　　 'フォントサイズのデフォルト設定 　　　　End If 　　　　'フォントサイズを設定 　　　　.FontSize = FntSize 　　　　'フォントスタイルを初期値に設定 　　　　.FontBold = False 　　　　.FontItalic = False 　　　　.FontStrikethru = False 　　　　.FontUnderline = False 　　　　'指定のフォントスタイルを組み合わせに設定 　　　　If intFStyle >= 100 Then 　　　　　　.FontUnderline = True　　　'アンダーライン 　　　　　　intFStyle = intFStyle - 100 　　　　End If 　　　　If intFStyle >= 50 Then 　　　　　　.FontStrikethru = True　　 '取り消し線 　　　　　　intFStyle = intFStyle - 50 　　　　End If 　　　　If intFStyle >= 10 Then 　　　　　　.FontItalic = True　　　　 '斜体 　　　　　　intFStyle = intFStyle - 10 　　　　End If 　　　　If intFStyle = 1 Then 　　　　　　.FontBold = True　　　　　 '太字 　　　　End If 　　End With End Sub Private Sub Locate(myObj As Object, X As Long, Y As Long, myStr As String) 　　With myObj 　　　　.ScaleMode = vbCharacters　 'キャラクターモード 　　　　.CurrentX = X　　'桁位置 　　　　.CurrentY = Y　　'行位置 　　End With 　　myObj.Print myStr End Sub Private Sub Command1_Click() '関数使用例　Form1のところをPrinter に変えると印字 　　sFontSet Form1, 1, 12, 101 　　Locate Form1, 5, 2, "VBレスキュー-(花ちゃん)" 　　sFontSet Form1, 3, 16, 111 　　Locate Form1, 5, 4, "VBレスキュー-(花ちゃん)" End Sub 文字ポイントと文字幅の関係（参考） 　　ＭＳ 明朝　及び　ＭＳ ゴシック 　　　文字ポイント　　半角幅　　　　　全角幅 　　　　　９　　　　　　９０　　　　　１８０ 　　　　１０　　　　　１０５　　　　　１９５ 　　　　１１　　　　　１２０　　　　　２２５ 　　　　１２　　　　　１２０　　　　　２４０ 　　　　１４　　　　　１５０　　　　　２８５ 　　　　１６　　　　　１６５　　　　　３１５ 　　 　 １８　　　　　１８０　　　　　３６０ 　　　　２０　　　　　２１０　　　　　４０５ 　　幅の単位＝twip 　　1 センチは 567twip、1 インチは 1,440twip になります 　　1 インチは 72 ポイントになります。

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

フォント名・サイズ・スタイル等を設定する関数　　　行・桁位置を指定して印刷・表示する関数 フォントポイントと文字幅の関係