始めまして、鉛筆（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
わかる方教えて下さい。お願いします。
＜追加＞
使用OS WIN2000
ソフト Microsoft Visual Basic 6.0
です。