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

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 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 いろいろ調べてもうまく出来ません。よろしくお願いします。