Printで一度に複数行を表示するには？ (ID:111770)

名前

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

本文 ボタンを押す度にテキストを１行ずつ増やして、 Printにてピクチャーに表示させるものを作っています。 bの回数を増やすことで行数を増やしているのですが、 CurrentX,CurrentYの値が反映されず、うまくいきません。 全行のprint位置を指定するにはどのようにしたら良いのでしょうか？ どなたかご教示お願いいたします。 ちなみに、以下のやり方でしています。 Sub Button1_click() Picture1.Cls For a = 0 To b Picture1.CurrentX = 10 Picture1.CurrentY = 20 * a Picture1.Print Bun(a) Next a b = b + 1 End Sub