文字を用紙のセンター、右端などに印刷する方法

◆概要

このページは、Visual Basic 6.0のVisual Basicで、文字を用紙のセンター、右端などに印刷する方法について記載しています。


PrinterオブジェクトのScaleWidthプロパティ、TextWidthプロパティを利用すると文字を用紙のセンターや右端に印刷することができます。

Sample code

Public Sub PrintAlignedText(s As String, Alignment As String)
    
    Select Case Alignment
    Case "Center"
        Printer.CurrentX = (Printer.ScaleWidth - Printer.TextWidth(s)) \ 2
    Case "Left"
        Printer.CurrentX = 0
    Case "Right"
        Printer.CurrentX = Printer.ScaleWidth - Printer.TextWidth(s)
    End Select
    Printer.Print s
    
    '印刷するのがこのテキストだけなら、 EndDoc コマンドを使います。
    Printer.EndDoc
End Sub


Private Sub Command1_Click()
    ' 指定した文字を用紙の中央に印刷する例
    ' 左端、右端にする場合は "Center" を置き換えてください。
    ' ("Center", "Left" or "Right")
    Call PrintAlignedText("こんにちは", "Center")
End Sub
▼ページトップへ