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

いしよし  2005-08-05 09:26:35  No: 91286  IP: [192.*.*.*]

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 09:35:43  No: 91287  IP: [192.*.*.*]

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

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

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

編集 削除