印刷をするには？

鉛筆（HB） 2001-11-19 22:53:34 No: 103793

始めまして、鉛筆（HB）です。
最近、VBを使って、なにか作ろうと思いはじめました。
そこで、テキストエディタを作成しています。
そして、下記の壁にぶち当たりました。

印刷をコモンダイアログを使って、作成したのですが、
一応プリントできるのですが、へんな枠と、ダイアログが表示されません。
どうしたらいいか解りますか？
下記に、プリントの部分だけのソースを貼ります。

Private Sub FilePrint_Click()
Dialog1.ShowPrinter
'// フォームをコマンドボタンを除いて印刷します。
'// ラベルの BackStyle プロパティは 0-透明に設定します。

Dim ctrLoop As Control

' コマンドボタンは非表示にする
For Each ctrLoop In Text.Container
If TypeOf ctrLoop Is CommandButton Then
ctrLoop.Visible = False
End If
Next

Form1.BackColor = vbWhite '背景色を白にする
Form1.PrintForm 'フォームのハードコピーを出力
Form1.BackColor = vb3DFace '背景色を標準に戻す

' コマンドボタンの非表示状態を戻す
For Each ctrLoop In Form1.Controls
If TypeOf ctrLoop Is CommandButton Then
ctrLoop.Visible = True
End If
Next

End Sub

わかる方教えて下さい。お願いします。

鉛筆（HB） 2001-11-19 22:57:37 No: 103794

＜追加＞
使用OS WIN2000
ソフト Microsoft Visual Basic 6.0
です。