線を印刷する方法

◆概要

このページは、Visual Basic 6.0のVisual Basicで、線を印刷する方法について記載しています。

PrinterオブジェクトのLineメソッドを使うと、用紙に線を印刷することができます。

Public Sub PrintLine(Width As Single)
    Printer.Line (0, Printer.CurrentY)-(Printer.ScaleWidth, _
    Printer.CurrentY + Width), , BF

    ' 印刷するのがこの線のみなら、EndDoc コマンドを使用します。
    Printer.EndDoc
End Sub

Private Sub Command1_Click()
    ' 線幅を変えるときは、 （）の中の40を書き換えてください。
    PrintLine (40)
End Sub

▼ページトップへ