Printerオブジェクトの１行ごとの線が印字できるようにするには？

いしよし 2005-08-05 18:26:35 No: 91286

printerオブジェクトを使ってリストビューのデータを回して印刷するのですが、
データのみの場合はうまく印刷できたのですが１行ごとの横線（罫線）を描こうとすると線のみ印刷されません。

    Printer.Orientation = 2
    Printer.ScaleMode = vbInches
    Printer.CurrentX = 0
    Printer.CurrentY = 0.5
    Printer.Print "項目名"
    Printer.Line (5, 15)-(36, 15)        ←印字されません
    For i = 1 To lvwList.ListItems.Count
        Printer.Print ***データ印字***
    Printer.Line (5, 15)-(36, 15)        ←印字されません
    Next i
    Printer.KillDoc

    いろいろ調べてもうまく出来ません。よろしくお願いします。

いしよし 2005-08-05 18:35:43 No: 91287

すみません、訂正します。

Printer.KillDocでは無く Printer.EndDoc でした。

では、よろしくお願いします。