lprint

　VBA で　lprint というエクセル用のプロシージャをつくりました
　データを　シートに書き込むだけですが　なかなか便利です
　作者としては　気に入っております

Public flag As Integer
Public i As Integer
'
Sub lprint(data)
　　　Sheets("paper").Activate
　　　If flag = 0 Then
　　　　　　Columns("B:B").Select
　　　　　　Selection.ClearContents
　　　　　　 flag = 0
　　　　　 　Cells(1, 1).Select
　　　　　　　i = 1
　　　　　　 flag = 1
　　　　　　Cells(i, 2).Value = data
　　　 Else
　　　 　　　Cells(i, 2).Value = data
　　　 End If
　　　　i = i + 1
　　　　Cells(i, 2).Select
End Sub