データの保存と印刷

質問

こんぱんは。VB初心者です。早速ですが質問があります。良きアドバスを頂けたら幸いです。

データの保存と印刷についての質問です。
テキストボックスに配列で各データ（50個ぐらい）を表示することまでは出来たのですが、いざそのデータの保存と印刷で困っております。

以下のようなイメージで印刷できたらいいのですが。

No. データ名　データ　
１　○○○○　×××（←textboxに表示したデータ）
２　○○○○　×××
: : :
50 ○○○○　×××

No.とデータ名はラベルで表示しています。
分かりにくいとは思いますが、どうぞよろしくお願いします。

回答No.1

imogasi · ベストアンサー

初心者用解説書に載ってそうな、稚拙なものですが
（１）Form1に仮に３つのラベル（２つ目以後はコピーしコントロール配列にすること）と３つのテキストボックスを
貼り付ける。
（２）コードは
Private Sub Form_Click()
Dim a(2) As String
'---------入力の代わり
Label1(0).Caption = "東京"
Label1(1).Caption = "大阪"
Label1(2).Caption = "福岡"
Text1(0).Text = 100
Text1(1).Text = 200
Text1(2).Text = 300
'--------
For i = 0 To UBound(a)
a(i) = Text1(i).Text
Printer.Font.Size = 20
Printer.Print i; " ";
Printer.Print Label1(i).Caption; "　　";
Printer.Print a(i)
Printer.Print
Printer.Print
Next i
Printer.EndDoc
End Sub
とし、
（３）プリンタに紙をいれ、実行してみる。
（４）その後に" "（スペース）の挿入とスペース行をPrinter.Printの数で調節して、またフォントサイズを
調節して用紙に位置を調節してください。
印刷のきっかけのコマンドボタンを設け、そのクリック
イベントに本コードを持っていき、上記の「入力の代わり」の部分も削除して、修正してください。
単純な回答が良ければこれで良いし、もう少しハイテクの回答を待ちましょう。（「保存」は朝の時間が無く割愛。）

お礼

お礼の返事が遅れてしまい申し訳ありません。とても助かりました。丁寧に教えて頂いたので、上手くいきました！
ありがとうございました！出来れば保存方法もお願いしてもいいですか？参考までに．．．